From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Sat, 6 Feb 2010 18:06:21 +0000 (+0000)
Subject: fixed BGB search function
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3ea6e49ec35b6b4ab69831dfc168d38911bdf671;p=biopieces.git

fixed BGB search function

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

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 4435fca..a7bed79 100644
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -559,7 +559,7 @@ sub search_tracks
 
     # Returns a list.
 
-    my ( $search_track, $search_term, $contig, @tracks, $track, $file, $features, $track_name, $nc_list );
+    my ( $search_track, $search_term, $contig, @tracks, $track, $file, @features, $track_name, $nc_list );
 
     if ( $cookie->{ 'SEARCH' } =~ /^(.+)\s+track:\s*(.+)/i )
     {
@@ -594,11 +594,11 @@ sub search_tracks
         if ( -f $file )
         {
             $nc_list  = Maasha::NClist::nc_list_retrieve( $file );
-            $features = Maasha::NClist::nc_list_search( $nc_list, $search_term, 12 );
+            push @features, Maasha::NClist::nc_list_search( $nc_list, $search_term, 12 );
         }
     }
 
-    return wantarray ? @{ $features } : $features;
+    return wantarray ? @features : \@features;
 }