Bug Fixing, again password was not crypted.

Signed-off-by: Chris Cormack <crc@liblime.com>

diff --git a/C4/Members.pm b/C4/Members.pm
index 2ff210b..e0355fc 100644 (file)
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -597,10 +597,11 @@ sub ModMember {
         $sth->execute;
     }
     else {
-        ( $data{'password'} = md5_base64( $data{'password'} ) )
+        $data{'password'} = md5_base64( $data{'password'} )   if ( $data{'password'} ne '' );
+        delete $data{'password'} if ($data{password} eq "");
         foreach (keys %data)
         {push @parameters,"$_ = ".$dbh->quote($data{$_}) if ($_ ne "borrowernumber" and $hashborrowerfields{$_} and $data{$_})} ;
-          if ( $data{'password'} ne '' );
+        
         $query = "UPDATE borrowers SET ".join (",",@parameters)." WHERE borrowernumber=$data{'borrowernumber'}";
 #         warn "$query";
         $sth = $dbh->prepare($query);