Bug 5283 NEWS ITEM FOR RECEIPT SLIP

[koha_gimpoz] / members / member-password.pl

diff --git a/members/member-password.pl b/members/member-password.pl
index 071a5fa..67f96db 100755 (executable)
--- a/members/member-password.pl
+++ b/members/member-password.pl
@@ -73,7 +73,7 @@ if ( $newpassword  && ! $errormsg ) {
     my $userid = $bor->{'userid'};
 
     my $chars='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
-    my $length=int(rand(2))+4;
+    my $length=int(rand(2))+C4::Context->preference("minPasswordLength");
     my $defaultnewpassword='';
     for (my $i=0; $i<$length; $i++) {
        $defaultnewpassword.=substr($chars, int(rand(length($chars))),1);