[Bio] / FigKernelScripts / make_timestamps.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/make_timestamps.pl

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

revision 1.3, Wed Nov 15 16:39:49 2006 UTC revision 1.4, Tue Nov 21 18:20:53 2006 UTC
# Line 26  Line 26 
26                  if (($i >= 0) && ($annotations[$i]->[3] =~ /^Set master function to\n(\S.*\S)/s))                  if (($i >= 0) && ($annotations[$i]->[3] =~ /^Set master function to\n(\S.*\S)/s))
27                  {                  {
28                      $ann_func = $1;                      $ann_func = $1;
29                      if (($curr_func eq $ann_func) && ($annotations[$i]->[2] !~ /auto|assign|repair|last|saved/i))                      if (($curr_func eq $ann_func) && ($annotations[$i]->[2] !~ /auto|assign|repair|last|saved|cleanup/i))
30                      {                      {
31                          $annotations[$i]->[2] =~ s/^master://;                          $annotations[$i]->[2] =~ s/^master://;
32                          print ASSIGN join("\t",$annotations[$i]->[0],$annotations[$i]->[1],$annotations[$i]->[2],"assigned",$ann_func),"\n";                          print ASSIGN join("\t",$annotations[$i]->[0],$annotations[$i]->[1],$annotations[$i]->[2],"assigned",$ann_func),"\n";
# Line 104  Line 104 
104    
105      foreach $peg_in (keys(%$pegH))      foreach $peg_in (keys(%$pegH))
106      {      {
107              print CONN join("\t",($peg_in,$ts,$curator,"connected",$sub)),"\n";              print CONN join("\t",($peg_in,$ts_last,$curator,"connected",$sub)),"\n";
108      }      }
109  }  }

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3