And even more debugging to Actor.pm

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

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
index 4b309d2..933699e 100644 (file)
--- 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" );