[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.56, Wed Mar 31 16:32:22 2004 UTC revision 1.57, Wed Mar 31 18:39:15 2004 UTC
# Line 2985  Line 2985 
2985              {              {
2986                  $ann = $self->read_annotation($fileno,$seek,$len);                  $ann = $self->read_annotation($fileno,$seek,$len);
2987    
2988                  if (($ann =~ /^(fig\|\d+\.\d+\.peg\.\d+)\n(\d+)\n(\S+)\n(.*\S)/s) &&                  if ($ann =~ /^(fig\|\d+\.\d+\.peg\.\d+)\n(\d+)\n(\S+)\n(.*\S)/s)
                     (($who eq $3) || (($4 eq "master ") && ($who eq "master"))) &&  
                     ($2 >= $epoch_date))  
2989                  {                  {
2990                      push(@annotations,[$1,$2,$3,$4]);                      push(@annotations,[$1,$2,$3,$4]);
2991                  }                  }
# Line 4466  Line 4464 
4464              }              }
4465              close(NOTES);              close(NOTES);
4466          }          }
4467    
4468            if ($notes->[$#{$notes}] ne "\n") { push(@$notes,"\n") }
4469          push(@$notes,"//\n");          push(@$notes,"//\n");
4470      }      }
4471      return ($spreadsheet,$notes);      return ($spreadsheet,$notes);

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3