diff options
| author | ivan <ivan> | 2001-12-18 01:49:35 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-12-18 01:49:35 +0000 |
| commit | c52f29f23bed4af764c0a3deda0f43e2d40c8e51 (patch) | |
| tree | 9d80e84b08cab5632847f1c020bfd31500dc54af | |
| parent | ff600bea7c4f34854be39bc4a6b56f20c1605c4d (diff) | |
add freeside-setinvoice to MANIFEST
fix warning:
FS::cust_main_invoice=HASH(0x90c86c4) at
/usr/local/lib/perl5/site_perl/5.005/FS/svc_acct.pm line 419.
| -rw-r--r-- | FS/FS/svc_acct.pm | 9 | ||||
| -rw-r--r-- | FS/MANIFEST | 1 |
2 files changed, 6 insertions, 4 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 8f9216fb7..382987e1b 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -415,9 +415,10 @@ 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; + unless ( defined($cust_main_invoice) ) { + warn "WARNING: something's wrong with qsearch"; + next; + } my %hash = $cust_main_invoice->hash; $hash{'dest'} = $self->email; my $new = new FS::cust_main_invoice \%hash; @@ -960,7 +961,7 @@ sub ssh { =head1 VERSION -$Id: svc_acct.pm,v 1.55 2001-11-05 17:00:41 jeff Exp $ +$Id: svc_acct.pm,v 1.56 2001-12-18 01:49:35 ivan Exp $ =head1 BUGS diff --git a/FS/MANIFEST b/FS/MANIFEST index d4bac3d73..b7804ccc3 100644 --- a/FS/MANIFEST +++ b/FS/MANIFEST @@ -8,6 +8,7 @@ bin/freeside-email bin/freeside-queued bin/freeside-apply-credits bin/freeside-adduser +bin/freeside-setinvoice FS.pm FS/CGI.pm FS/Conf.pm |