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 4435fca23cff339877d38d29c288378389a0ee79..a7bed791c44e973eab3d5366d33b1b2a8815b9f4 100644 (file)
--- 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;
 }