Lines 272-292
elsif ($op eq 'add') {
Link Here
|
272 |
my $holds_per_record = strip_non_numeric( scalar $input->param('holds_per_record') ); |
272 |
my $holds_per_record = strip_non_numeric( scalar $input->param('holds_per_record') ); |
273 |
my $holds_per_day = strip_non_numeric( scalar $input->param('holds_per_day') ); |
273 |
my $holds_per_day = strip_non_numeric( scalar $input->param('holds_per_day') ); |
274 |
my $onshelfholds = $input->param('onshelfholds') || 0; |
274 |
my $onshelfholds = $input->param('onshelfholds') || 0; |
275 |
my $issuelength = $input->param('issuelength'); |
275 |
my $issuelength = $input->param('issuelength') || 0; |
276 |
$issuelength = $issuelength eq q{} ? undef : $issuelength; |
|
|
277 |
my $daysmode = $input->param('daysmode'); |
276 |
my $daysmode = $input->param('daysmode'); |
278 |
my $lengthunit = $input->param('lengthunit'); |
277 |
my $lengthunit = $input->param('lengthunit'); |
279 |
my $hardduedate = $input->param('hardduedate') || undef; |
278 |
my $hardduedate = $input->param('hardduedate') || ''; |
280 |
$hardduedate = eval { dt_from_string( scalar $hardduedate ) } if ( $hardduedate ); |
279 |
$hardduedate = eval { dt_from_string( scalar $hardduedate ) } if ( $hardduedate ); |
281 |
$hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); |
280 |
$hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); |
282 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
281 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
283 |
my $rentaldiscount = $input->param('rentaldiscount'); |
282 |
my $rentaldiscount = $input->param('rentaldiscount') || 0; |
284 |
my $opacitemholds = $input->param('opacitemholds') || 0; |
283 |
my $opacitemholds = $input->param('opacitemholds') || 0; |
285 |
my $article_requests = $input->param('article_requests') || 'no'; |
284 |
my $article_requests = $input->param('article_requests') || 'no'; |
286 |
my $overduefinescap = $input->param('overduefinescap') || ''; |
285 |
my $overduefinescap = $input->param('overduefinescap') || ''; |
287 |
my $cap_fine_to_replacement_price = ($input->param('cap_fine_to_replacement_price') || '') eq 'on'; |
286 |
my $cap_fine_to_replacement_price = ($input->param('cap_fine_to_replacement_price') || '') eq 'on'; |
288 |
my $note = $input->param('note'); |
287 |
my $note = $input->param('note'); |
289 |
my $decreaseloanholds = $input->param('decreaseloanholds') || undef; |
288 |
my $decreaseloanholds = $input->param('decreaseloanholds') || ''; |
290 |
|
289 |
|
291 |
my $rules = { |
290 |
my $rules = { |
292 |
maxissueqty => $maxissueqty, |
291 |
maxissueqty => $maxissueqty, |