[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.108, Mon Jun 11 17:37:59 2007 UTC revision 1.109, Thu Jun 14 19:46:50 2007 UTC
# Line 924  Line 924 
924  {  {
925      my($self) = @_;      my($self) = @_;
926    
927      $self->{notes} = Tracer::GetFile(File::Spec->catfile($self->{dir}, "notes"));      $self->{notes} = &FIG::file_read(File::Spec->catfile($self->{dir}, "notes"));
928  }  }
929    
930  sub load_hope_kegg_info  sub load_hope_kegg_info
# Line 977  Line 977 
977  {  {
978      my($self) = @_;      my($self) = @_;
979    
980      $self->{hope_curation_notes} = Tracer::GetFile(File::Spec->catfile($self->{dir}, "hope_curation_notes"));      $self->{hope_curation_notes} = &FIG::file_read(File::Spec->catfile($self->{dir}, "hope_curation_notes"));
981  }  }
982    
983  sub load_reactions  sub load_reactions
# Line 1073  Line 1073 
1073  {  {
1074      my($self) = @_;      my($self) = @_;
1075    
1076      my $class = Tracer::GetFile(File::Spec->catfile($self->{dir}, "CLASSIFICATION"));      my $class = &FIG::file_read(File::Spec->catfile($self->{dir}, "CLASSIFICATION"));
1077      if ($class) {$self->{classification} = [split /\t/, $class]} else {$self->{classification} = ['', '', '']}      if ($class) {$self->{classification} = [split /\t/, $class]} else {$self->{classification} = ['', '', '']}
1078  }  }
1079    

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3