lib/CXGN/Cview/Map/SGN/ProjectStats.pm

   1
   2 use strict;
   3
   4 package CXGN::Cview::Map::SGN::ProjectStats;
   5
   6 use base qw | CXGN::Cview::Map |;
   7
   8 use CXGN::People::BACStatusLog;
   9 use CXGN::Cview::Chromosome::Glyph;
  10
  11
  12 sub new {
  13     my $class = shift;
  14     my $args = shift;
  15
  16     my $self = $class->SUPER::new(@_);
  17
  18
  19     $self->set_chromosome_names("1", "2", "3", "4", "5", "6", "7", "8", "9" ,"10", "11", "12");
  20     $self->set_chromosome_lengths( (100)x12 );
  21     $self->set_chromosome_count(12);
  22     $self->set_short_name($args->{short_name});
  23     $self->set_long_name($args->{long_name});
  24     $self->set_type("project_overview");
  25     $self->set_units("%");
  26     $self->set_preferred_chromosome_width(12);
  27     return $self;
  28 }
  29
  30 sub get_chromosome {
  31     my $self = shift;
  32     my $chr_nr = shift;
  33
  34     #print STDERR "Now dealing with chr $chr_nr !\n";
  35     my $bac_status_log=CXGN::People::BACStatusLog->new($self->get_dbh());
  36     my @c_len = $self->get_chromosome_lengths();
  37     my @c_percent_finished = $bac_status_log->get_chromosomes_percent_finished();
  38
  39     #print STDERR "Chromosome percent finished: ".(join " ", @c_percent_finished)."\n";
  40
  41     my $c= CXGN::Cview::Chromosome::Glyph -> new(1, 100, 40, 40);
  42     my $m = CXGN::Cview::Marker->new($c);
  43     $m -> set_offset($c_percent_finished[$chr_nr]);
  44     $m -> hide();
  45     $c->add_marker($m);
  46     $c->set_caption($chr_nr);
  47     $c->set_height($c_len[$chr_nr-1]);
  48
  49     #print STDERR "Now generating chr $chr_nr with $c_percent_finished[$chr_nr] \% finished.\n";
  50     $c->set_fill_level($c_percent_finished[$chr_nr]);
  51     $c->set_bac_count(0);
  52
  53     return $c;
  54 }
  55
  56
  57 return 1;
  58
  59