fixed issue in KISS.pm but more found

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

diff --git a/code_perl/Maasha/KISS.pm b/code_perl/Maasha/KISS.pm
index e4ac684c6548c5d182c155c3e751573b7fa93a9e..5b5bca750b741ef3a13e66e0e0a57c916a5755fd 100644 (file)
--- a/code_perl/Maasha/KISS.pm
+++ b/code_perl/Maasha/KISS.pm
@@ -681,7 +681,7 @@ sub biopiece2kiss
     $entry->[ HITS ]        = $record->{ 'HITS' }        || ".";
     $entry->[ ALIGN ]       = $record->{ 'ALIGN' }       || $record->{ 'DESCRIPTOR' } || ".";
     $entry->[ BLOCK_COUNT ] = $record->{ 'BLOCK_COUNT' } || ".";
-    $entry->[ BLOCK_BEGS ]  = $record->{ 'BLOCK_BEGS' }  || ".";
+    $entry->[ BLOCK_BEGS ]  = $record->{ 'BLOCK_BEGS' }  || $record->{ 'Q_BEGS' } || ".";
     $entry->[ BLOCK_LENS ]  = $record->{ 'BLOCK_LENS' }  || ".";
     $entry->[ BLOCK_TYPE ]  = $record->{ 'BLOCK_TYPE' }  || ".";