added ID to SCORE alias in KISS.pm

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

diff --git a/code_perl/Maasha/KISS.pm b/code_perl/Maasha/KISS.pm
index b304b025f601e1151b7774e99c3ec48bb9742028..35d21108d9b853f59dd74738278a29a9054d4fd5 100644 (file)
--- a/code_perl/Maasha/KISS.pm
+++ b/code_perl/Maasha/KISS.pm
@@ -709,7 +709,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->{ 'BIT_SCORE' } || ".";
+    $entry->[ SCORE ]       = $record->{ 'SCORE' }       || $record->{ 'BIT_SCORE' } || $record->{ 'ID' } || ".";
     $entry->[ STRAND ]      = $record->{ 'STRAND' }      || ".";
     $entry->[ HITS ]        = $record->{ 'HITS' }        || ".";
     $entry->[ ALIGN ]       = $record->{ 'ALIGN' }       || $record->{ 'DESCRIPTOR' } || ".";