use strict;
use vars qw( @ISA $DEBUG $me );
+use Carp;
use FS::Record qw( qsearch qsearchs dbdef dbh );
use FS::cust_main_Mixin;
use FS::cust_pkg;
@ISA = qw( FS::cust_main_Mixin FS::Record );
-$DEBUG = 2;
+$DEBUG = 1;
$me = '[FS::cust_bill_pkg]';
=head1 NAME
sub cust_pkg {
my $self = shift;
- #warn "$me $self -> cust_pkg"; #carp?
+ carp "$me $self -> cust_pkg" if $DEBUG;
qsearchs( 'cust_pkg', { 'pkgnum' => $self->pkgnum } );
}
#split usage from recur
my $usage = sprintf( "%.2f", $cust_bill_pkg{recur}->usage );
- warn "usage is $usage\n" if $DEBUG;
+ warn "usage is $usage\n" if $DEBUG > 1;
if ($usage) {
my $cust_bill_pkg_usage =
new FS::cust_bill_pkg { $cust_bill_pkg{recur}->hash };