X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bp_bin%2FBGB_list;h=7459e9f0add5b870950e460322094625f29ec712;hb=8d375c58a048400bc06ce223bbb3315060b3b471;hp=1cc1c0b1978ae3ef0b01abf0b20275fa836cdde0;hpb=21ae8a4a90a4ba3e7990eefa38b1ef09a43d6308;p=biopieces.git

diff --git a/bp_bin/BGB_list b/bp_bin/BGB_list
index 1cc1c0b..7459e9f 100755
--- 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;
                 }
             }