repair on plot_karyogram

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

diff --git a/code_perl/Maasha/Plot.pm b/code_perl/Maasha/Plot.pm
index 682c46fb383b932505e1d3652b5ebe50de841cd7..906b7ac8daf6660eb21d5652b92f9a18e68247aa 100644 (file)
--- a/code_perl/Maasha/Plot.pm
+++ b/code_perl/Maasha/Plot.pm
@@ -502,10 +502,10 @@ sub chromosome_layout
         map { $_->[ 0 ] *= $factor; $_->[ 1 ] *= $factor } @{ $feat_list->{ $feat } };
     }
 
-#    @list = sort { $A = $a; $B = $b; $A =~ s/chr//; $B =~ s/chr//; $A <=> $B } keys %{ $karyo_list };
+    @list = sort { $A = $a; $B = $b; $A =~ s/chr//; $B =~ s/chr//; $A <=> $B } keys %{ $karyo_list };
 
-#    splice @list, 0, 2;
-#    push @list, "chrX", "chrY";
+    splice @list, 0, 2;
+    push @list, "chrX", "chrY";
 
     $i = 0;