diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-12-20 12:47:42 -0800 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-01-08 21:35:46 -0600 |
commit | 0b305da7f525d3521563bb38e394caaa90d8a0a0 (patch) | |
tree | 7d51f529f7afcd4586c378c06491f7b0da5bafe0 | |
parent | 6cfb6bddfabbaff2b7088a458404bd4ff7039e3f (diff) |
added -f flag to continue voiding even if an error is received, RT#78977
-rwxr-xr-x | bin/bulk_void | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/bulk_void b/bin/bulk_void index f31eea5..5da7d15 100755 --- a/bin/bulk_void +++ b/bin/bulk_void @@ -8,7 +8,7 @@ use File::Slurp; use FS::Misc::Getopt; use FS::Record qw(qsearch qsearchs dbh); -getopts('cpiXr:t:u:vk:'); +getopts('cpiXr:t:u:vk:f'); my $dbh = dbh; $FS::UID::AutoCommit = 0; @@ -29,6 +29,7 @@ sub usage() { -u: specifies a filename of customer numbers - only void for those customers -k: skip invoices with only this pkgpart -t: only void payments with this payby +-f: force - continue voiding invoices even if some have errors -v: verbose - show more detail -X: commit changes "; @@ -95,7 +96,7 @@ foreach my $k (keys %tables) { $error = "$table #" . $record->get($record->primary_key) . ": $error"; print "$error\n"; $error_count++; - if ( $opt{X} ) { + if ( $opt{X} && ! $opt{f} ) { $dbh->rollback; exit(1); } |