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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.367, Sun Sep 11 17:02:40 2005 UTC revision 1.368, Wed Sep 14 20:04:19 2005 UTC
# Line 10526  Line 10526 
10526    
10527   my $return=['', ''];   my $return=['', ''];
10528    
10529   if ($ssa && $classification) {   if ($ssa && $classification->[0]) {
10530      return $return unless (-e "$FIG_Config::data/Subsystems/$ssa/");      return $return unless (-e "$FIG_Config::data/Subsystems/$ssa/");
10531      if (open(SSA,">$FIG_Config::data/Subsystems/$ssa/CLASSIFICATION")) {      if (open(SSA,">$FIG_Config::data/Subsystems/$ssa/CLASSIFICATION")) {
10532       print SSA join("\t", @$classification), "\n";       print SSA join("\t", @$classification), "\n";
# Line 10540  Line 10540 
10540   #return $subsys->get_classification;   #return $subsys->get_classification;
10541   if (open(SSA,"<$FIG_Config::data/Subsystems/$ssa/CLASSIFICATION")) {   if (open(SSA,"<$FIG_Config::data/Subsystems/$ssa/CLASSIFICATION")) {
10542      my @line;      my @line;
10543      while (<SSA>) {chomp; @line=split /\t/}      while (<SSA>) {
10544         chomp;
10545         my @thisline=split /\t/;
10546         if ($thisline[0] || $thisline[1]) {@line=@thisline}
10547        }
10548      $line[0]='' unless (defined $line[0]);      $line[0]='' unless (defined $line[0]);
10549      $line[1]='' unless (defined $line[1]);      $line[1]='' unless (defined $line[1]);
10550      return [$line[0], $line[1]];      return [$line[0], $line[1]];

Legend:
Removed from v.1.367  
changed lines
  Added in v.1.368

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3