Comment 4 for bug 1579225

Revision history for this message
Galen Charlton (gmc) wrote :

Here's a hacky patch to have the password work for a newly-registered patron:

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
index 1e0593d..dfd0562 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
@@ -408,12 +408,15 @@ sub update_patron {
     my $barred_hook = '';

     if($patron->isnew()) {
+ # store original password to avoid double-hashing it later
+ my $saved_passwd = $patron->passwd;
         ( $new_patron, $evt ) = _add_patron($e, _clone_patron($patron));
         return $evt if $evt;
         if($U->is_true($patron->barred)) {
             return $e->die_event unless
                 $e->allowed('BAR_PATRON', $patron->home_ou);
         }
+ $new_patron->passwd($saved_passwd);
     } else {
         $new_patron = $patron;