# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+use warnings;
use strict;
use Maasha::Common;
use Maasha::Biopieces;
close $fh_out;
if ( $format eq "BED" ) {
- Maasha::UCSC::bed_upload_to_ucsc( $tmp_dir, $file, $options, $append );
+ Maasha::UCSC::BED::bed_upload_to_ucsc( $tmp_dir, $file, $options, $append );
} elsif ( $format eq "PSL" ) {
- Maasha::UCSC::psl_upload_to_ucsc( $file, $options, $append );
+ Maasha::UCSC::BED::psl_upload_to_ucsc( $file, $options, $append );
}
unlink $file;
{
$type = "bed $columns";
- Maasha::UCSC::bed_upload_to_ucsc( $tmp_dir, $file, $options, $append );
+ Maasha::UCSC::BED::bed_upload_to_ucsc( $tmp_dir, $file, $options, $append );
}
elsif ( $format eq "BED_SS" )
{
$type = "type bed 6 +";
- Maasha::UCSC::bed_upload_to_ucsc( $tmp_dir, $file, $options, $append );
+ Maasha::UCSC::BED::bed_upload_to_ucsc( $tmp_dir, $file, $options, $append );
}
elsif ( $format eq "PSL" )
{
$type = "psl";
- Maasha::UCSC::psl_upload_to_ucsc( $file, $options, $append );
+ Maasha::UCSC::PSL::psl_upload_to_ucsc( $file, $options, $append );
}
elsif ( $format eq "WIGGLE" )
{
$type = "wig 0";
- Maasha::UCSC::wiggle_upload_to_ucsc( $tmp_dir, $wib_dir, $file, $options );
+ Maasha::UCSC::Wiggle::wiggle_upload_to_ucsc( $tmp_dir, $wib_dir, $file, $options );
}
unlink $file;