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.
if ($data{'sex'} eq 'F'){
$template->param(female => 1);
} elsif ($data{'sex'} eq 'M'){
- $template->param(mail => 1);
+ $template->param(male => 1);
} else {
$template->param(none => 1);
}