[Bio] / FigKernelPackages / P2P.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/P2P.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25, Mon Jan 10 22:56:49 2005 UTC revision 1.26, Tue Jan 11 14:06:18 2005 UTC
# Line 324  Line 324 
324    
325                  if ($peg =~ /^fig\|/ and $ts =~ /^\d+$/)                  if ($peg =~ /^fig\|/ and $ts =~ /^\d+$/)
326                  {                  {
327                      my $ent = [$peg, $ts, $author, $anno];                      #
328                        # The last field marks this as an "old" annotation, so we don't
329                        # log its installation later.
330                        #
331                        my $ent = [$peg, $ts, $author, $anno, 1];
332                      push(@annos, $ent);                      push(@annos, $ent);
333    
334                      if (defined($assignments->{$peg}))                      if (defined($assignments->{$peg}))
# Line 357  Line 361 
361              #              #
362              # Sort the existing annotations for this peg by date.              # Sort the existing annotations for this peg by date.
363              #              #
364              # Recall that this list has entries [$peg, $timestamp, $author, $anno]              # Recall that this list has entries [$peg, $timestamp, $author, $anno, $old_flag]
365              #              #
366    
367              my @eannos;              my @eannos;
# Line 443  Line 447 
447              {              {
448                  my $peg = $ann->[0];                  my $peg = $ann->[0];
449                  my $l = "$cgi_url/protein.cgi?prot=$peg";                  my $l = "$cgi_url/protein.cgi?prot=$peg";
450                    if (!$ann->[4])
451                    {
452                  print $html_fh "<tr>" . join("\n", map { "<td>$_</td>" }                  print $html_fh "<tr>" . join("\n", map { "<td>$_</td>" }
453                                               "<a href=\"$l\">$peg</a>",                                               "<a href=\"$l\">$peg</a>",
454                                               scalar(localtime($ann->[1])), $ann->[2], $ann->[3])                                               scalar(localtime($ann->[1])), $ann->[2], $ann->[3])
455                      . "</tr>\n";                      . "</tr>\n";
456                    }
457    
458                  print $outfh "$txt\n//\n";                  print $outfh "$txt\n//\n";
459                  $last = $txt;                  $last = $txt;

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3