[Bio] / FigKernelPackages / Subsystem.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Subsystem.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20, Thu Jun 24 19:14:57 2004 UTC revision 1.21, Thu Jun 24 19:28:23 2004 UTC
# Line 587  Line 587 
587      return $self->{spreadsheet}->[$row];      return $self->{spreadsheet}->[$row];
588  }  }
589    
590  sub get_col  sub get_col :scalar
591  {  {
592      my($self, $col) = @_;      my($self, $col) = @_;
593    
594      return $self->{spreadsheet_inv}->[$col];      return $self->{spreadsheet_inv}->[$col];
595  }  }
596    
597  sub get_cell  sub get_cell :scalar
598  {  {
599      my($self, $row, $col) = @_;      my($self, $row, $col) = @_;
600    
# Line 602  Line 602 
602      return $cell;      return $cell;
603  }  }
604    
605  sub get_genome_index  sub get_genome_index :scalar
606  {  {
607      my($self, $genome) = @_;      my($self, $genome) = @_;
608    
609      return $self->{genome_index}->{$genome};      return $self->{genome_index}->{$genome};
610  }  }
611    
612  sub get_genome  sub get_genome :scalar
613  {  {
614      my($self, $gidx) = @_;      my($self, $gidx) = @_;
615    
616      return $self->{genome}->[$gidx];      return $self->{genome}->[$gidx];
617  }  }
618    
619  sub get_role_index  sub get_role_index :scalar
620  {  {
621      my($self, $role) = @_;      my($self, $role) = @_;
622    
623      return $self->{role_index}->{$role};      return $self->{role_index}->{$role};
624  }  }
625    
626  sub get_role  sub get_role :scalar
627  {  {
628      my($self, $ridx) = @_;      my($self, $ridx) = @_;
629    
630      return $self->{roles}->[$ridx];      return $self->{roles}->[$ridx];
631  }  }
632    
633  sub get_role_abbr  sub get_role_abbr :scalar
634  {  {
635      my($self, $ridx) = @_;      my($self, $ridx) = @_;
636    
637      return $self->{role_abbrs}->[$ridx];      return $self->{role_abbrs}->[$ridx];
638  }  }
639    
640  sub get_role_from_abbr  sub get_role_from_abbr :scalar
641  {  {
642      my($self, $abbr) = @_;      my($self, $abbr) = @_;
643    

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3