From fabb542a309102441f709b800e7672cf5a3bf677 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 21 Jul 2005 22:32:04 +0000 Subject: [PATCH] typos, bugs, etc. git-svn-id: svn://svn.open-ils.org/ILS/trunk@1352 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Auth.pm | 4 +--- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 6 +++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Auth.pm b/Open-ILS/src/perlmods/OpenILS/Application/Auth.pm index 0bb2fb4f5b..0adbf27215 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Auth.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Auth.pm @@ -182,9 +182,7 @@ sub retrieve_session { if(!$user) { warn "No User returned from retrieve_session $sessionid\n"; } - if($user) {$user->clear_password();} - use Data::Dumper; - warn Dumper $user; + if($user) {$user->clear_passwd();} return $user; } diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index 6977bad19f..c93b0ec4df 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -592,15 +592,15 @@ sub volume_tree_fleshed_update { $copy->clear_id; $copy->call_number($volume->id); $copy->creator($user_obj->id); - $copy = _fleshed_copy_update($session,$copy,$user_obj->id); + $copy = _fleshed_copy_update($session,$copy,$user_obj); } elsif( $copy->ischanged ) { $copy->call_number($volume->id); - $copy = _fleshed_copy_update($session, $copy, $user_obj->id); + $copy = _fleshed_copy_update($session, $copy, $user_obj); } elsif( $copy->isdeleted ) { warn "Deleting copy " . $copy->id . " for volume " . $volume->id . "\n"; - my $status = _fleshed_copy_update($session, $copy, $user_obj->id); + my $status = _fleshed_copy_update($session, $copy, $user_obj); warn "Copy delete returned a status of $status\n"; } } -- 2.11.0