removed debug message

[biopieces.git] / bp_bin / BGB_list

diff --git a/bp_bin/BGB_list b/bp_bin/BGB_list
index 1cc1c0b1978ae3ef0b01abf0b20275fa836cdde0..7459e9f0add5b870950e460322094625f29ec712 100755 (executable)
--- a/bp_bin/BGB_list
+++ b/bp_bin/BGB_list
@@ -30,7 +30,7 @@ use warnings;
 use strict;
 use Data::Dumper;
 use Maasha::Biopieces;
-use Maasha::BGB::Common;
+use Maasha::BGB::Track;
 
 
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
@@ -54,17 +54,17 @@ while ( $record = Maasha::Biopieces::get_record( $in ) )
     Maasha::Biopieces::put_record( $record, $out );
 }
 
-Maasha::Common::error( qq(Bad user: "$options->{ 'user' }") ) if not grep /^$options->{ 'user' }$/, Maasha::BGB::Common::list_users();
+Maasha::Common::error( qq(Bad user: "$options->{ 'user' }") ) if not grep /^$options->{ 'user' }$/, Maasha::BGB::Track::list_users();
 
-foreach $clade ( Maasha::BGB::Common::list_clades( $options->{ 'user' } ) )
+foreach $clade ( Maasha::BGB::Track::list_clades( $options->{ 'user' } ) )
 {
-    foreach $genome ( Maasha::BGB::Common::list_genomes( $options->{ 'user' }, $clade ) )
+    foreach $genome ( Maasha::BGB::Track::list_genomes( $options->{ 'user' }, $clade ) )
     {
-        foreach $assembly ( Maasha::BGB::Common::list_assemblies( $options->{ 'user' }, $clade, $genome ) )
+        foreach $assembly ( Maasha::BGB::Track::list_assemblies( $options->{ 'user' }, $clade, $genome ) )
         {
-            foreach $contig ( Maasha::BGB::Common::list_contigs( $options->{ 'user' }, $clade, $genome, $assembly ) )
+            foreach $contig ( Maasha::BGB::Track::list_contigs( $options->{ 'user' }, $clade, $genome, $assembly ) )
             {
-                foreach $track ( Maasha::BGB::Common::list_tracks( $options->{ 'user' }, $clade, $genome, $assembly, $contig ) ) {
+                foreach $track ( Maasha::BGB::Track::list_tracks( $options->{ 'user' }, $clade, $genome, $assembly, $contig ) ) {
                     $dir_hash->{ $options->{ 'user' } }->{ $clade }->{ $genome }->{ $assembly }->{ $track } = 1;
                 }
             }