[Koha-cvs] koha/members member-password.pl [rel_2_2]

[Waylon Robertson]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Waylon Robertson <genji>        07/01/28 05:43:42

Modified files:
        members        : member-password.pl 

Log message:
        Fix for Bug 1150, now systempref MinPasswordLength sets how long 
passwords have to be, and if pref doesn't exist, defaults to 5.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/member-password.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.3.2.3&r2=1.3.2.4

Patches:
Index: member-password.pl
===================================================================
RCS file: /sources/koha/koha/members/member-password.pl,v
retrieving revision 1.3.2.3
retrieving revision 1.3.2.4
diff -u -b -r1.3.2.3 -r1.3.2.4
--- member-password.pl  5 Feb 2006 21:59:21 -0000       1.3.2.3
+++ member-password.pl  28 Jan 2007 05:43:42 -0000      1.3.2.4
@@ -44,9 +44,17 @@
 foreach (sort keys %$issues) {
     $i++;
 }
+my $MinPasswordLength = (C4::Context->preference("MinPasswordLength") ? 
+                                                           
C4::Context->preference("MinPasswordLength") :5
+                                                           );
 
 my ($bor,$flags)=getpatroninformation(\%env, $member,'');
 my $newpassword = $input->param('newpassword');
+if (length($newpassword) < $MinPasswordLength && $newpassword ne ''){
+       $template->param('ShortPass' => '1');
+       $template->param('MinPasswordLength' => $MinPasswordLength );
+       $newpassword = '';
+}
 
 if ( $newpassword ) {
        my $digest=md5_base64($input->param('newpassword'));
@@ -66,7 +74,7 @@
     my $userid = $bor->{'userid'};
 
     my $chars='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
-    my $length=int(rand(2))+4;
+    my $length=int(rand(2))+$MinPasswordLength;
     my $defaultnewpassword='';
     for (my $i=0; $i<$length; $i++) {
        $defaultnewpassword.=substr($chars, int(rand(length($chars))),1);