diff options
| author | ivan <ivan> | 2007-01-21 21:45:29 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-01-21 21:45:29 +0000 |
| commit | 05686487551e26418c9b2d6b92ea0d89bb100082 (patch) | |
| tree | e129029de83fc91d8d9e2a79dfcb9043d6778f55 /FS/FS/part_bill_event.pm | |
| parent | a5d07d949a9ef3e57694a49a60e5a393c350a42f (diff) | |
Have lineitem-specific applications happen in all cases; add weightsto control
Diffstat (limited to 'FS/FS/part_bill_event.pm')
| -rw-r--r-- | FS/FS/part_bill_event.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/part_bill_event.pm b/FS/FS/part_bill_event.pm index 466ff89..683f484 100644 --- a/FS/FS/part_bill_event.pm +++ b/FS/FS/part_bill_event.pm @@ -133,13 +133,16 @@ sub check { my $c = $self->eventcode; + #yay, these regexen will go away with the event refactor + $c =~ /^\s*\$cust_main\->(suspend|cancel|invoicing_list_addpost|bill|collect)\(\);\s*("";)?\s*$/ or $c =~ /^\s*\$cust_bill\->(comp|realtime_(card|ach|lec)|batch_card|send)\((%options)*\);\s*$/ or $c =~ /^\s*\$cust_bill\->send(_if_newest)?\(\'[\w\-\s]+\'\s*(,\s*(\d+|\[\s*\d+(,\s*\d+)*\s*\])\s*,\s*'[\w\@\.\-\+]*'\s*)?\);\s*$/ - or $c =~ /^\s*\$cust_main\->apply_payments; \$cust_main->apply_credits; "";\s*$/ +# or $c =~ /^\s*\$cust_main\->apply_payments; \$cust_main->apply_credits; "";\s*$/ + or $c =~ /^\s*\$cust_main\->apply_payments_and_credits; "";\s*$/ or $c =~ /^\s*\$cust_main\->charge\( \s*\d*\.?\d*\s*,\s*\'[\w \!\@\#\$\%\&\(\)\-\+\;\:\"\,\.\?\/]*\'\s*\);\s*$/ |