From 2bf19bc97aca98d73015edf24a3c98b7b966f412 Mon Sep 17 00:00:00 2001
From: Nahuel ANGELINETTI <nahuel.angelinetti@biblibre.com>
Date: Tue, 29 Sep 2009 11:19:07 +0200
Subject: [PATCH] (bug #3674) allow users creation with disabled password

---
 C4/Auth.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index b96f796cb2..4c4fcd661a 100755
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -1310,7 +1310,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 );
-- 
2.39.2