diff options
author | Ivan Kohler <ivan@freeside.biz> | 2019-09-18 15:54:29 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2019-09-18 15:54:29 -0700 |
commit | 2ca291caff85cdd292370a944be1e4bacd4583a7 (patch) | |
tree | a11b49a2a12bc734d9acbda696c13b89b04d1d09 /FS/FS | |
parent | 9610c36df328850c679da7c6181d1c0f219c912d (diff) |
more efficient invoice voiding, RT#80366
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/cust_bill_pkg.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/FS/FS/cust_bill_pkg.pm b/FS/FS/cust_bill_pkg.pm index 305ad63..6f9c74a 100644 --- a/FS/FS/cust_bill_pkg.pm +++ b/FS/FS/cust_bill_pkg.pm @@ -6,7 +6,7 @@ use vars qw( @ISA $DEBUG $me ); use Carp; use List::Util qw( sum min ); use Text::CSV_XS; -use FS::Record qw( qsearch qsearchs dbh ); +use FS::Record qw( qsearch qsearchs dbh fields ); use FS::cust_pkg; use FS::cust_bill_pkg_detail; use FS::cust_bill_pkg_display; @@ -429,8 +429,10 @@ sub void_cust_bill_pkg_detail { $self->billpkgnum ); - $self->scalar_sql("INSERT INTO cust_bill_pkg_detail_void - SELECT * $from_cust_bill_pkg_detail", + my $fields = join(', ', fields('cust_bill_pkg_detail_void') ); + + $self->scalar_sql("INSERT INTO cust_bill_pkg_detail_void ($fields) + SELECT $fields $from_cust_bill_pkg_detail", $self->billpkgnum ); |