From be2fb07116248e65d8ddb8641c6bab98e97ef48d Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Tue, 15 Dec 2009 11:15:39 +0000
Subject: [PATCH] added track label to search function in BGB

git-svn-id: http://biopieces.googlecode.com/svn/trunk@815 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/BGB/Track.pm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 11f583a..1dfb4df 100644
--- 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 );
 
-- 
2.39.5