[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.223, Sat Feb 12 17:20:43 2005 UTC revision 1.224, Sat Feb 12 18:18:14 2005 UTC
# Line 6859  Line 6859 
6859    
6860   my $return=['', '', ''];   my $return=['', '', ''];
6861    
6862   return $return unless (-d "$FIG_Config::data/Subsystems/$ssa/");   my $subsys=get_subsystem($ssa);
6863   if ($classification && ref($classification) eq "ARRAY") {  
6864    # append this to the end of the file. Note that appending doesn't require that the file already exist.   return $return unless ($subsys);
6865    open (OUT, ">>$FIG_Config::data/Subsystems/$ssa/CLASSIFICATION") || die "Can't open $FIG_Config::data/Subsystems/$ssa/CLASSIFICATION for appending";  
6866    print OUT join "\t", (@$classification), "\n";   $subsys->set_classification($classification) if ($classification); # this wil probably not be written, at the moment. hmmm.
6867    close OUT;  
6868   }   return $subsys->get_classification;
6869    
  return unless (-e "$FIG_Config::data/Subsystems/$ssa/CLASSIFICATION");  
  # now read the file, and return the last line we find  
  open (IN, "<$FIG_Config::data/Subsystems/$ssa/CLASSIFICATION") || die "Can't open $FIG_Config::data/Subsystems/$ssa/CLASSIFICATION for reading";  
  while (<IN>) {  
   chomp;  
   @$return = split /\t/;  
  }  
  close IN;  
  return $return;  
6870  }  }
6871    
6872  =pod  =pod

Legend:
Removed from v.1.223  
changed lines
  Added in v.1.224

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3