Debugging on Ecard.pm

Signed-off-by: Terran McCanna <tmccanna@georgialibraries.org>

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 e903e90..830f0f9 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
@@ -102,7 +102,8 @@ sub log_params {
         $msg .= "|" if $msg; 
         $msg .= "$p=".$cgi->param($p);
     }
-
+#DEBUGGING
+$logger->error("E-RENEW: incoming CGI params: $msg");
     $logger->info("ECARD: Submit params: $msg");
 }
 
@@ -151,6 +152,8 @@ sub load_ecard_submit {
     my $self = shift;
     my $ctx = $self->ctx;
     my $cgi = $self->cgi;
+#DEBUGGING
+$logger->error("E-RENEW: beginning sub load_ecard_submit");
 
     #determine whether this is a new registration or a renewal
     if ($cgi->param('patron_id') > 1) {
@@ -158,7 +161,8 @@ sub load_ecard_submit {
     } else {
         $update_type = 'register';
     }
-
+#DEBUGGING
+$logger->error("E-RENEW: new or update? $update_type");
     #If this is a renewal, double-check that they are eligible to renew
     my $cache = OpenSRF::Utils::Cache->new('global');
     if ($update_type eq 'renew') {
@@ -182,6 +186,9 @@ sub load_ecard_submit {
         return $self->compile_response;
     }
 
+#DEBUGGING
+$logger->error("E-RENEW: request method - ". $cgi->request_method);
+
     return Apache2::Const::FORBIDDEN unless 
         $cgi->request_method eq 'POST' &&
         $self->verify_vendor_host &&
@@ -211,9 +218,17 @@ sub load_ecard_submit {
             'au.create.ecard', $ctx->{user}, $ctx->{user}->home_ou);
     } else {
         return $self->compile_response unless $self->update_user;
+#DEBUGGING
+$logger->error("E-RENEW: completed update_user");
         return $self->compile_response unless $self->update_addresses;
+#DEBUGGING
+$logger->error("E-RENEW: completed update_addresses");
         return $self->compile_response unless $self->add_survey_responses;
+#DEBUGGING
+$logger->error("E-RENEW: completed add_survey_responses");
         return $self->compile_response unless $self->save_user;
+#DEBUGGING
+$logger->error("E-RENEW: completed save_user");
         return $self->compile_response if $ctx->{response}->{status};
     }
 
@@ -243,7 +258,8 @@ sub load_ecard_submit {
     } else {
         $ctx->{response}->{barcode} = $ctx->{user}->card->barcode;
        }
-
+#DEBUGGING
+$logger->error("E-RENEW: compiled repsonse is: " . $self->compile_response);
     return $self->compile_response;
 }
 
@@ -253,11 +269,13 @@ sub login_vendor {
     my $self = shift;
     my $username = $self->cgi->param('vendor_username');
     my $password = $self->cgi->param('vendor_password');
-
+#DEBUGGING
+$logger->error("E-RENEW: login vendor: " . $self->cgi->param('vendor_username') . " - " . $self->cgi->param('vendor_password'));
     my $e = new_editor();
     my $vendor = $e->search_actor_user({usrname => $username})->[0];
     return 0 unless $vendor;
-
+#DEBUGGING
+$logger->error("E-RENEW: login vendor: $vendor");
     return unless $U->verify_user_password(
         $e, $vendor->id, $password, 'ecard_vendor');
 
@@ -270,7 +288,8 @@ sub login_vendor {
     );
 
     return unless $auth && $auth->{textcode} eq 'SUCCESS';
-
+#DEBUGGING
+$logger->error("E-RENEW: vendor passed authentication");
     $self->ctx->{authtoken} = $auth->{payload}->{authtoken};
 
     return 1;
@@ -361,7 +380,8 @@ sub update_user {
 
     # Grab user id, retrieve patron info from db and create patron object
     my $patron_id = $cgi->param('patron_id');
-
+#DEBUGGING
+$logger->error("E-RENEW: patron id is $patron_id");
     my $au = $self->editor->retrieve_actor_user([$patron_id, 
         {
             flesh => 1,