From c05a7382a8c4337a7838198a99d73ee565af1a6b Mon Sep 17 00:00:00 2001 From: martinahansen Date: Tue, 26 Jan 2010 16:07:06 +0000 Subject: [PATCH] fixed a number of issues - grave bug in complement_seq! git-svn-id: http://biopieces.googlecode.com/svn/trunk@850 74ccb610-7750-0410-82ae-013aeee3265d --- bp_bin/BGB_upload | 2 +- bp_bin/complement_seq | 4 ++-- code_perl/Maasha/BGB/Draw.pm | 14 ++++++++++++++ 3 files changed, 17 insertions(+), 3 deletions(-) diff --git a/bp_bin/BGB_upload b/bp_bin/BGB_upload index a88576c..ba8b9d0 100755 --- a/bp_bin/BGB_upload +++ b/bp_bin/BGB_upload @@ -121,7 +121,7 @@ else Maasha::Common::error( qq(Path not found: "$path") ) if not -d $path; - $dst_dir = Maasha::Filesys::dir_create( "$path/$options->{ 'genome' }" ); + $dst_dir = Maasha::Filesys::dir_create_if_not_exists( "$path/$options->{ 'genome' }" ); $dst_dir = Maasha::Filesys::dir_create( "$dst_dir/$options->{ 'assembly' }" ); while ( $record = Maasha::Biopieces::get_record( $in ) ) diff --git a/bp_bin/complement_seq b/bp_bin/complement_seq index 348e058..10a3a04 100755 --- a/bp_bin/complement_seq +++ b/bp_bin/complement_seq @@ -50,9 +50,9 @@ while ( $record = Maasha::Biopieces::get_record( $in ) ) $type = Maasha::Seq::seq_guess_type( $record->{ "SEQ" } ); } - if ( $type eq "rna" ) { + if ( $type eq "RNA" ) { Maasha::Seq::rna_comp( \$record->{ "SEQ" } ); - } elsif ( $type eq "dna" ) { + } elsif ( $type eq "DNA" ) { Maasha::Seq::dna_comp( \$record->{ "SEQ" } ); } } diff --git a/code_perl/Maasha/BGB/Draw.pm b/code_perl/Maasha/BGB/Draw.pm index 7053aa4..907b817 100644 --- a/code_perl/Maasha/BGB/Draw.pm +++ b/code_perl/Maasha/BGB/Draw.pm @@ -120,6 +120,20 @@ sub palette [ 130, 70, 70 ], [ 70, 170, 130 ], [ 130, 170, 50 ], + [ 30, 130, 130 ], + [ 30, 50, 150 ], + [ 130, 130, 50 ], + [ 130, 90, 130 ], + [ 130, 70, 70 ], + [ 70, 170, 130 ], + [ 130, 170, 50 ], + [ 30, 130, 130 ], + [ 30, 50, 150 ], + [ 130, 130, 50 ], + [ 130, 90, 130 ], + [ 130, 70, 70 ], + [ 70, 170, 130 ], + [ 130, 170, 50 ], ]; $color = $palette->[ $i ]; -- 2.39.5