Lines 1730-1736
subtest 'AddReturn + suspension_chargeperiod' => sub {
Link Here
|
1730 |
categorycode => '*', |
1730 |
categorycode => '*', |
1731 |
itemtype => '*', |
1731 |
itemtype => '*', |
1732 |
branchcode => '*', |
1732 |
branchcode => '*', |
1733 |
maxissueqty => 99, |
|
|
1734 |
issuelength => 1, |
1733 |
issuelength => 1, |
1735 |
firstremind => 0, # 0 day of grace |
1734 |
firstremind => 0, # 0 day of grace |
1736 |
finedays => 2, # 2 days of fine per day of overdue |
1735 |
finedays => 2, # 2 days of fine per day of overdue |
Lines 1896-1902
subtest 'AddReturn | is_overdue' => sub {
Link Here
|
1896 |
categorycode => '*', |
1895 |
categorycode => '*', |
1897 |
itemtype => '*', |
1896 |
itemtype => '*', |
1898 |
branchcode => '*', |
1897 |
branchcode => '*', |
1899 |
maxissueqty => 99, |
|
|
1900 |
issuelength => 6, |
1898 |
issuelength => 6, |
1901 |
lengthunit => 'days', |
1899 |
lengthunit => 'days', |
1902 |
fine => 1, # Charge 1 every day of overdue |
1900 |
fine => 1, # Charge 1 every day of overdue |
Lines 2500-2511
subtest 'CanBookBeIssued | is_overdue' => sub {
Link Here
|
2500 |
$dbh->do('DELETE FROM issuingrules'); |
2498 |
$dbh->do('DELETE FROM issuingrules'); |
2501 |
$dbh->do( |
2499 |
$dbh->do( |
2502 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, |
2500 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, |
2503 |
maxissueqty, issuelength, lengthunit, |
2501 |
issuelength, lengthunit, |
2504 |
renewalsallowed, renewalperiod, |
2502 |
renewalsallowed, renewalperiod, |
2505 |
norenewalbefore, auto_renew, |
2503 |
norenewalbefore, auto_renew, |
2506 |
fine, chargeperiod) |
2504 |
fine, chargeperiod) |
2507 |
VALUES (?, ?, ?, ?, |
2505 |
VALUES (?, ?, ?, ?, |
2508 |
?, ?, ?, |
2506 |
?, ?, |
2509 |
?, ?, |
2507 |
?, ?, |
2510 |
?, ?, |
2508 |
?, ?, |
2511 |
?, ? |
2509 |
?, ? |
Lines 2513-2519
subtest 'CanBookBeIssued | is_overdue' => sub {
Link Here
|
2513 |
}, |
2511 |
}, |
2514 |
{}, |
2512 |
{}, |
2515 |
'*', '*', '*', 25, |
2513 |
'*', '*', '*', 25, |
2516 |
1, 14, 'days', |
2514 |
14, 'days', |
2517 |
1, 7, |
2515 |
1, 7, |
2518 |
undef, 0, |
2516 |
undef, 0, |
2519 |
.10, 1 |
2517 |
.10, 1 |
Lines 2555-2566
subtest 'ItemsDeniedRenewal preference' => sub {
Link Here
|
2555 |
my $idr_lib = $builder->build_object({ class => 'Koha::Libraries'}); |
2553 |
my $idr_lib = $builder->build_object({ class => 'Koha::Libraries'}); |
2556 |
$dbh->do( |
2554 |
$dbh->do( |
2557 |
q{ |
2555 |
q{ |
2558 |
INSERT INTO issuingrules ( categorycode, branchcode, itemtype, reservesallowed, maxissueqty, issuelength, lengthunit, renewalsallowed, renewalperiod, |
2556 |
INSERT INTO issuingrules ( categorycode, branchcode, itemtype, reservesallowed, issuelength, lengthunit, renewalsallowed, renewalperiod, |
2559 |
norenewalbefore, auto_renew, fine, chargeperiod ) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? ) |
2557 |
norenewalbefore, auto_renew, fine, chargeperiod ) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? ) |
2560 |
}, |
2558 |
}, |
2561 |
{}, |
2559 |
{}, |
2562 |
'*', $idr_lib->branchcode, '*', 25, |
2560 |
'*', $idr_lib->branchcode, '*', 25, |
2563 |
20, 14, 'days', |
2561 |
14, 'days', |
2564 |
10, 7, |
2562 |
10, 7, |
2565 |
undef, 0, |
2563 |
undef, 0, |
2566 |
.10, 1 |
2564 |
.10, 1 |
2567 |
- |
|
|