changed kiss score to bit_score instead of eval

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

diff --git a/code_perl/Maasha/KISS.pm b/code_perl/Maasha/KISS.pm
index 7cfdbcd86ba62a8cc5648f90b53e387595d8943c..110d701cc3f792e6c1ea5fcd27839f2d798afa80 100644 (file)
--- a/code_perl/Maasha/KISS.pm
+++ b/code_perl/Maasha/KISS.pm
@@ -624,7 +624,7 @@ sub biopiece2kiss
     $entry->[ S_BEG ]       = $record->{ 'S_BEG' };
     $entry->[ S_END ]       = $record->{ 'S_END' };
     $entry->[ Q_ID ]        = $record->{ 'Q_ID' }        || ".";
-    $entry->[ SCORE ]       = $record->{ 'SCORE' }       || $record->{ 'E_VAL' } || ".";
+    $entry->[ SCORE ]       = $record->{ 'SCORE' }       || $record->{ 'BIT_SCORE' } || ".";
     $entry->[ STRAND ]      = $record->{ 'STRAND' }      || ".";
     $entry->[ HITS ]        = $record->{ 'HITS' }        || ".";
     $entry->[ ALIGN ]       = $record->{ 'ALIGN' }       || $record->{ 'DESCRIPTOR' } || ".";