[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.165, Mon Oct 11 18:46:45 2004 UTC revision 1.166, Mon Oct 11 21:38:58 2004 UTC
# Line 7669  Line 7669 
7669      }      }
7670    
7671      my @tmp = grep { ($_ =~ /^(\S+)/) && ($1 eq $fid) } `grep '$fid' $FIG_Config::organisms/$genome/Features/$type/tbl`;      my @tmp = grep { ($_ =~ /^(\S+)/) && ($1 eq $fid) } `grep '$fid' $FIG_Config::organisms/$genome/Features/$type/tbl`;
7672      if (@tmp == 1)      if (@tmp > 0)
7673      {      {
7674          $x = $tmp[0];          $x = $tmp[$#tmp];
7675          my @flds = split(/\t/,$x);          my @flds = split(/\t/,$x);
7676          shift @flds;          shift @flds;
7677          shift @flds;          shift @flds;
# Line 7684  Line 7684 
7684                                         maxloc = $end                                         maxloc = $end
7685                                     WHERE id = '$fid'");                                     WHERE id = '$fid'");
7686    
7687            if (my $locations = $self->cached('_location'))
7688            {
7689                $locations->{$fid} = $location;
7690            }
7691    
7692          open(TMP,">>$FIG_Config::global/changed.location.features")          open(TMP,">>$FIG_Config::global/changed.location.features")
7693              || die "could not open $FIG_Config::global/changed.location.features";              || die "could not open $FIG_Config::global/changed.location.features";
7694    

Legend:
Removed from v.1.165  
changed lines
  Added in v.1.166

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3