|
Lines 264-270
elsif ($op eq 'add') {
Link Here
|
| 264 |
my $maxissueqty = strip_non_numeric( scalar $input->param('maxissueqty') ); |
264 |
my $maxissueqty = strip_non_numeric( scalar $input->param('maxissueqty') ); |
| 265 |
my $maxonsiteissueqty = strip_non_numeric( scalar $input->param('maxonsiteissueqty') ); |
265 |
my $maxonsiteissueqty = strip_non_numeric( scalar $input->param('maxonsiteissueqty') ); |
| 266 |
my $renewalsallowed = $input->param('renewalsallowed'); |
266 |
my $renewalsallowed = $input->param('renewalsallowed'); |
| 267 |
my $unseen_renewals_allowed = $input->param('unseen_renewals_allowed'); |
267 |
my $unseen_renewals_allowed = strip_non_numeric( scalar $input->param('unseen_renewals_allowed') ) // ''; |
| 268 |
my $renewalperiod = $input->param('renewalperiod'); |
268 |
my $renewalperiod = $input->param('renewalperiod'); |
| 269 |
my $norenewalbefore = $input->param('norenewalbefore'); |
269 |
my $norenewalbefore = $input->param('norenewalbefore'); |
| 270 |
$norenewalbefore = '' if $norenewalbefore =~ /^\s*$/; |
270 |
$norenewalbefore = '' if $norenewalbefore =~ /^\s*$/; |
|
Lines 278-298
elsif ($op eq 'add') {
Link Here
|
| 278 |
my $holds_per_record = strip_non_numeric( scalar $input->param('holds_per_record') ); |
278 |
my $holds_per_record = strip_non_numeric( scalar $input->param('holds_per_record') ); |
| 279 |
my $holds_per_day = strip_non_numeric( scalar $input->param('holds_per_day') ); |
279 |
my $holds_per_day = strip_non_numeric( scalar $input->param('holds_per_day') ); |
| 280 |
my $onshelfholds = $input->param('onshelfholds') || 0; |
280 |
my $onshelfholds = $input->param('onshelfholds') || 0; |
| 281 |
my $issuelength = $input->param('issuelength'); |
281 |
my $issuelength = $input->param('issuelength') || 0; |
| 282 |
$issuelength = $issuelength eq q{} ? undef : $issuelength; |
|
|
| 283 |
my $daysmode = $input->param('daysmode'); |
282 |
my $daysmode = $input->param('daysmode'); |
| 284 |
my $lengthunit = $input->param('lengthunit'); |
283 |
my $lengthunit = $input->param('lengthunit'); |
| 285 |
my $hardduedate = $input->param('hardduedate') || undef; |
284 |
my $hardduedate = $input->param('hardduedate') || ''; |
| 286 |
$hardduedate = eval { dt_from_string( scalar $hardduedate ) } if ( $hardduedate ); |
285 |
$hardduedate = eval { dt_from_string( scalar $hardduedate ) } if ( $hardduedate ); |
| 287 |
$hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); |
286 |
$hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); |
| 288 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
287 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
| 289 |
my $rentaldiscount = $input->param('rentaldiscount'); |
288 |
my $rentaldiscount = $input->param('rentaldiscount') || 0; |
| 290 |
my $opacitemholds = $input->param('opacitemholds') || 0; |
289 |
my $opacitemholds = $input->param('opacitemholds') || 0; |
| 291 |
my $article_requests = $input->param('article_requests') || 'no'; |
290 |
my $article_requests = $input->param('article_requests') || 'no'; |
| 292 |
my $overduefinescap = $input->param('overduefinescap') || ''; |
291 |
my $overduefinescap = $input->param('overduefinescap') || ''; |
| 293 |
my $cap_fine_to_replacement_price = ($input->param('cap_fine_to_replacement_price') || '') eq 'on'; |
292 |
my $cap_fine_to_replacement_price = ($input->param('cap_fine_to_replacement_price') || '') eq 'on'; |
| 294 |
my $note = $input->param('note'); |
293 |
my $note = $input->param('note'); |
| 295 |
my $decreaseloanholds = $input->param('decreaseloanholds') || undef; |
294 |
my $decreaseloanholds = $input->param('decreaseloanholds') || ''; |
| 296 |
my $recalls_allowed = $input->param('recalls_allowed'); |
295 |
my $recalls_allowed = $input->param('recalls_allowed'); |
| 297 |
my $recalls_per_record = $input->param('recalls_per_record'); |
296 |
my $recalls_per_record = $input->param('recalls_per_record'); |
| 298 |
my $on_shelf_recalls = $input->param('on_shelf_recalls'); |
297 |
my $on_shelf_recalls = $input->param('on_shelf_recalls'); |