From 1e593ab22eab9a76e8e6a6db4790edf217292ce7 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=83=C2=A9d=C3=83=C2=A9ric=20DEMIANS?= Date: Wed, 10 Oct 2007 14:42:15 -0500 Subject: [PATCH] #1475 MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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 Date: Sun, 7 Oct 2007 01:54:56 +0200 Subject: [PATCH] Correct a bug preventing from modifying member records Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- members/memberentry.pl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/members/memberentry.pl b/members/memberentry.pl index f027c4c6f2..e5fe443a77 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -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/\"/"/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/\"/"/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. -- 2.20.1