projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
29acbc5
)
fix setinvoice script
author
ivan
<ivan>
Thu, 13 Dec 2001 17:52:37 +0000
(17:52 +0000)
committer
ivan
<ivan>
Thu, 13 Dec 2001 17:52:37 +0000
(17:52 +0000)
FS/bin/freeside-setinvoice
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-setinvoice
b/FS/bin/freeside-setinvoice
index
aeaa0bb
..
3eb75f8
100644
(file)
--- a/
FS/bin/freeside-setinvoice
+++ b/
FS/bin/freeside-setinvoice
@@
-3,7
+3,7
@@
use strict;
use FS::UID qw(adminsuidsetup);
use FS::Conf;
use strict;
use FS::UID qw(adminsuidsetup);
use FS::Conf;
-use FS::Record qw(qsearch);
+use FS::Record qw(qsearch
qsearchs
);
use FS::cust_main;
use FS::svc_acct;
use FS::cust_main;
use FS::svc_acct;
@@
-20,7
+20,7
@@
foreach my $cust_main (
my @cust_pkg = $cust_main->ncancelled_pkgs;
foreach my $cust_pkg ( @cust_pkg ) {
foreach my $cust_svc ( $cust_pkg->cust_svc ) {
my @cust_pkg = $cust_main->ncancelled_pkgs;
foreach my $cust_pkg ( @cust_pkg ) {
foreach my $cust_svc ( $cust_pkg->cust_svc ) {
- my $svc_acct = qsearchs( 'svc_acct', {} );
+ my $svc_acct = qsearchs( 'svc_acct', {
'svcnum' => $cust_svc->svcnum
} );
push @dest, $svc_acct->svcnum if $svc_acct;
}
}
push @dest, $svc_acct->svcnum if $svc_acct;
}
}