|
Lines 176-181
if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' )
Link Here
|
| 176 |
if (defined $input->param($key)) { |
176 |
if (defined $input->param($key)) { |
| 177 |
$newdata{$key} = $input->param($key); |
177 |
$newdata{$key} = $input->param($key); |
| 178 |
$newdata{$key} =~ s/\"/"/g unless $key eq 'borrowernotes' or $key eq 'opacnote'; |
178 |
$newdata{$key} =~ s/\"/"/g unless $key eq 'borrowernotes' or $key eq 'opacnote'; |
|
|
179 |
if (defined $newdata{$key} && $newdata{$key} =~ /\S/) { |
| 180 |
$newdata{$key} =~ s/^\s*|\s*$//g; # trim whitespace if non-whitespace present. |
| 181 |
} |
| 179 |
} |
182 |
} |
| 180 |
} |
183 |
} |
| 181 |
|
184 |
|
| 182 |
- |
|
|