projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4637ede
)
make warning about expensive lookup a carp & controlled by $DEBUG
author
ivan
<ivan>
Fri, 16 Oct 2009 22:39:02 +0000
(22:39 +0000)
committer
ivan
<ivan>
Fri, 16 Oct 2009 22:39:02 +0000
(22:39 +0000)
FS/FS/cust_bill_pkg.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_bill_pkg.pm
b/FS/FS/cust_bill_pkg.pm
index
d3bdfd1
..
2d32d31
100644
(file)
--- a/
FS/FS/cust_bill_pkg.pm
+++ b/
FS/FS/cust_bill_pkg.pm
@@
-2,6
+2,7
@@
package FS::cust_bill_pkg;
use strict;
use vars qw( @ISA $DEBUG $me );
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;
use FS::Record qw( qsearch qsearchs dbdef dbh );
use FS::cust_main_Mixin;
use FS::cust_pkg;
@@
-18,7
+19,7
@@
use FS::cust_tax_adjustment;
@ISA = qw( FS::cust_main_Mixin FS::Record );
@ISA = qw( FS::cust_main_Mixin FS::Record );
-$DEBUG =
2
;
+$DEBUG =
1
;
$me = '[FS::cust_bill_pkg]';
=head1 NAME
$me = '[FS::cust_bill_pkg]';
=head1 NAME
@@
-342,7
+343,7
@@
Returns the package (see L<FS::cust_pkg>) for this invoice line item.
sub cust_pkg {
my $self = shift;
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 } );
}
qsearchs( 'cust_pkg', { 'pkgnum' => $self->pkgnum } );
}
@@
-627,7
+628,7
@@
sub disintegrate {
#split usage from recur
my $usage = sprintf( "%.2f", $cust_bill_pkg{recur}->usage );
#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 };
if ($usage) {
my $cust_bill_pkg_usage =
new FS::cust_bill_pkg { $cust_bill_pkg{recur}->hash };