[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.2, Wed Nov 15 02:28:27 2006 UTC
# Line 1  Line 1 
 ########################################################################  
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3    
# Line 86  Line 85 
85                          }                          }
86                      }                      }
87                  }                  }
88                }
89    
90                  foreach $peg_in (keys(%$pegH))                  foreach $peg_in (keys(%$pegH))
91                  {                  {
92                      if (! $hash->{$peg_in})                      if (! $hash->{$peg_in})
93                      {                      {
94                          print CONN join("\t",($peg_in,$ts_last,$curator,"connected",$sub)),"\n";                          print CONN join("\t",($peg_in,$ts_last,$curator,"connected",$sub)),"\n";
95                          delete($pegH->{$pag_in});                      delete($pegH->{$peg_in});
                     }  
96                  }                  }
97              }              }
98              close(SS);              close(SS);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3