From e2a8cdfc160b92eadf731de5373fafa487cb2075 Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Tue, 29 Sep 2009 11:19:07 +0200 Subject: [PATCH] (bug #3674) allow users creation with disabled password Content-Type: text/plain; charset="utf-8" --- C4/Auth.pm | 2 +- C4/Members.pm | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index eb7a464..9429ea9 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -1222,7 +1222,7 @@ sub checkpw { my ( $md5password, $cardnumber, $borrowernumber, $userid, $firstname, $surname, $branchcode, $flags ) = $sth->fetchrow; - if ( md5_base64($password) eq $md5password ) { + if ( ( md5_base64($password) eq $md5password ) and ($md5password ne "!") ) { C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber, $firstname, $surname, $branchcode, $flags ); diff --git a/C4/Members.pm b/C4/Members.pm index d44d55f..fcc689e 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -696,8 +696,9 @@ Returns the borrowernumber sub AddMember { my (%data) = @_; my $dbh = C4::Context->dbh; - $data{'userid'} = '' unless $data{'password'}; + $data{'password'} = md5_base64( $data{'password'} ) if $data{'password'}; + $data{'password'} = '!' if (not $data{'password'} and $data{'userid'}); # WE SHOULD NEVER PASS THIS SUBROUTINE ANYTHING OTHER THAN ISO DATES # IF YOU UNCOMMENT THESE LINES YOU BETTER HAVE A DARN COMPELLING REASON -- 1.6.0.4