paymentMethod should be lower case.

scripts/rt-bulk-prep-pay.plx

@@ -32,7 +32,7 @@ sub FindMostRecentPaymentMethodForTicket ($) {
   open(my $rtShowFH, "-|", "$RT_CMD", "show", $ticketSpec);
   while (my $showLine = <$rtShowFH>) {
     print STDERR "rt show line for $ticketSpec: $showLine" if ($VERBOSE >= 10);
-    $paymentMethod = $1
+    $paymentMethod = lc($1)
       if ($showLine =~ /^\s*PAYMENT\s+METHOD\s*:\s*(.*?)\s*$/);
     # don't 'last' when found as we want the last one.
   }