added track label to search function in BGB

git-svn-id: http://biopieces.googlecode.com/svn/trunk@815 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 11f583ac48dc6228b57edea5892c23ad990ee51c..1dfb4dfc6d943ca69c2dbe3b6eecfad340ace390 100644 (file)
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -541,7 +541,19 @@ sub search_tracks
 
     # Returns a list.
 
-    my ( $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 );
+
+    if ( $cookie->{ 'SEARCH' } =~ /^(.+)\s+track:\s*(.+)/i )
+    {
+        $search_term  = $1;
+        $search_track = $2;
+
+        $search_track =~ tr/ /_/;
+    }
+    else
+    {
+        $search_term = $cookie->{ 'SEARCH' };
+    }
 
     foreach $contig ( @{ $cookie->{ 'LIST_CONTIG' } } )
     {
@@ -550,6 +562,8 @@ sub search_tracks
         push @tracks, path_tracks( $cookie );
     }
 
+    @tracks = grep /$search_track/i, @tracks if $search_track;
+
     foreach $track ( @tracks )
     {
         $file = "$track/track_data.kiss";
@@ -562,7 +576,7 @@ sub search_tracks
             {
                 chomp $line;
 
-                if ( $line =~ /$cookie->{ 'SEARCH' }/i )
+                if ( $line =~ /$search_term/i )
                 {
                     $entry = Maasha::KISS::kiss_entry_parse( $line );