added REC_TYPE to read_solid

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

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index edaccbb6b4e988a0f3fc08d91ee1d6b37595c440..f7ec3ae86c57ce23f361d85e9b77b1c8b2a95b97 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -2019,6 +2019,7 @@ sub script_read_solid
             }
 
             $record = {
+                REC_TYPE   => 'SOLID',
                 SEQ_NAME   => $seq_name,
                 SEQ_CS     => $seq_cs,
                 SEQ_QUAL   => $seq_qual,