[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.114, Fri Sep 21 14:16:06 2007 UTC revision 1.115, Sun Sep 30 23:08:43 2007 UTC
# Line 1163  Line 1163 
1163    
1164      if  (open(LOG,"<$self->{dir}/curation.log"))      if  (open(LOG,"<$self->{dir}/curation.log"))
1165      {      {
1166            my $last = 0;
1167          while (defined($_ = <LOG>))          while (defined($_ = <LOG>))
1168          {          {
1169              if (/^\d+\t(\S+)\s+started/)              if (/^(\d+)\t(\S+)\s+started/)
1170              {              {
1171                  $self->{curator} = $1;                  $self->{curator} = $2;
1172                    $self->{created} = $1;
1173                }
1174                if ((/^(\d+)/) && ($1 > $last))
1175                {
1176                    $last = $1;
1177              }              }
1178          }          }
1179          close(LOG);          close(LOG);
1180            if ($last) { $self->{last_updated} = $last; }
1181      }      }
1182  }  }
1183    
# Line 3575  Line 3582 
3582      return $self->{curator};      return $self->{curator};
3583  }  }
3584    
3585    sub get_created
3586    {
3587        my($self) = @_;
3588        return $self->{created};
3589    }
3590    
3591    sub get_last_updated
3592    {
3593        my($self) = @_;
3594        return $self->{last_updated};
3595    }
3596    
3597  #  #
3598  # Subsystem copying logic  # Subsystem copying logic
3599  #  #

Legend:
Removed from v.1.114  
changed lines
  Added in v.1.115

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3