diff options
author | ivan <ivan> | 2009-08-24 06:39:58 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-08-24 06:39:58 +0000 |
commit | a58bd9386e1e5fa1cdd16936fc29093ed67714db (patch) | |
tree | 5320c0f2eb77499e5d9ea29df22927057461ce55 /FS/FS/cust_bill_ApplicationCommon.pm | |
parent | 93b257faa664416be7cface1a5663da0a86b7caf (diff) |
(start of) customer move script, RT#5351
Diffstat (limited to 'FS/FS/cust_bill_ApplicationCommon.pm')
-rw-r--r-- | FS/FS/cust_bill_ApplicationCommon.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm index ec694ca..d4627c0 100644 --- a/FS/FS/cust_bill_ApplicationCommon.pm +++ b/FS/FS/cust_bill_ApplicationCommon.pm @@ -1,7 +1,7 @@ package FS::cust_bill_ApplicationCommon; use strict; -use vars qw( @ISA $DEBUG $me ); +use vars qw( @ISA $DEBUG $me $skip_apply_to_lineitems_hack ); use List::Util qw(min); use FS::Schema qw( dbdef ); use FS::Record qw( qsearch qsearchs dbh ); @@ -11,6 +11,8 @@ use FS::Record qw( qsearch qsearchs dbh ); $DEBUG = 0; $me = '[FS::cust_bill_ApplicationCommon]'; +$skip_apply_to_lineitems_hack = 0; + =head1 NAME FS::cust_bill_ApplicationCommon - Base class for bill application classes @@ -113,6 +115,8 @@ Auto-applies this invoice application to specific line items, if possible. sub apply_to_lineitems { my $self = shift; + return '' if $skip_apply_to_lineitems_hack; + my @apply = (); my $conf = new FS::Conf; |