|
Lines 74-81
if ($op eq 'delete') {
Link Here
|
| 74 |
Koha::CirculationRules->set_rules( |
74 |
Koha::CirculationRules->set_rules( |
| 75 |
{ |
75 |
{ |
| 76 |
categorycode => $categorycode eq '*' ? undef : $categorycode, |
76 |
categorycode => $categorycode eq '*' ? undef : $categorycode, |
| 77 |
branchcode => $branch eq '*' ? undef : $branch, |
77 |
branchcode => $branch eq '*' ? undef : $branch, |
| 78 |
itemtype => $itemtype eq '*' ? undef : $itemtype, |
78 |
itemtype => $itemtype eq '*' ? undef : $itemtype, |
| 79 |
rules => { |
79 |
rules => { |
| 80 |
maxissueqty => undef, |
80 |
maxissueqty => undef, |
| 81 |
maxonsiteissueqty => undef, |
81 |
maxonsiteissueqty => undef, |
|
Lines 252-351
elsif ($op eq 'delete-branch-item') {
Link Here
|
| 252 |
} |
252 |
} |
| 253 |
} |
253 |
} |
| 254 |
# save the values entered |
254 |
# save the values entered |
| 255 |
elsif ($op eq 'add') { |
255 |
elsif ( $op eq 'add' ) { |
| 256 |
my $br = $branch; # branch |
256 |
my $br = $branch; # branch |
| 257 |
my $bor = $input->param('categorycode'); # borrower category |
257 |
my $bor = $input->param('categorycode'); # borrower category |
| 258 |
my $itemtype = $input->param('itemtype'); # item type |
258 |
my $itemtype = $input->param('itemtype'); # item type |
| 259 |
my $fine = $input->param('fine'); |
259 |
my $fine = $input->param('fine'); |
| 260 |
my $finedays = $input->param('finedays'); |
260 |
my $finedays = $input->param('finedays'); |
| 261 |
my $maxsuspensiondays = $input->param('maxsuspensiondays') || q{}; |
261 |
my $maxsuspensiondays = $input->param('maxsuspensiondays') || q{}; |
| 262 |
my $suspension_chargeperiod = $input->param('suspension_chargeperiod') || 1; |
262 |
my $suspension_chargeperiod = $input->param('suspension_chargeperiod') || 1; |
| 263 |
my $firstremind = $input->param('firstremind'); |
263 |
my $firstremind = $input->param('firstremind'); |
| 264 |
my $chargeperiod = $input->param('chargeperiod'); |
264 |
my $chargeperiod = $input->param('chargeperiod'); |
| 265 |
my $chargeperiod_charge_at = $input->param('chargeperiod_charge_at'); |
265 |
my $chargeperiod_charge_at = $input->param('chargeperiod_charge_at'); |
| 266 |
my $maxissueqty = strip_non_numeric( scalar $input->param('maxissueqty') ); |
266 |
my $maxissueqty = strip_non_numeric( scalar $input->param('maxissueqty') ); |
| 267 |
my $maxonsiteissueqty = strip_non_numeric( scalar $input->param('maxonsiteissueqty') ); |
267 |
my $maxonsiteissueqty = strip_non_numeric( scalar $input->param('maxonsiteissueqty') ); |
| 268 |
my $renewalsallowed = $input->param('renewalsallowed'); |
268 |
my $renewalsallowed = $input->param('renewalsallowed'); |
| 269 |
my $unseen_renewals_allowed = defined $input->param('unseen_renewals_allowed') ? strip_non_numeric( scalar $input->param('unseen_renewals_allowed') ) : q{}; |
269 |
my $unseen_renewals_allowed = |
|
|
270 |
defined $input->param('unseen_renewals_allowed') |
| 271 |
? strip_non_numeric( scalar $input->param('unseen_renewals_allowed') ) |
| 272 |
: q{}; |
| 270 |
my $renewalperiod = $input->param('renewalperiod'); |
273 |
my $renewalperiod = $input->param('renewalperiod'); |
| 271 |
my $norenewalbefore = $input->param('norenewalbefore'); |
274 |
my $norenewalbefore = $input->param('norenewalbefore'); |
| 272 |
$norenewalbefore = q{} if $norenewalbefore =~ /^\s*$/; |
275 |
$norenewalbefore = q{} if $norenewalbefore =~ /^\s*$/; |
| 273 |
my $noautorenewalbefore = $input->param('noautorenewalbefore'); |
276 |
my $noautorenewalbefore = $input->param('noautorenewalbefore'); |
| 274 |
$noautorenewalbefore = q{} if $noautorenewalbefore =~ /^\s*$/; |
277 |
my $auto_renew = $input->param('auto_renew') eq 'yes' ? 1 : 0; |
| 275 |
my $auto_renew = $input->param('auto_renew') eq 'yes' ? 1 : 0; |
|
|
| 276 |
my $no_auto_renewal_after = $input->param('no_auto_renewal_after'); |
278 |
my $no_auto_renewal_after = $input->param('no_auto_renewal_after'); |
| 277 |
$no_auto_renewal_after = q{} if $no_auto_renewal_after =~ /^\s*$/; |
279 |
$no_auto_renewal_after = q{} if $no_auto_renewal_after =~ /^\s*$/; |
| 278 |
my $no_auto_renewal_after_hard_limit = $input->param('no_auto_renewal_after_hard_limit') || q{}; |
280 |
my $no_auto_renewal_after_hard_limit = $input->param('no_auto_renewal_after_hard_limit') || q{}; |
| 279 |
my $reservesallowed = strip_non_numeric( scalar $input->param('reservesallowed') ); |
281 |
my $reservesallowed = strip_non_numeric( scalar $input->param('reservesallowed') ); |
| 280 |
my $holds_per_record = strip_non_numeric( scalar $input->param('holds_per_record') ); |
282 |
my $holds_per_record = strip_non_numeric( scalar $input->param('holds_per_record') ); |
| 281 |
my $holds_per_day = strip_non_numeric( scalar $input->param('holds_per_day') ); |
283 |
my $holds_per_day = strip_non_numeric( scalar $input->param('holds_per_day') ); |
| 282 |
my $onshelfholds = $input->param('onshelfholds') || 0; |
284 |
my $onshelfholds = $input->param('onshelfholds') || 0; |
| 283 |
my $issuelength = $input->param('issuelength') || 0; |
285 |
my $issuelength = $input->param('issuelength') || 0; |
| 284 |
my $daysmode = $input->param('daysmode'); |
286 |
my $daysmode = $input->param('daysmode'); |
| 285 |
my $lengthunit = $input->param('lengthunit'); |
287 |
my $lengthunit = $input->param('lengthunit'); |
| 286 |
my $hardduedate = $input->param('hardduedate') || q{}; |
288 |
my $hardduedate = $input->param('hardduedate') || q{}; |
| 287 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
289 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
| 288 |
my $rentaldiscount = $input->param('rentaldiscount') || 0; |
290 |
my $rentaldiscount = $input->param('rentaldiscount') || 0; |
| 289 |
my $opacitemholds = $input->param('opacitemholds') || 0; |
291 |
my $opacitemholds = $input->param('opacitemholds') || 0; |
| 290 |
my $article_requests = $input->param('article_requests') || 'no'; |
292 |
my $article_requests = $input->param('article_requests') || 'no'; |
| 291 |
my $overduefinescap = $input->param('overduefinescap') |
293 |
my $overduefinescap = $input->param('overduefinescap') |
| 292 |
&& ( $input->param('overduefinescap') + 0 ) > 0 ? sprintf( "%.02f", $input->param('overduefinescap') ) : q{}; |
294 |
&& ( $input->param('overduefinescap') + 0 ) > 0 ? sprintf( "%.02f", $input->param('overduefinescap') ) : q{}; |
| 293 |
my $cap_fine_to_replacement_price = ($input->param('cap_fine_to_replacement_price') || q{}) eq 'on'; |
295 |
my $cap_fine_to_replacement_price = ( $input->param('cap_fine_to_replacement_price') || q{} ) eq 'on'; |
| 294 |
my $note = $input->param('note'); |
296 |
my $note = $input->param('note'); |
| 295 |
my $decreaseloanholds = $input->param('decreaseloanholds') || q{}; |
297 |
my $decreaseloanholds = $input->param('decreaseloanholds') || q{}; |
| 296 |
my $recalls_allowed = $input->param('recalls_allowed'); |
298 |
my $recalls_allowed = $input->param('recalls_allowed'); |
| 297 |
my $recalls_per_record = $input->param('recalls_per_record'); |
299 |
my $recalls_per_record = $input->param('recalls_per_record'); |
| 298 |
my $on_shelf_recalls = $input->param('on_shelf_recalls'); |
300 |
my $on_shelf_recalls = $input->param('on_shelf_recalls'); |
| 299 |
my $recall_due_date_interval = $input->param('recall_due_date_interval'); |
301 |
my $recall_due_date_interval = $input->param('recall_due_date_interval'); |
| 300 |
my $recall_overdue_fine = $input->param('recall_overdue_fine'); |
302 |
my $recall_overdue_fine = $input->param('recall_overdue_fine'); |
| 301 |
my $recall_shelf_time = $input->param('recall_shelf_time'); |
303 |
my $recall_shelf_time = $input->param('recall_shelf_time'); |
| 302 |
my $holds_pickup_period = strip_non_numeric( scalar $input->param('holds_pickup_period') ); |
304 |
my $holds_pickup_period = strip_non_numeric( scalar $input->param('holds_pickup_period') ); |
| 303 |
|
305 |
|
| 304 |
my $rules = { |
306 |
my $rules = { |
| 305 |
maxissueqty => $maxissueqty, |
307 |
maxissueqty => $maxissueqty, |
| 306 |
maxonsiteissueqty => $maxonsiteissueqty, |
308 |
maxonsiteissueqty => $maxonsiteissueqty, |
| 307 |
rentaldiscount => $rentaldiscount, |
309 |
rentaldiscount => $rentaldiscount, |
| 308 |
fine => $fine, |
310 |
fine => $fine, |
| 309 |
finedays => $finedays, |
311 |
finedays => $finedays, |
| 310 |
maxsuspensiondays => $maxsuspensiondays, |
312 |
maxsuspensiondays => $maxsuspensiondays, |
| 311 |
suspension_chargeperiod => $suspension_chargeperiod, |
313 |
suspension_chargeperiod => $suspension_chargeperiod, |
| 312 |
firstremind => $firstremind, |
314 |
firstremind => $firstremind, |
| 313 |
chargeperiod => $chargeperiod, |
315 |
chargeperiod => $chargeperiod, |
| 314 |
chargeperiod_charge_at => $chargeperiod_charge_at, |
316 |
chargeperiod_charge_at => $chargeperiod_charge_at, |
| 315 |
issuelength => $issuelength, |
317 |
issuelength => $issuelength, |
| 316 |
daysmode => $daysmode, |
318 |
daysmode => $daysmode, |
| 317 |
lengthunit => $lengthunit, |
319 |
lengthunit => $lengthunit, |
| 318 |
hardduedate => $hardduedate, |
320 |
hardduedate => $hardduedate, |
| 319 |
hardduedatecompare => $hardduedatecompare, |
321 |
hardduedatecompare => $hardduedatecompare, |
| 320 |
renewalsallowed => $renewalsallowed, |
322 |
renewalsallowed => $renewalsallowed, |
| 321 |
unseen_renewals_allowed => $unseen_renewals_allowed, |
323 |
unseen_renewals_allowed => $unseen_renewals_allowed, |
| 322 |
renewalperiod => $renewalperiod, |
324 |
renewalperiod => $renewalperiod, |
| 323 |
norenewalbefore => $norenewalbefore, |
325 |
norenewalbefore => $norenewalbefore, |
| 324 |
noautorenewalbefore => $noautorenewalbefore, |
326 |
noautorenewalbefore => $noautorenewalbefore, |
| 325 |
auto_renew => $auto_renew, |
327 |
auto_renew => $auto_renew, |
| 326 |
no_auto_renewal_after => $no_auto_renewal_after, |
328 |
no_auto_renewal_after => $no_auto_renewal_after, |
| 327 |
no_auto_renewal_after_hard_limit => $no_auto_renewal_after_hard_limit, |
329 |
no_auto_renewal_after_hard_limit => $no_auto_renewal_after_hard_limit, |
| 328 |
onshelfholds => $onshelfholds, |
330 |
onshelfholds => $onshelfholds, |
| 329 |
opacitemholds => $opacitemholds, |
331 |
opacitemholds => $opacitemholds, |
| 330 |
overduefinescap => $overduefinescap, |
332 |
overduefinescap => $overduefinescap, |
| 331 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
333 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
| 332 |
article_requests => $article_requests, |
334 |
article_requests => $article_requests, |
| 333 |
note => $note, |
335 |
note => $note, |
| 334 |
decreaseloanholds => $decreaseloanholds, |
336 |
decreaseloanholds => $decreaseloanholds, |
| 335 |
recalls_allowed => $recalls_allowed, |
337 |
recalls_allowed => $recalls_allowed, |
| 336 |
recalls_per_record => $recalls_per_record, |
338 |
recalls_per_record => $recalls_per_record, |
| 337 |
on_shelf_recalls => $on_shelf_recalls, |
339 |
on_shelf_recalls => $on_shelf_recalls, |
| 338 |
recall_due_date_interval => $recall_due_date_interval, |
340 |
recall_due_date_interval => $recall_due_date_interval, |
| 339 |
recall_overdue_fine => $recall_overdue_fine, |
341 |
recall_overdue_fine => $recall_overdue_fine, |
| 340 |
recall_shelf_time => $recall_shelf_time, |
342 |
recall_shelf_time => $recall_shelf_time, |
| 341 |
holds_pickup_period => $holds_pickup_period, |
343 |
holds_pickup_period => $holds_pickup_period, |
| 342 |
}; |
344 |
}; |
| 343 |
|
345 |
|
| 344 |
Koha::CirculationRules->set_rules( |
346 |
Koha::CirculationRules->set_rules( |
| 345 |
{ |
347 |
{ |
| 346 |
categorycode => $bor eq '*' ? undef : $bor, |
348 |
categorycode => $bor eq '*' ? undef : $bor, |
| 347 |
itemtype => $itemtype eq '*' ? undef : $itemtype, |
349 |
itemtype => $itemtype eq '*' ? undef : $itemtype, |
| 348 |
branchcode => $br eq '*' ? undef : $br, |
350 |
branchcode => $br eq '*' ? undef : $br, |
| 349 |
rules => $rules, |
351 |
rules => $rules, |
| 350 |
} |
352 |
} |
| 351 |
); |
353 |
); |