|
Lines 261-268
elsif ($op eq 'add') {
Link Here
|
| 261 |
my $firstremind = $input->param('firstremind'); |
261 |
my $firstremind = $input->param('firstremind'); |
| 262 |
my $chargeperiod = $input->param('chargeperiod'); |
262 |
my $chargeperiod = $input->param('chargeperiod'); |
| 263 |
my $chargeperiod_charge_at = $input->param('chargeperiod_charge_at'); |
263 |
my $chargeperiod_charge_at = $input->param('chargeperiod_charge_at'); |
| 264 |
my $maxissueqty = $input->param('maxissueqty'); |
264 |
my $maxissueqty = strip_non_numeric($input->param('maxissueqty')); |
| 265 |
my $maxonsiteissueqty = $input->param('maxonsiteissueqty'); |
265 |
my $maxonsiteissueqty = strip_non_numeric($input->param('maxonsiteissueqty')); |
| 266 |
my $renewalsallowed = $input->param('renewalsallowed'); |
266 |
my $renewalsallowed = $input->param('renewalsallowed'); |
| 267 |
my $renewalperiod = $input->param('renewalperiod'); |
267 |
my $renewalperiod = $input->param('renewalperiod'); |
| 268 |
my $norenewalbefore = $input->param('norenewalbefore'); |
268 |
my $norenewalbefore = $input->param('norenewalbefore'); |
|
Lines 273-288
elsif ($op eq 'add') {
Link Here
|
| 273 |
my $no_auto_renewal_after_hard_limit = $input->param('no_auto_renewal_after_hard_limit') || ''; |
273 |
my $no_auto_renewal_after_hard_limit = $input->param('no_auto_renewal_after_hard_limit') || ''; |
| 274 |
$no_auto_renewal_after_hard_limit = eval { dt_from_string( $input->param('no_auto_renewal_after_hard_limit') ) } if ( $no_auto_renewal_after_hard_limit ); |
274 |
$no_auto_renewal_after_hard_limit = eval { dt_from_string( $input->param('no_auto_renewal_after_hard_limit') ) } if ( $no_auto_renewal_after_hard_limit ); |
| 275 |
$no_auto_renewal_after_hard_limit = output_pref( { dt => $no_auto_renewal_after_hard_limit, dateonly => 1, dateformat => 'iso' } ) if ( $no_auto_renewal_after_hard_limit ); |
275 |
$no_auto_renewal_after_hard_limit = output_pref( { dt => $no_auto_renewal_after_hard_limit, dateonly => 1, dateformat => 'iso' } ) if ( $no_auto_renewal_after_hard_limit ); |
| 276 |
my $reservesallowed = $input->param('reservesallowed'); |
276 |
my $reservesallowed = strip_non_numeric($input->param('reservesallowed')); |
| 277 |
my $holds_per_record = $input->param('holds_per_record'); |
277 |
my $holds_per_record = strip_non_numeric($input->param('holds_per_record')); |
| 278 |
my $holds_per_day = $input->param('holds_per_day'); |
278 |
my $holds_per_day = strip_non_numeric($input->param('holds_per_day')); |
| 279 |
$holds_per_day =~ s/\s//g; |
|
|
| 280 |
$holds_per_day = '' if $holds_per_day !~ /^\d+/; |
| 281 |
my $onshelfholds = $input->param('onshelfholds') || 0; |
279 |
my $onshelfholds = $input->param('onshelfholds') || 0; |
| 282 |
$maxissueqty =~ s/\s//g; |
|
|
| 283 |
$maxissueqty = '' if $maxissueqty !~ /^\d+/; |
| 284 |
$maxonsiteissueqty =~ s/\s//g; |
| 285 |
$maxonsiteissueqty = '' if $maxonsiteissueqty !~ /^\d+/; |
| 286 |
my $issuelength = $input->param('issuelength'); |
280 |
my $issuelength = $input->param('issuelength'); |
| 287 |
$issuelength = $issuelength eq q{} ? undef : $issuelength; |
281 |
$issuelength = $issuelength eq q{} ? undef : $issuelength; |
| 288 |
my $lengthunit = $input->param('lengthunit'); |
282 |
my $lengthunit = $input->param('lengthunit'); |
|
Lines 342-361
elsif ($op eq 'add') {
Link Here
|
| 342 |
} |
336 |
} |
| 343 |
elsif ($op eq "set-branch-defaults") { |
337 |
elsif ($op eq "set-branch-defaults") { |
| 344 |
my $categorycode = $input->param('categorycode'); |
338 |
my $categorycode = $input->param('categorycode'); |
| 345 |
my $patron_maxissueqty = $input->param('patron_maxissueqty'); |
339 |
my $patron_maxissueqty = strip_non_numeric($input->param('patron_maxissueqty')); |
| 346 |
my $patron_maxonsiteissueqty = $input->param('patron_maxonsiteissueqty'); |
340 |
my $patron_maxonsiteissueqty = $input->param('patron_maxonsiteissueqty'); |
|
|
341 |
$patron_maxonsiteissueqty = strip_non_numeric($patron_maxonsiteissueqty); |
| 347 |
my $holdallowed = $input->param('holdallowed'); |
342 |
my $holdallowed = $input->param('holdallowed'); |
| 348 |
my $hold_fulfillment_policy = $input->param('hold_fulfillment_policy'); |
343 |
my $hold_fulfillment_policy = $input->param('hold_fulfillment_policy'); |
| 349 |
my $returnbranch = $input->param('returnbranch'); |
344 |
my $returnbranch = $input->param('returnbranch'); |
| 350 |
my $max_holds = $input->param('max_holds'); |
345 |
my $max_holds = strip_non_numeric($input->param('max_holds')); |
| 351 |
$patron_maxissueqty =~ s/\s//g; |
|
|
| 352 |
$patron_maxissueqty = '' if $patron_maxissueqty !~ /^\d+/; |
| 353 |
$patron_maxonsiteissueqty =~ s/\s//g; |
| 354 |
$patron_maxonsiteissueqty = '' if $patron_maxonsiteissueqty !~ /^\d+/; |
| 355 |
$holdallowed =~ s/\s//g; |
346 |
$holdallowed =~ s/\s//g; |
| 356 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
347 |
$holdallowed = undef if $holdallowed !~ /^\d+/; |
| 357 |
$max_holds =~ s/\s//g; |
|
|
| 358 |
$max_holds = '' if $max_holds !~ /^\d+/; |
| 359 |
|
348 |
|
| 360 |
if ($branch eq "*") { |
349 |
if ($branch eq "*") { |
| 361 |
Koha::CirculationRules->set_rules( |
350 |
Koha::CirculationRules->set_rules( |
|
Lines 413-425
elsif ($op eq "set-branch-defaults") {
Link Here
|
| 413 |
} |
402 |
} |
| 414 |
elsif ($op eq "add-branch-cat") { |
403 |
elsif ($op eq "add-branch-cat") { |
| 415 |
my $categorycode = $input->param('categorycode'); |
404 |
my $categorycode = $input->param('categorycode'); |
| 416 |
my $patron_maxissueqty = $input->param('patron_maxissueqty'); |
405 |
my $patron_maxissueqty = strip_non_numeric($input->param('patron_maxissueqty')); |
| 417 |
my $patron_maxonsiteissueqty = $input->param('patron_maxonsiteissueqty'); |
406 |
my $patron_maxonsiteissueqty = $input->param('patron_maxonsiteissueqty'); |
|
|
407 |
$patron_maxonsiteissueqty = strip_non_numeric($patron_maxonsiteissueqty); |
| 418 |
my $max_holds = $input->param('max_holds'); |
408 |
my $max_holds = $input->param('max_holds'); |
| 419 |
$patron_maxissueqty =~ s/\s//g; |
|
|
| 420 |
$patron_maxissueqty = '' if $patron_maxissueqty !~ /^\d+/; |
| 421 |
$patron_maxonsiteissueqty =~ s/\s//g; |
| 422 |
$patron_maxonsiteissueqty = '' if $patron_maxonsiteissueqty !~ /^\d+/; |
| 423 |
$max_holds =~ s/\s//g; |
409 |
$max_holds =~ s/\s//g; |
| 424 |
$max_holds = undef if $max_holds !~ /^\d+/; |
410 |
$max_holds = undef if $max_holds !~ /^\d+/; |
| 425 |
|
411 |
|
|
Lines 620-622
sub by_itemtype {
Link Here
|
| 620 |
return lc $a->{'translated_description'} cmp lc $b->{'translated_description'}; |
606 |
return lc $a->{'translated_description'} cmp lc $b->{'translated_description'}; |
| 621 |
} |
607 |
} |
| 622 |
} |
608 |
} |
| 623 |
- |
609 |
|
|
|
610 |
sub strip_non_numeric { |
| 611 |
my $string = shift; |
| 612 |
$string =~ s/\s//g; |
| 613 |
$string = '' if $string !~ /^\d+/; |
| 614 |
return $string; |
| 615 |
} |