[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.1, Wed Nov 15 00:06:35 2006 UTC revision 1.4, Tue Nov 21 18:20:53 2006 UTC
# Line 1  Line 1 
 ########################################################################  
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3    
# Line 27  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|cleanup/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 46  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 }
# Line 86  Line 87 
87                          }                          }
88                      }                      }
89                  }                  }
90                }
91    
92                  foreach $peg_in (keys(%$pegH))                  foreach $peg_in (keys(%$pegH))
93                  {                  {
94                      if (! $hash->{$peg_in})                      if (! $hash->{$peg_in})
95                      {                      {
96                          print CONN join("\t",($peg_in,$ts_last,$curator,"connected",$sub)),"\n";                          print CONN join("\t",($peg_in,$ts_last,$curator,"connected",$sub)),"\n";
97                          delete($pegH->{$pag_in});                      delete($pegH->{$peg_in});
                     }  
98                  }                  }
99              }              }
100              close(SS);              close(SS);
# Line 103  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.1  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3