[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.28, Fri Aug 27 17:57:17 2004 UTC revision 1.29, Sun Aug 29 18:36:05 2004 UTC
# Line 218  Line 218 
218      my($class, $dir, $fig) = @_;      my($class, $dir, $fig) = @_;
219    
220      my $ssa_dir = $dir;      my $ssa_dir = $dir;
221      my $name;      my $name = $dir;
222        $name =~ s,.*/,,;
223    
224      #      #
225      # For loading, the subsystem directory must already exist.      # For loading, the subsystem directory must already exist.
# Line 602  Line 603 
603      my(%seen);      my(%seen);
604    
605      $self->{spreadsheet} = [];      $self->{spreadsheet} = [];
606      $self->{spreadshhet_inv} = [];      $self->{spreadsheet_inv} = [];
607      $self->{genome} = [];      $self->{genome} = [];
608      $self->{genome_index} = {};      $self->{genome_index} = {};
609      $self->{variant_code} = [];      $self->{variant_code} = [];
# Line 964  Line 965 
965      return @$rlist;      return @$rlist;
966  }  }
967    
968    sub roles_with_abbreviations
969    {
970        my($self) = @_;
971    
972        my @ret;
973    
974        for my $i (0..@{$self->{roles}} - 1)
975        {
976            push(@ret, [$self->{role_abbrs}->[$i], $self->{roles}->[$i]]);
977        }
978        return @ret;
979    }
980    
981    
982  sub get_row :scalar  sub get_row :scalar
983  {  {
984      my($self, $row) = @_;      my($self, $row) = @_;

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3