From b2d817aa76c7e67c769b4ac0dea53a8530c96ef9 Mon Sep 17 00:00:00 2001 From: Terran McCanna Date: Thu, 22 Dec 2022 13:56:41 -0500 Subject: [PATCH] And even more debugging to Actor.pm Signed-off-by: Terran McCanna --- Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm index 4b309d24da..933699e71a 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm @@ -1218,22 +1218,30 @@ sub _create_perm_maps { my($e, $patron, $new_patron) = @_; #DEBUGGING $logger->error("E-RENEW: inside sub _create_perm_maps"); -$logger->error("E-RENEW: patron is $patron"); -$logger->error("E-RENEW: newpatron is $new_patron"); +$logger->error("E-RENEW: patron is ". $patron->id); +$logger->error("E-RENEW: newpatron is ". $new_patron->id); my $maps = $patron->permissions; #DEBUGGING $logger->error("E-RENEW: perm maps: $maps"); for my $map (@$maps) { - +#DEBUGGING +$logger->error("E-RENEW: map id: ". $map->id); +$logger->error("E-RENEW: map usr: ". $map->usr); +$logger->error("E-RENEW: map usr id: ". $map->usr->id); my $method = "update_permission_usr_perm_map"; if ($map->isdeleted()) { +#DEBUGGING +$logger->error("E-RENEW: map isdeleted"); $method = "delete_permission_usr_perm_map"; } elsif ($map->isnew()) { +#DEBUGGING +$logger->error("E-RENEW: map isnew"); $method = "create_permission_usr_perm_map"; $map->clear_id; } $map->usr($new_patron->id); +#DEBUGGING $logger->error("E-RENEW: for each map - ". $map->usr); $logger->info( "Updating permissions with method $method and map $map" ); -- 2.11.0