package Status;

=head1 NAME

Status -- Provides the status of the project

=head1 SYNOPSIS

status->run;

=head1 DESCRIPTION

This package provides a status report for the project.

=head1 VERSION

0.001 (last update:  6/30/04)

=head1 AUTHOR

Chet Langin, clangin@siu.edu

SIU Plant Biotechnology and Genomics Core-facility

=head1 BUGS

None known.

=head1 SEE ALSO

extropy ExtropyConstants ExtropyUtils Extropy::MenuMain

=head1 COPYRIGHT

Copyright 2004, Chet Langin, All Rights Reserved.

This program is free software.  You may copy or
redistribute it under the same terms as Perl itself.

=head1 METHODS

The remainder of this document describes the methods available to the
programmer.

=cut

# load the pragmas
use warnings;
use strict;

# load other modules
use ExtropyUtils;
use ExtropyConstants;

# ********************************  run  ******************************

=head2 display

Displays a status report for the project.

Status->run;

=cut

# --------------------------------------------------------------------

sub run {
  shift;
  my $command = shift;
  my $db_manager = shift;
  my $project = shift;

  if($project->{current_project} eq "") {
    message_start;
    message("No project has been activated.");
    blank_line;
    message("You must activate a project before you can do anything else.");
    blank_line;
    press_enter;
  } # if
  else {
    message_start;
    message("Project name:  $project->{current_project}");
    if($project->{mlg_file} eq "") {
      message("MLG File:  (none)");
    } # if
    else {
      message("MLG File:  $project->{mlg_file}");
    } # else
    if($project->{locus_file} eq "") {
      message("Locus File:  (none)");
    } # if
    else {
      message("Locus File:  $project->{locus_file}");
    } # else
    if($project->{fpc_file} eq "") {
      message("FPC File:  (none)");
    } # if
    else {
      message("FPC File:  $project->{fpc_file}");
    } # else
    if($project->{qtl_file} eq "") {
      message("QTL File:  (none)");
    } # if
    else {
      message("QTL File:  $project->{qtl_file}");
    } # else
    if($project->{end_matches_file} eq "") {
      message("End Matches File:  (none)");
    } # if
    else {
      message("End Matches File:  $project->{end_matches_file}");
    } # else
    if($project->{mtp_file} eq "") {
      message("MTP File:  (none)");
    } # if
    else {
      message("MTP File:  $project->{mtp_file}");
    } # else
    my $status = "";
    if($project->{locus_names_crosschecked}) {
      $status = "Yes";
    } # if
    else {
      $status = "No";
    } # else
    message("Locus names crosschecked:  $status");
    if($project->{locus_names_updated}) {
      $status = "Yes";
    } # if
    else {
      $status = "No";
    } # else
    message("Locus names updated:  $status");
    if($project->{clone_anchors_counted}) {
      $status = "Yes";
    } # if
    else {
      $status = "No";
    } # else
    message("Clone anchors counted:  $status");
    if($project->{clone_anchors_updated}) {
      $status = "Yes";
    } # if
    else {
      $status = "No";
    } # else
    message("Clone anchors updated:  $status");
    if($project->{contig_anchors_counted}) {
      $status = "Yes";
    } # if
    else {
      $status = "No";
    } # else
    message("Contig anchors counted:  $status");
    if($project->{contig_anchors_updated}) {
      $status = "Yes";
    } # if
    else {
      $status = "No";
    } # else
    message("Contig anchors updated:  $status");
    my $factor = FACTOR;
    message("Base to cM factor:  $factor");
    my $ave_clone_length = $project->{ave_clone_length};
    if($ave_clone_length == -1) {
      message("Average clone length:  (Requires FPC input)");
    } # if
    else {
      message("Average clone length:  $ave_clone_length bands");
    } # else
    my $band_factor = $project->{band_factor};
    if($band_factor == -1) {
      message("Band factor:  (Requires FPC input)");
    } # if
    else {
      message("Band factor:  $band_factor bases per band");
    } # else
    press_enter;
  } # else
} # run

1