|
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, |