diff options
| author | ivan <ivan> | 2004-10-26 11:51:26 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-10-26 11:51:26 +0000 |
| commit | f83ca4d5d217b627b7782e947b8df6e12936414b (patch) | |
| tree | 860c1d684c307313ff4423c5bebfc0aa86a1eda2 /FS/FS/part_bill_event.pm | |
| parent | 6fe8172b11d0369d0b1274d6825ec0c57afe8001 (diff) | |
last thing for bug#901, 1.5.0pre6 and webdemo!
Diffstat (limited to 'FS/FS/part_bill_event.pm')
| -rw-r--r-- | FS/FS/part_bill_event.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/part_bill_event.pm b/FS/FS/part_bill_event.pm index 4774b8d..f908828 100644 --- a/FS/FS/part_bill_event.pm +++ b/FS/FS/part_bill_event.pm @@ -124,14 +124,16 @@ sub check { $c =~ /^\s*\$cust_main\->(suspend|cancel|invoicing_list_addpost|bill|collect)\(\);\s*("";)?\s*$/ - or $c =~ /^\s*\$cust_bill\->(comp|realtime_(card|ach|lec)|realtime_card_cybercash|batch_card|send)\(\);\s*$/ + or $c =~ /^\s*\$cust_bill\->(comp|realtime_(card|ach|lec)|batch_card|send)\(\);\s*$/ - or $c =~ /^\s*\$cust_bill\->send\(\'\w+\'\);\s*$/ + or $c =~ /^\s*\$cust_bill\->send\(\'[\w\-\s]+\'\s*(,\s*\d+\s*,\s*'[\w\@\.\-\+]*'\s*)?\);\s*$/ or $c =~ /^\s*\$cust_main\->apply_payments; \$cust_main->apply_credits; "";\s*$/ or $c =~ /^\s*\$cust_main\->charge\( \s*\d*\.?\d*\s*,\s*\'[\w \!\@\#\$\%\&\(\)\-\+\;\:\"\,\.\?\/]*\'\s*\);\s*$/ + or $c =~ /^\s*\$cust_main\->suspend_(if|unless)_pkgpart\([\d\,\s]*\);\s*$/ + or do { #log return "illegal eventcode: $c"; |