From aecaf0f8a879a9d2f7aafadc56224eb813b50f55 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Mon, 27 Oct 2008 02:44:50 +0000
Subject: [PATCH] changed delimiter in REC_TYPE SOLID to ;

git-svn-id: http://biopieces.googlecode.com/svn/trunk@278 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Biopieces.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index f7ec3ae..98ea242 100644
--- 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 ) ),
-- 
2.39.5