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

Diff of /FigKernelScripts/load_features.pl

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

revision 1.1, Mon Dec 1 20:46:40 2003 UTC revision 1.3, Tue Dec 23 19:43:42 2003 UTC
# Line 61  Line 61 
61  else  else
62  {  {
63      @genomes = @ARGV;      @genomes = @ARGV;
64        foreach $genome (@genomes)
65        {
66            $dbf->SQL("DELETE FROM features WHERE ( genome = \'$genome\' )");
67        }
68  }  }
69    
70  foreach $genome (@genomes)  foreach $genome (@genomes)
# Line 108  Line 112 
112                      }                      }
113                      $minloc = (! $minloc) ? 0 : $minloc;                      $minloc = (! $minloc) ? 0 : $minloc;
114                      $maxloc = (! $maxloc) ? 0 : $maxloc;                      $maxloc = (! $maxloc) ? 0 : $maxloc;
115                        if ((length($loc) < 5000) && (length($contig) < 96) && (length($id) < 32))
116                        {
117                      print REL "$id\t$type\t$genome\t$loc\t$contig\t$minloc\t$maxloc\t$aliases\n";                      print REL "$id\t$type\t$genome\t$loc\t$contig\t$minloc\t$maxloc\t$aliases\n";
118                  }                  }
119              }              }
120                }
121              close(TBL);              close(TBL);
122          }          }
123      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3