[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.333, Thu Aug 4 01:27:25 2005 UTC revision 1.334, Thu Aug 4 18:28:36 2005 UTC
# Line 541  Line 541 
541  =cut  =cut
542  #: Return Type ;  #: Return Type ;
543  sub enqueue_similarities {  sub enqueue_similarities {
544        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
545      my($fids) = @_;      my($fids) = @_;
546      my $fid;      my $fid;
547    
# Line 6574  Line 6575 
6575    
6576  =head3 add_annotation  =head3 add_annotation
6577    
6578  usage: $fig->add_annotation($fid,$user,$annotation)  usage: $fig->add_annotation($fid,$user,$annotation,$time_made)
6579    
6580  $annotation is added as a time-stamped annotation to $peg showing $user as the  $annotation is added as a time-stamped annotation to $peg showing $user as the
6581  individual who added the annotation.  individual who added the annotation.
6582    
6583    If $time_made is set, it will be used as the time of annotation instead
6584    of the current time. It is a numeric time in seconds-since-the-epoch.
6585    
6586  =cut  =cut
6587    
6588  sub add_annotation {  sub add_annotation {
6589      my($self,$feature_id,$user,$annotation) = @_;      my($self,$feature_id,$user,$annotation, $time_made) = @_;
6590      my($genome);      my($genome);
6591    
6592        $time_made = time unless $time_made =~ /^\d+$/;
6593    
6594      if ($self->is_deleted_fid($feature_id)) { return 0 }      if ($self->is_deleted_fid($feature_id)) { return 0 }
6595    
6596  #   print STDERR "add: fid=$feature_id user=$user annotation=$annotation\n";  #   print STDERR "add: fid=$feature_id user=$user annotation=$annotation\n";
# Line 6592  Line 6598 
6598      {      {
6599          my $file = "$FIG_Config::organisms/$genome/annotations";          my $file = "$FIG_Config::organisms/$genome/annotations";
6600          my $fileno = $self->file2N($file);          my $fileno = $self->file2N($file);
         my $time_made = time;  
6601          my $ma   = ($annotation =~ /^Set master function to/);          my $ma   = ($annotation =~ /^Set master function to/);
6602    
6603    

Legend:
Removed from v.1.333  
changed lines
  Added in v.1.334

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3