[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.2, Wed Nov 15 02:28:27 2006 UTC revision 1.3, Wed Nov 15 16:39:49 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/i))                      if (($curr_func eq $ann_func) && ($annotations[$i]->[2] !~ /auto|assign|repair|last|saved/i))
30                      {                      {
31                            $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";
33                      }                      }
34                  }                  }
# Line 45  Line 46 
46          || return ();          || return ();
47    
48      my $curator = $fig->subsystem_curator($sub);      my $curator = $fig->subsystem_curator($sub);
49        $curator =~ s/^master://;
50    
51      my @spreadsheets = sort { $b <=> $a }      my @spreadsheets = sort { $b <=> $a }
52                         map { $_ =~ /^spreadsheet.(\d+)/; $1 }                         map { $_ =~ /^spreadsheet.(\d+)/; $1 }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3