diff options
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/Record.pm | 5 | ||||
-rw-r--r-- | FS/FS/cust_main_invoice.pm | 4 | ||||
-rw-r--r-- | FS/FS/svc_acct.pm | 5 |
3 files changed, 9 insertions, 5 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 578904e..333602c 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -472,10 +472,11 @@ returns the error, otherwise returns false. sub replace { my ( $new, $old ) = ( shift, shift ); + warn "[debug][FS::Record] $new ->replace $old\n" if $DEBUG; my @diff = grep $new->getfield($_) ne $old->getfield($_), $old->fields; unless ( @diff ) { - carp "warning: records identical"; + carp "[warning][FS::Record] $new -> replace $old: records identical"; return ''; } @@ -993,7 +994,7 @@ sub DESTROY { return; } =head1 VERSION -$Id: Record.pm,v 1.28 2001-09-14 18:05:16 ivan Exp $ +$Id: Record.pm,v 1.29 2001-09-16 12:45:35 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_main_invoice.pm b/FS/FS/cust_main_invoice.pm index 61a8f75..d6b4cd9 100644 --- a/FS/FS/cust_main_invoice.pm +++ b/FS/FS/cust_main_invoice.pm @@ -88,7 +88,7 @@ sub replace { return "Can't change custnum!" unless $old->custnum == $new->custnum; - $new->SUPER::replace; + $new->SUPER::replace($old); } @@ -172,7 +172,7 @@ sub address { =head1 VERSION -$Id: cust_main_invoice.pm,v 1.6 2001-08-12 00:06:33 ivan Exp $ +$Id: cust_main_invoice.pm,v 1.7 2001-09-16 12:45:35 ivan Exp $ =head1 BUGS diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index e52cebf..c6b6593 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -397,6 +397,9 @@ sub delete { foreach my $cust_main_invoice ( qsearch( 'cust_main_invoice', { 'dest' => $self->svcnum } ) ) { + #next unless defined; #wtf is up with qsearch? + warn $cust_main_invoice; + next unless defined $cust_main_invoice; my %hash = $cust_main_invoice->hash; $hash{'dest'} = $self->email; my $new = new FS::cust_main_invoice \%hash; @@ -841,7 +844,7 @@ sub email { =head1 VERSION -$Id: svc_acct.pm,v 1.39 2001-09-14 19:54:22 ivan Exp $ +$Id: svc_acct.pm,v 1.40 2001-09-16 12:45:35 ivan Exp $ =head1 BUGS |