[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.11, Mon Aug 16 22:10:55 2004 UTC revision 1.12, Fri Aug 20 17:37:58 2004 UTC
# Line 95  Line 95 
95      }      }
96  }  }
97    
98    my $changes = {};
99    if (open(TMP,"<$FIG_Config::global/changed.location.features"))
100    {
101        while ($_ = <TMP>)
102        {
103            if ($_ =~ /^(fig\|\d+\.\d+\.[a-zA-Z]+\.\d+)/)
104            {
105                $changes->{$1}++;
106            }
107        }
108        close(TMP);
109    }
110    
111  foreach $genome (@genomes)  foreach $genome (@genomes)
112  {  {
113      opendir(FEAT,"$organisms_dir/$genome/Features")      opendir(FEAT,"$organisms_dir/$genome/Features")
# Line 112  Line 125 
125              {              {
126                  chop;                  chop;
127                  ($id,$loc,@aliases) = split(/\t/,$_);                  ($id,$loc,@aliases) = split(/\t/,$_);
128    
129                    if ($id && ($_ = $changes->{$id}))   # check for obsolete entries due to location changes
130                    {
131                        $changes->{$id}--;
132                        next;
133                    }
134    
135                  if ($id)                  if ($id)
136                  {                  {
137                      my($minloc,$maxloc);                      my($minloc,$maxloc);

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3