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

Diff of /FigKernelScripts/generate_partitions_worker.pl

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

revision 1.3, Thu Oct 8 19:00:18 2009 UTC revision 1.4, Thu Nov 11 17:39:53 2010 UTC
# Line 60  Line 60 
60      my $cond = "fam = '".$_."'";      my $cond = "fam = '".$_."'";
61      my $x = $dbf->SQL("select fam from tmp_sync_partitions where $cond");      my $x = $dbf->SQL("select fam from tmp_sync_partitions where $cond");
62    
63  #    if (($_ =~ /(FIG\d{6})/) && (! $done_fam{$1}))  #    if (($_ =~ /(FIG\d+)/) && (! $done_fam{$1}))
64      if (($_ =~ /(FIG\d{6})/) && (! $done_fam{$1}) && (! scalar @$x > 0))      if (($_ =~ /(FIG\d+)/) && (! $done_fam{$1}) && (! scalar @$x > 0))
65      {      {
66          my $ff = $1;          my $ff = $1;
67          print STDERR "$proc processing $ff\n";          print STDERR "$proc processing $ff\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3