Lines 137-143
if ( $op eq "cud-action" ) {
Link Here
|
137 |
if ( grep { $cgi_var_name eq $_ } @subfields_to_blank ) { |
137 |
if ( grep { $cgi_var_name eq $_ } @subfields_to_blank ) { |
138 |
|
138 |
|
139 |
# Empty this column |
139 |
# Empty this column |
140 |
$new_item_data->{$attr} = undef; |
140 |
if ( $attr eq 'withdrawn' || $attr eq 'itemlost' || $attr eq 'damaged' || $attr eq 'notforloan' ) { |
|
|
141 |
|
142 |
# these fields are not nullable; they must be set to 0 instead |
143 |
$new_item_data->{$attr} = 0; |
144 |
} else { |
145 |
$new_item_data->{$attr} = undef; |
146 |
} |
141 |
} elsif ( my $regex_search = $input->param( $cgi_var_name . '_regex_search' ) ) { |
147 |
} elsif ( my $regex_search = $input->param( $cgi_var_name . '_regex_search' ) ) { |
142 |
$columns_with_regex->{$attr} = { |
148 |
$columns_with_regex->{$attr} = { |
143 |
search => $regex_search, |
149 |
search => $regex_search, |
144 |
- |
|
|