RT-Plugins/RT-Client-Tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

warn rather than die when payment method not found.

Browse source 
We still want to pay ready-for-payment tickets that have no payment method
found.
This commit is contained in:
Bradley M. Kuhn 2018-08-07 10:28:40 -07:00
parent e003313256
commit 56441180e4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scripts/rt-bulk-prep-pay.plx
View file

@ -54,7 +54,8 @@ my @ticketSpecs = TicketIDsReadyForPayment();
my %payments; my %payments;
foreach my $ticketSpec (@ticketSpecs) { foreach my $ticketSpec (@ticketSpecs) {
my $paymentMethod = FindMostRecentPaymentMethodForTicket($ticketSpec); my $paymentMethod = FindMostRecentPaymentMethodForTicket($ticketSpec);
die "Cannot find payment method for ticket, $ticketSpec" unless defined $paymentMethod; warn "Cannot find payment method for ticket, $ticketSpec" unless defined $paymentMethod;
$paymentMethod = "UNKNOWN PAYMENT METHOD";
push(@{$payments{$paymentMethod}}, $ticketSpec); push(@{$payments{$paymentMethod}}, $ticketSpec);
} }
foreach my $paymentMethod (sort { $a cmp $b } keys %payments) { foreach my $paymentMethod (sort { $a cmp $b } keys %payments) {