fixed bowtie_seq

[biopieces.git] / code_perl / Maasha / UCSC / BED.pm

diff --git a/code_perl/Maasha/UCSC/BED.pm b/code_perl/Maasha/UCSC/BED.pm
index 6bfa590b364d486f8202ddc454793b24d5fbc21d..3f4784a69059a1b3848232c2c34893053b6df62d 100644 (file)
--- a/code_perl/Maasha/UCSC/BED.pm
+++ b/code_perl/Maasha/UCSC/BED.pm
@@ -506,6 +506,8 @@ sub biopiece2bed
 
     if ( exists $bp_record->{ "SCORE" } ) {
         $bed_entry[ score ] = $bp_record->{ "SCORE" };
+    } elsif ( exists $bp_record->{ "SCORE_MEAN" } ) {
+        $bed_entry[ score ] = sprintf( "%.0f", $bp_record->{ "SCORE_MEAN" } );
     } else {
         return wantarray ? @bed_entry : \@bed_entry;
     }