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

Diff of /FigKernelScripts/load_attributes.pl

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

revision 1.14, Thu Jun 9 05:51:06 2005 UTC revision 1.15, Sat Jul 9 14:01:45 2005 UTC
# Line 174  Line 174 
174                  print "$stderr\tWe have ", scalar keys %kv, " attributes to add for ", $fig->genus_species($genome), " ($genome)\n";                  print "$stderr\tWe have ", scalar keys %kv, " attributes to add for ", $fig->genus_species($genome), " ($genome)\n";
175      }      }
176    
177      if (open(TMPATTR,">$FIG_Config::temp/load_attributes_tmp$$"))      if (open(TMPATTR,"| sort -u > $FIG_Config::temp/load_attributes_tmp$$"))
178      {      {
179              my($pegK,$k,$v);              my($pegK,$k,$v);
180              foreach $pegK (sort keys(%kv))              foreach $pegK (sort keys(%kv))
# Line 190  Line 190 
190              my $result = $dbf->load_table( tbl => "attribute",              my $result = $dbf->load_table( tbl => "attribute",
191                                file => "$FIG_Config::temp/load_attributes_tmp$$" );                                file => "$FIG_Config::temp/load_attributes_tmp$$" );
192                  if ($verbose == 2) {                  if ($verbose == 2) {
193                          print STDERR "Got $result for ", $fig->genus_species($genome), "\n"                  print STDERR "Got $result for ", $fig->genus_species($genome), "\n";
194                  }                  }
195          if (!$keep)          if (!$keep)
196              {              {

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3