diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-05-03 13:57:55 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-05-03 13:57:55 -0700 |
| commit | b77cf31ec6cf130ae8f19265fec49b62484060fb (patch) | |
| tree | caa20e8186db0147b932d5e6f264a36701fb5590 | |
| parent | 351a90553db4e68cc8855be30310cfd39cd63e65 (diff) | |
when un-cancelling a package, errors re-provisioning services are not fatal, RT#17518
| -rw-r--r-- | FS/FS/cust_pkg.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index f01c5c3a6..9d81c67b3 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -889,7 +889,9 @@ sub cancel_if_expired { locationnum, (other fields?). Attempts to re-provision cancelled services using history information (errors at this stage are not fatal). -cust_pkg: pass a scalar reference, will be filled in with +cust_pkg: pass a scalar reference, will be filled in with the new cust_pkg object + +svc_fatal: service provisioning errors are fatal svc_errors: pass an array reference, will be filled in with any provisioning errors @@ -972,7 +974,7 @@ sub uncancel { } my $svc_error = $svc_x->insert; - if ( $svc_error ) { #&& $options{svc_fatal} ) { + if ( $svc_error && $options{svc_fatal} ) { $dbh->rollback if $oldAutoCommit; return $error; } |
