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;
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 ILS/src/ perlmods/ lib/OpenILS/ Application/ Actor.pm ILS/src/ perlmods/ lib/OpenILS/ Application/ Actor.pm
index 1e0593d..dfd0562 100644
--- a/Open-
+++ b/Open-
@@ -408,12 +408,15 @@ sub update_patron {
my $barred_hook = '';
if( $patron- >isnew( )) { patron( $patron) );
if($U- >is_true( $patron- >barred) ) {
$e-> allowed( 'BAR_PATRON' , $patron->home_ou); >passwd( $saved_ passwd) ;
$new_ patron = $patron;
+ # store original password to avoid double-hashing it later
+ my $saved_passwd = $patron->passwd;
( $new_patron, $evt ) = _add_patron($e, _clone_
return $evt if $evt;
return $e->die_event unless
}
+ $new_patron-
} else {