use strict;
use Data::Dumper;
use Maasha::Biopieces;
-use Maasha::BGB::Common;
+use Maasha::BGB::Track;
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
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;
}
}