3.0.x: ce353e7 bug #3674 allow users creation with disabled password

diff --git a/C4/Members.pm b/C4/Members.pm
index 4b525f0..da1bf37 100644 (file)
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -680,7 +680,7 @@ Returns the borrowernumber
 sub AddMember {
     my (%data) = @_;
     my $dbh = C4::Context->dbh;
-    $data{'userid'} = '' unless $data{'password'};
+    $data{'password'} = '!' if (not $data{'password'} and $data{'userid'});
     $data{'password'} = md5_base64( $data{'password'} ) if $data{'password'};
        $data{'borrowernumber'}=InsertInTable("borrowers",\%data);      
     # mysql_insertid is probably bad.  not necessarily accurate and mysql-specific at best.