fixed bugs in BGB

[biopieces.git] / code_perl / Maasha / BGB / Track.pm

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 071c284a32d838962dad531f43a788fa95b787b6..44ce5d05a66c2c9234a0a43138a741647cb060eb 100644 (file)
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -545,7 +545,7 @@ sub search_tracks
 
     # Returns a list.
 
-    my ( $search_track, $search_term, $contig, @tracks, $track, $file, $line, $out_file, $fh, $entry, @entries );
+    my ( $search_track, $search_term, $contig, @tracks, $track, $file, $line, $out_file, $fh, $entry, @entries, $track_name );
 
     if ( $cookie->{ 'SEARCH' } =~ /^(.+)\s+track:\s*(.+)/i )
     {
@@ -566,10 +566,15 @@ sub search_tracks
         push @tracks, path_tracks( $cookie );
     }
 
-    @tracks = grep /$search_track/i, @tracks if $search_track;
-
     foreach $track ( @tracks )
     {
+        if ( $search_track )
+        {
+            $track_name = ( split "/", $track )[ -1 ];
+
+            next if $track_name !~ /$search_track/;
+        }
+
         $file = "$track/track_data.kiss";
       
         if ( -f $file )