gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug Fixing : password were modified when patron page was edited even though unchanged 

Signed-off-by: Chris Cormack <crc@liblime.com>
This commit is contained in:
Henri-Damien LAURENT 2007-09-26 12:26:35 +02:00 committed by Chris Cormack
parent 93bca202da
commit 0a6809af92
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C4/Members.pm
View File

@ -582,14 +582,14 @@ sub ModMember {
}
my $query;
my $sth;
$data{'userid'} = '' if ( $data{'password'} eq '' );
$data{'userid'} = '' if ( $data{'password'} eq '' );
my @parameters;
foreach (keys %data)
{push @parameters,"$_ = ".$dbh->quote($data{$_}) if ($_ ne "borrowernumber" and $hashborrowerfields{$_} and $data{$_})} ;
# test to know if u must update or not the borrower password
if ( $data{'password'} eq '****' ) {
delete $data{'password'};
foreach (keys %data)
{push @parameters,"$_ = ".$dbh->quote($data{$_}) if ($_ ne "borrowernumber" and $hashborrowerfields{$_} and $data{$_})} ;
$query = "UPDATE borrowers SET ".join (",",@parameters)
." WHERE borrowernumber=$data{'borrowernumber'}";
# warn "$query";
@ -598,6 +598,8 @@ sub ModMember {
}
else {
foreach (keys %data)
{push @parameters,"$_ = ".$dbh->quote($data{$_}) if ($_ ne "borrowernumber" and $hashborrowerfields{$_} and $data{$_})} ;
( $data{'password'} = md5_base64( $data{'password'} ) )
if ( $data{'password'} ne '' );
$query = "UPDATE borrowers SET ".join (",",@parameters)." WHERE borrowernumber=$data{'borrowernumber'}";