fixed bugs in BGB

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

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 071c284a32d838962dad531f43a788fa95b787b6..44ce5d05a66c2c9234a0a43138a741647cb060eb 100644 (file)
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -545,7 +545,7 @@ sub search_tracks
 
     # Returns a list.
 
-    my ( $search_track, $search_term, $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, $track_name );
 
     if ( $cookie->{ 'SEARCH' } =~ /^(.+)\s+track:\s*(.+)/i )
     {
@@ -566,10 +566,15 @@ sub search_tracks
         push @tracks, path_tracks( $cookie );
     }
 
-    @tracks = grep /$search_track/i, @tracks if $search_track;
-
     foreach $track ( @tracks )
     {
+        if ( $search_track )
+        {
+            $track_name = ( split "/", $track )[ -1 ];
+
+            next if $track_name !~ /$search_track/;
+        }
+
         $file = "$track/track_data.kiss";
       
         if ( -f $file )

diff --git a/code_perl/Maasha/KISS.pm b/code_perl/Maasha/KISS.pm
index 539e501412104e531a86ceac316d2ba73021d965..9595475b894a0f54e4d28849bd9eaf69d9a8f2cc 100644 (file)
--- a/code_perl/Maasha/KISS.pm
+++ b/code_perl/Maasha/KISS.pm
@@ -195,7 +195,7 @@ sub kiss_sort
 
     # Returns nothing.
 
-    `sort -k 2,2n -k 3,3n $file > $file.sort`;
+    `sort -k 2,2n -k 3,3nr $file > $file.sort`;
 
     rename "$file.sort", $file;
 }