refactoring of assemble_pairs

[biopieces.git] / bp_bin / BGB_delete_track

diff --git a/bp_bin/BGB_delete_track b/bp_bin/BGB_delete_track
index c2595522765ac9b2272763d5d5fbae71c4b48247..390b5f4933c569676c8816446a2b35cecdfd08a9 100755 (executable)
--- a/bp_bin/BGB_delete_track
+++ b/bp_bin/BGB_delete_track
@@ -32,7 +32,7 @@ use Data::Dumper;
 use Maasha::Common;
 use Maasha::Filesys;
 use Maasha::Biopieces;
-use Maasha::BGB::Common;
+use Maasha::BGB::Track;
 
 
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
@@ -60,13 +60,13 @@ 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();
 
-@contigs = Maasha::BGB::Common::list_contigs( $options->{ 'user' }, $options->{ 'clade' }, $options->{ 'genome' }, $options->{ 'assembly' } );
+@contigs = Maasha::BGB::Track::list_contigs( $options->{ 'user' }, $options->{ 'clade' }, $options->{ 'genome' }, $options->{ 'assembly' } );
 
 foreach $contig ( @contigs )
 {
-    @tracks = Maasha::BGB::Common::list_track_dir( $options->{ 'user' }, $options->{ 'clade' }, $options->{ 'genome' }, $options->{ 'assembly' }, $contig );
+    @tracks = Maasha::BGB::Track::list_track_dir( $options->{ 'user' }, $options->{ 'clade' }, $options->{ 'genome' }, $options->{ 'assembly' }, $contig );
 
     foreach $track ( @tracks )
     {