use strict;
use vars qw( @ISA $DEBUG );
-use Storable qw(thaw);
-use Data::Dumper;
use FS::Record qw( qsearch qsearchs dbh fields );
use FS::rate_detail;
@ISA = qw(FS::Record);
-$DEBUG = 1;
+$DEBUG = 0;
=head1 NAME
=cut
+use Storable qw(thaw);
+use Data::Dumper;
use MIME::Base64;
sub process {
my $job = shift;
#$ratenum = $rate->getfield('ratenum');
}
- die $error if $error;
+ die "$error\n" if $error;
}