From 71ecd1736c288c303c2e293cc99f37d0ecba4ef4 Mon Sep 17 00:00:00 2001
From: Terran McCanna <tmccanna@georgialibraries.org>
Date: Thu, 22 Dec 2022 12:04:10 -0500
Subject: [PATCH] Adding debugging to Actor.pm

Signed-off-by: Terran McCanna <tmccanna@georgialibraries.org>
---
 .../src/perlmods/lib/OpenILS/Application/Actor.pm  | 32 +++++++++++++++-------
 .../perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm  | 11 ++++++--
 2 files changed, 30 insertions(+), 13 deletions(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
index f808e665f2..b9b04a0c86 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
@@ -520,7 +520,8 @@ __PACKAGE__->register_method(
 
 sub update_patron {
     my( $self, $client, $auth, $patron ) = @_;
-
+#DEBUGGING
+$logger->error("E-RENEW: starting sub update_patron in Actor.pm");
     my $e = new_editor(xact => 1, authtoken => $auth);
     return $e->event unless $e->checkauth;
 
@@ -528,6 +529,8 @@ sub update_patron {
         "Updating Patron: " . $patron->id);
 
     my $evt = check_group_perm($e, $e->requestor, $patron);
+#DEBUGGING
+$logger->error("E-RENEW: check_group_perm - $evt");
     return $evt if $evt;
 
     # $new_patron is the patron in progress.  $patron is the original patron
@@ -566,13 +569,15 @@ sub update_patron {
         }
     } else {
         $new_patron = $patron;
-
+#DEBUGGING
+$logger->error("E-RENEW: inside patron update for $new_patron");
         # Did auth checking above already.
         $old_patron = $e->retrieve_actor_user($patron->id) or
             return $e->die_event;
 
         $renew_hook = 'au.renewed' if ($old_patron->expire_date ne $new_patron->expire_date);
-
+#DEBUGGING
+$logger->error("E-RENEW: renew_hook - $renew_hook");
         if($U->is_true($old_patron->barred) != $U->is_true($new_patron->barred)) {
             my $perm = $U->is_true($old_patron->barred) ? 'UNBAR_PATRON' : 'BAR_PATRON';
             return $e->die_event unless $e->allowed($perm, $patron->home_ou);
@@ -593,19 +598,23 @@ sub update_patron {
                                      # actor.usr.passwd to MD5('')
         }
     }
-
+#DEBUGGING
+$logger->error("E-RENEW: passed initial steps of update patron");
     ( $new_patron, $evt ) = _add_update_addresses($e, $patron, $new_patron);
     return $evt if $evt;
-
+#DEBUGGING
+$logger->error("E-RENEW: passed _add_update_addresses");
     ( $new_patron, $evt ) = _add_update_cards($e, $patron, $new_patron);
     return $evt if $evt;
-
+#DEBUGGING
+$logger->error("E-RENEW: passed _add_update_cards");
     ( $new_patron, $evt ) = _add_update_waiver_entries($e, $patron, $new_patron);
     return $evt if $evt;
 
     ( $new_patron, $evt ) = _add_survey_responses($e, $patron, $new_patron);
     return $evt if $evt;
-
+#DEBUGGING
+$logger->error("E-RENEW: passed _add_survey_responses");
     # re-update the patron if anything has happened to him during this process
     if($new_patron->ischanged()) {
         ( $new_patron, $evt ) = _update_patron($e, $new_patron);
@@ -617,15 +626,18 @@ sub update_patron {
 
     ($new_patron, $evt) = _create_stat_maps($e, $patron, $new_patron);
     return $evt if $evt;
-
+#DEBUGGING
+$logger->error("E-RENEW: passed _create_stat_maps");
     ($new_patron, $evt) = _create_perm_maps($e, $patron, $new_patron);
     return $evt if $evt;
-
+#DEBUGGING
+$logger->error("E-RENEW: passed _create_perm_maps");
     $evt = apply_invalid_addr_penalty($e, $patron);
     return $evt if $evt;
 
     $e->commit;
-
+#DEBUGGING
+$logger->error("E-RENEW: passed commit");
     my $tses = OpenSRF::AppSession->create('open-ils.trigger');
     if($patron->isnew) {
         $tses->request('open-ils.trigger.event.autocreate',
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 830f0f96c1..cde1665188 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
@@ -755,7 +755,10 @@ sub save_user {
     my $cgi = $self->cgi;
     my $user = $ctx->{user};
     my $update_type = $user->isnew;
-
+#DEBUGGING
+$logger->error("E-RENEW: starting sub save_user");
+$logger->error("E-RENEW: authtoken is " . $self->ctx->{authtoken});
+$logger->error("E-RENEW: user is $user");
     my $resp = $U->simplereq(
         'open-ils.actor',
         'open-ils.actor.patron.update',
@@ -763,7 +766,8 @@ sub save_user {
     );
 
     $resp = {textcode => 'UNKNOWN_ERROR'} unless $resp;
-
+#DEBUGGING
+$logger->error("E-RENEW: resp is $resp");
     if ($U->is_event($resp)) {
         my $msg = '';
 
@@ -778,7 +782,8 @@ sub save_user {
         }
 
         $ctx->{response}->{messages} = [{msg => $msg, pid => $$}];
-
+#DEBUGGING
+$logger->error("E-RENEW: messages at end of save_user: " . $ctx->{response}->{messages});
         return 0;
     }
 
-- 
2.11.0