diff options
author | ivan <ivan> | 2001-12-13 17:52:37 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-12-13 17:52:37 +0000 |
commit | 156535a911a8ad4315dcdee397cf8aff2071b520 (patch) | |
tree | 017733ccc5c238d2ceb2cffdf4bee3f8f541045e /FS/bin | |
parent | 29acbc574cb1e29032c634e1f6ac63e92d14df3b (diff) |
fix setinvoice script
Diffstat (limited to 'FS/bin')
-rw-r--r-- | FS/bin/freeside-setinvoice | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/bin/freeside-setinvoice b/FS/bin/freeside-setinvoice index aeaa0bb1b..3eb75f8b7 100644 --- 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 FS::Record qw(qsearch); +use FS::Record qw(qsearch qsearchs); 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 $svc_acct = qsearchs( 'svc_acct', {} ); + my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $cust_svc->svcnum } ); push @dest, $svc_acct->svcnum if $svc_acct; } } |