|
Lines 321-327
if ( $op eq 'do' ) {
Link Here
|
| 321 |
|
321 |
|
| 322 |
my @disabled = $input->multi_param('disable_input'); |
322 |
my @disabled = $input->multi_param('disable_input'); |
| 323 |
my $infos; |
323 |
my $infos; |
| 324 |
for my $field ( qw/surname firstname branchcode categorycode streetnumber address address2 city state zipcode country email phone mobile sort1 sort2 dateenrolled dateexpiry borrowernotes opacnote/ ) { |
324 |
for my $field ( qw/surname firstname branchcode categorycode streetnumber address address2 city state zipcode country email phone mobile sort1 sort2 dateenrolled dateexpiry borrowernotes opacnote debarred debarredcomment/ ) { |
| 325 |
my $value = $input->param($field); |
325 |
my $value = $input->param($field); |
| 326 |
$infos->{$field} = $value if $value; |
326 |
$infos->{$field} = $value if $value; |
| 327 |
$infos->{$field} = "" if grep { $_ eq $field } @disabled; |
327 |
$infos->{$field} = "" if grep { $_ eq $field } @disabled; |
| 328 |
- |
|
|