From 3ea6e49ec35b6b4ab69831dfc168d38911bdf671 Mon Sep 17 00:00:00 2001 From: martinahansen Date: Sat, 6 Feb 2010 18:06:21 +0000 Subject: [PATCH] fixed BGB search function git-svn-id: http://biopieces.googlecode.com/svn/trunk@866 74ccb610-7750-0410-82ae-013aeee3265d --- code_perl/Maasha/BGB/Track.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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; } -- 2.39.5