changed upper/lower case output in assemble_pairs

[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 eb8beac9522706d66c92afe41ee4e08ff54011a0..d689f9c6fc2682f2a03db14517e49c890085e413 100644 (file)
--- a/code_perl/Maasha/UCSC/BED.pm
+++ b/code_perl/Maasha/UCSC/BED.pm
@@ -505,6 +505,8 @@ sub biopiece2bed
 
     if ( exists $bp_record->{ "SCORE" } ) {
         $bed_entry[ score ] = $bp_record->{ "SCORE" };
+    } elsif ( exists $bp_record->{ "BIT_SCORE" } ) {
+        $bed_entry[ score ] = $bp_record->{ "BIT_SCORE" };
     } else {
         return wantarray ? @bed_entry : \@bed_entry;
     }