[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.16, Thu Jun 17 18:31:45 2004 UTC revision 1.17, Fri Jun 18 14:48:55 2004 UTC
# Line 315  Line 315 
315      $self->load_notes();      $self->load_notes();
316      $self->load_version();      $self->load_version();
317      $self->load_exchangable();      $self->load_exchangable();
318        $self->load_curation();
319  }  }
320    
321  sub load_notes  sub load_notes
# Line 324  Line 325 
325      $self->{notes} = &FIG::file_read(File::Spec->catfile($self->{dir}, "notes"));      $self->{notes} = &FIG::file_read(File::Spec->catfile($self->{dir}, "notes"));
326  }  }
327    
328    sub load_curation
329    {
330        my($self) = @_;
331    
332        my @l = &FIG::file_head(File::Spec->catfile($self->{dir}, "curation.log"), 1);
333    
334        $_ = $l[0];
335        chomp;
336        if (/^\d+\t(\S+)\s+started/)
337        {
338            $self->{curator} = $1;
339        }
340    }
341    
342  sub load_version  sub load_version
343  {  {
344      my($self) = @_;      my($self) = @_;
# Line 659  Line 674 
674      }      }
675  }  }
676    
677    sub get_name :scalar
678    {
679        my($self) = @_;
680        return $self->{name};
681    }
682    
683    
684    sub get_version :scalar
685    {
686        my($self) = @_;
687        return $self->{version};
688    }
689    
690    sub get_curator :scalar
691    {
692        my($self) = @_;
693        return $self->{curator};
694    }
695    
696    
697  sub dump  sub dump
698  {  {
699      my($self) = @_;      my($self) = @_;

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3