projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ab12257
)
add some debugging
author
ivan
<ivan>
Wed, 6 Sep 2006 01:06:43 +0000
(
01:06
+0000)
committer
ivan
<ivan>
Wed, 6 Sep 2006 01:06:43 +0000
(
01:06
+0000)
FS/FS/cust_svc.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_svc.pm
b/FS/FS/cust_svc.pm
index
8914e8c
..
a760761
100644
(file)
--- a/
FS/FS/cust_svc.pm
+++ b/
FS/FS/cust_svc.pm
@@
-1,7
+1,7
@@
package FS::cust_svc;
use strict;
package FS::cust_svc;
use strict;
-use vars qw( @ISA $DEBUG $ignore_quantity );
+use vars qw( @ISA $DEBUG $
me $
ignore_quantity );
use Carp qw( carp cluck );
use FS::Conf;
use FS::Record qw( qsearch qsearchs dbh );
use Carp qw( carp cluck );
use FS::Conf;
use FS::Record qw( qsearch qsearchs dbh );
@@
-22,6
+22,7
@@
use FS::cdr;
@ISA = qw( FS::Record );
$DEBUG = 0;
@ISA = qw( FS::Record );
$DEBUG = 0;
+$me = '[cust_svc]';
$ignore_quantity = 0;
$ignore_quantity = 0;
@@
-353,6
+354,9
@@
sub svc_x {
$self->{'_svc_acct'};
} else {
#require "FS/$svcdb.pm";
$self->{'_svc_acct'};
} else {
#require "FS/$svcdb.pm";
+ warn "$me svc_x: part_svc.svcpart ". $self->part_svc->svcpart.
+ ", so searching for $svcdb.svcnum ". $self->svcnum. "\n"
+ if $DEBUG;
qsearchs( $svcdb, { 'svcnum' => $self->svcnum } );
}
}
qsearchs( $svcdb, { 'svcnum' => $self->svcnum } );
}
}