Lines 298-344
elsif ($op eq 'add') {
Link Here
|
298 |
my $recall_due_date_interval = $input->param('recall_due_date_interval'); |
298 |
my $recall_due_date_interval = $input->param('recall_due_date_interval'); |
299 |
my $recall_overdue_fine = $input->param('recall_overdue_fine'); |
299 |
my $recall_overdue_fine = $input->param('recall_overdue_fine'); |
300 |
my $recall_shelf_time = $input->param('recall_shelf_time'); |
300 |
my $recall_shelf_time = $input->param('recall_shelf_time'); |
|
|
301 |
my $holds_pickup_period = strip_non_numeric($input->param('holds_pickup_period')); |
301 |
|
302 |
|
302 |
my $rules = { |
303 |
my $rules = { |
303 |
maxissueqty => $maxissueqty, |
304 |
maxissueqty => $maxissueqty, |
304 |
maxonsiteissueqty => $maxonsiteissueqty, |
305 |
maxonsiteissueqty => $maxonsiteissueqty, |
305 |
rentaldiscount => $rentaldiscount, |
306 |
rentaldiscount => $rentaldiscount, |
306 |
fine => $fine, |
307 |
fine => $fine, |
307 |
finedays => $finedays, |
308 |
finedays => $finedays, |
308 |
maxsuspensiondays => $maxsuspensiondays, |
309 |
maxsuspensiondays => $maxsuspensiondays, |
309 |
suspension_chargeperiod => $suspension_chargeperiod, |
310 |
suspension_chargeperiod => $suspension_chargeperiod, |
310 |
firstremind => $firstremind, |
311 |
firstremind => $firstremind, |
311 |
chargeperiod => $chargeperiod, |
312 |
chargeperiod => $chargeperiod, |
312 |
chargeperiod_charge_at => $chargeperiod_charge_at, |
313 |
chargeperiod_charge_at => $chargeperiod_charge_at, |
313 |
issuelength => $issuelength, |
314 |
issuelength => $issuelength, |
314 |
daysmode => $daysmode, |
315 |
daysmode => $daysmode, |
315 |
lengthunit => $lengthunit, |
316 |
lengthunit => $lengthunit, |
316 |
hardduedate => $hardduedate, |
317 |
hardduedate => $hardduedate, |
317 |
hardduedatecompare => $hardduedatecompare, |
318 |
hardduedatecompare => $hardduedatecompare, |
318 |
renewalsallowed => $renewalsallowed, |
319 |
renewalsallowed => $renewalsallowed, |
319 |
unseen_renewals_allowed => $unseen_renewals_allowed, |
320 |
unseen_renewals_allowed => $unseen_renewals_allowed, |
320 |
renewalperiod => $renewalperiod, |
321 |
renewalperiod => $renewalperiod, |
321 |
norenewalbefore => $norenewalbefore, |
322 |
norenewalbefore => $norenewalbefore, |
322 |
noautorenewalbefore => $noautorenewalbefore, |
323 |
noautorenewalbefore => $noautorenewalbefore, |
323 |
auto_renew => $auto_renew, |
324 |
auto_renew => $auto_renew, |
324 |
no_auto_renewal_after => $no_auto_renewal_after, |
325 |
no_auto_renewal_after => $no_auto_renewal_after, |
325 |
no_auto_renewal_after_hard_limit => $no_auto_renewal_after_hard_limit, |
326 |
no_auto_renewal_after_hard_limit => $no_auto_renewal_after_hard_limit, |
326 |
reservesallowed => $reservesallowed, |
327 |
onshelfholds => $onshelfholds, |
327 |
holds_per_record => $holds_per_record, |
328 |
opacitemholds => $opacitemholds, |
328 |
holds_per_day => $holds_per_day, |
329 |
overduefinescap => $overduefinescap, |
329 |
onshelfholds => $onshelfholds, |
330 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
330 |
opacitemholds => $opacitemholds, |
331 |
article_requests => $article_requests, |
331 |
overduefinescap => $overduefinescap, |
332 |
note => $note, |
332 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
333 |
decreaseloanholds => $decreaseloanholds, |
333 |
article_requests => $article_requests, |
334 |
recalls_allowed => $recalls_allowed, |
334 |
note => $note, |
335 |
recalls_per_record => $recalls_per_record, |
335 |
decreaseloanholds => $decreaseloanholds, |
336 |
on_shelf_recalls => $on_shelf_recalls, |
336 |
recalls_allowed => $recalls_allowed, |
337 |
recall_due_date_interval => $recall_due_date_interval, |
337 |
recalls_per_record => $recalls_per_record, |
338 |
recall_overdue_fine => $recall_overdue_fine, |
338 |
on_shelf_recalls => $on_shelf_recalls, |
339 |
recall_shelf_time => $recall_shelf_time, |
339 |
recall_due_date_interval => $recall_due_date_interval, |
340 |
holds_pickup_period => $holds_pickup_period, |
340 |
recall_overdue_fine => $recall_overdue_fine, |
|
|
341 |
recall_shelf_time => $recall_shelf_time, |
342 |
}; |
341 |
}; |
343 |
|
342 |
|
344 |
Koha::CirculationRules->set_rules( |
343 |
Koha::CirculationRules->set_rules( |