more warnlog fixes

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
index ded382c..b96c398 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
@@ -494,7 +494,7 @@ sub make_payments {
         }
 
         # Urgh, clean up this mega-function one day.
-        if ($cc_processor eq 'Stripe' and $approval_code and $cc_payload) {
+        if ($cc_processor && $cc_processor eq 'Stripe' and $approval_code and $cc_payload) {
             $payment->cc_number($cc_payload->{card}); # not actually available :)
         }