typos, bugs, etc.
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 21 Jul 2005 22:32:04 +0000 (22:32 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 21 Jul 2005 22:32:04 +0000 (22:32 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1352 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Auth.pm
Open-ILS/src/perlmods/OpenILS/Application/Cat.pm

index 0bb2fb4..0adbf27 100644 (file)
@@ -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;
 }
 
index 6977bad..c93b0ec 100644 (file)
@@ -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";
                                }
                        }