Get the credit processor settings correctly

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>

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 321e190..926961c 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
@@ -40,7 +40,7 @@ sub get_processor_settings {
     my $setting_names = $e->json_query({
         select => {coust => ["name"]},
         from => {coust => {}},
-        where => {name => {like => 'credit.processor.${processor}.%'}}
+        where => {name => {like => "credit.processor.${processor}.%"}}
     }) or return $e->die_event;
 
     # Make keys for a hash we're going to build out of the last dot-delimited
@@ -88,7 +88,7 @@ sub process_stripe_or_bop_payment {
         unless $cc_args->{processor} =~ /^[a-z0-9_\-]+$/i;
 
     # Get the settings for the processor and make sure they're serviceable.
-    my $psettings = get_processor_settings($e, @{$cc_args}{'ou', 'processor'});
+    my $psettings = get_processor_settings($e, $this_ou, $cc_args->{processor});
     return $psettings if defined $U->event_code($psettings);
     return OpenILS::Event->new('CREDIT_PROCESSOR_NOT_ENABLED')
         unless $psettings->{enabled};