From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 5 Feb 2010 12:55:30 +0000 (+0000)
Subject: fixed bugs in BGB
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fe9401db4ce2c12fed57aebfa88ec42cb65507ce;p=biopieces.git

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 071c284..44ce5d0 100644
--- 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 539e501..9595475 100644
--- 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;
 }