From 51352122401ca05d0b2086176659e0ce6c73d4ee Mon Sep 17 00:00:00 2001 From: Terran McCanna Date: Thu, 22 Dec 2022 15:26:30 -0500 Subject: [PATCH] More logging for ecard.pm Signed-off-by: Terran McCanna --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm index cde1665188..1041e9e604 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm @@ -258,8 +258,7 @@ $logger->error("E-RENEW: completed save_user"); } else { $ctx->{response}->{barcode} = $ctx->{user}->card->barcode; } -#DEBUGGING -$logger->error("E-RENEW: compiled repsonse is: " . $self->compile_response); + return $self->compile_response; } @@ -306,11 +305,13 @@ sub verify_vendor_host { sub compile_response { my $self = shift; my $ctx = $self->ctx; - +#DEBUGGING +$logger->error("E-RENEW: beginning to compile response..."); $self->apache->content_type("application/json; charset=utf-8"); $ctx->{response} = OpenSRF::Utils::JSON->perl2JSON($ctx->{response}); $logger->info("ECARD responding with " . $ctx->{response}); - +#DEBUGGING +$logger->error("E-RENEW: compiled response is: " . $ctx->{response}); return Apache2::Const::OK; } -- 2.11.0