[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.46, Thu Feb 24 22:02:39 2005 UTC revision 1.47, Sat Feb 26 11:01:13 2005 UTC
# Line 467  Line 467 
467  {  {
468      my($self) = @_;      my($self) = @_;
469    
470      my @l = &FIG::file_head(File::Spec->catfile($self->{dir}, "curation.log"), 1);  #    my @l = &FIG::file_head(File::Spec->catfile($self->{dir}, "curation.log"), 1);
471    #
472    #    $_ = $l[0];
473    #    chomp;
474    
475      $_ = $l[0];      if  (open(LOG,"<$self->{dir}/curation.log"))
476      chomp;      {
477            while (defined($_ = <LOG>))
478            {
479      if (/^\d+\t(\S+)\s+started/)      if (/^\d+\t(\S+)\s+started/)
480      {      {
481          $self->{curator} = $1;          $self->{curator} = $1;
482      }      }
483  }  }
484            close(LOG);
485        }
486    }
487    
488  sub load_version  sub load_version
489  {  {

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3