From 3f940dba8efb580e7d29bf1f560eae6badae6c93 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien@koha-fr.org>
Date: Fri, 28 Sep 2007 16:45:20 +0200
Subject: [PATCH] Bug Fixing, again password was not crypted.

Signed-off-by: Chris Cormack <crc@liblime.com>
---
 C4/Members.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index 2ff210b550..e0355fc6df 100644
--- 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);
-- 
2.39.5