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

#1475 

Not sure whereas this patch's reached you...

Thanks.

--
Frédéric DEMIANS
http://www.tamil.fr/u/fdemians.html

>From 4c1efe7c79d8ac6eb6f275823d9a0ea948d1315c Mon Sep 17 00:00:00 2001
From: Frederic Demians <f.demians@tamil.fr>
Date: Sun, 7 Oct 2007 01:54:56 +0200
Subject: [PATCH] Correct a bug preventing from modifying member records

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Frédéric DEMIANS 2007-10-10 14:42:15 -05:00 committed by Joshua Ferraro
parent 21d03d4481
commit 1e593ab22e
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
members/memberentry.pl
View File

@ -101,11 +101,12 @@ $category_type="A" unless $category_type; # FIXME we should display a error mess
my %newdata;
if ($op eq 'insert' || $op eq 'modify' || $op eq 'save') {
my @names=($borrower_data?keys %$borrower_data:$input->param());
foreach my $key (@names){
$newdata{$key}=$input->param($key)||'';
$newdata{$key}=~ s/\"/&quot;/gg unless $key eq 'borrowernotes' or $key eq 'opacnote';
}
my @names= $borrower_data && $op ne 'save' ? keys %$borrower_data : $input->param();
foreach my $key (@names) {
$newdata{$key} = $input->param($key) || '';
$newdata{$key} =~ s/\"/&quot;/gg unless $key eq 'borrowernotes' or $key eq 'opacnote';
}
# WARN : some tests must be done whatever the step, because the librarian can click on any tab.