changed delimiter in REC_TYPE SOLID to ;

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

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index f7ec3ae86c57ce23f361d85e9b77b1c8b2a95b97..98ea2422311c4f56bbc696fc059cfe145dfc3419 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -2022,7 +2022,7 @@ sub script_read_solid
                 REC_TYPE   => 'SOLID',
                 SEQ_NAME   => $seq_name,
                 SEQ_CS     => $seq_cs,
-                SEQ_QUAL   => $seq_qual,
+                SEQ_QUAL   => join( ";", @scores ),
                 SEQ_LEN    => length $seq_cs,
                 SEQ        => join( "", @seqs ),
                 SCORE_MEAN => sprintf( "%.2f", Maasha::Calc::mean( \@scores ) ),