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