[Bio] / Sprout / SearchHelper.pm Repository:
ViewVC logotype

Diff of /Sprout/SearchHelper.pm

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

revision 1.4, Mon Oct 2 03:15:37 2006 UTC revision 1.5, Mon Oct 2 06:35:31 2006 UTC
# Line 1407  Line 1407 
1407          my $loc = $sprout->FeatureLocation($feat);          my $loc = $sprout->FeatureLocation($feat);
1408          # Compute the contig, start, and stop points.          # Compute the contig, start, and stop points.
1409          my($start, $stop, $contig) = BasicLocation::Parse($loc);          my($start, $stop, $contig) = BasicLocation::Parse($loc);
1410            Trace("Start and stop are ($start,$stop) on contig $contig.") if T(3);
1411          # Now we need to do some goofiness to insure that the location is not too          # Now we need to do some goofiness to insure that the location is not too
1412          # big and that we get some surrounding stuff.          # big and that we get some surrounding stuff.
1413          my $mid = int(($start + $stop) / 2);          my $mid = int(($start + $stop) / 2);
# Line 1436  Line 1437 
1437          }          }
1438          my $seg_id = $contig;          my $seg_id = $contig;
1439          $seg_id =~ s/:/--/g;          $seg_id =~ s/:/--/g;
1440            Trace("Show limits are ($show_start,$show_stop) in genome $genomeID with ref $seg_id.") if T(3);
1441          # Assemble all the pieces.          # Assemble all the pieces.
1442          $retVal = "gbrowse.cgi/GB_$genomeID?ref=$seg_id&start=$show_start&stop=$show_stop";          $retVal = "gbrowse.cgi/GB_$genomeID?ref=$seg_id&start=$show_start&stop=$show_stop";
1443      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3