|
Lines 190-210
subtest 'AutoRemoveOverduesRestrictions' => sub {
Link Here
|
| 190 |
my $categorycode = $patron->categorycode; |
190 |
my $categorycode = $patron->categorycode; |
| 191 |
my $branchcode = $patron->branchcode; |
191 |
my $branchcode = $patron->branchcode; |
| 192 |
|
192 |
|
| 193 |
$dbh->do( |
193 |
Koha::CirculationRules->search->delete; |
| 194 |
qq{ |
194 |
Koha::CirculationRules->set_rules( |
| 195 |
INSERT INTO `overduerules` ( |
195 |
{ |
| 196 |
`categorycode`, |
196 |
categorycode => $categorycode, |
| 197 |
`delay1`, |
197 |
itemtype => undef, |
| 198 |
`letter1`, |
198 |
branchcode => undef, |
| 199 |
`debarred1`, |
199 |
rules => { |
| 200 |
`delay2`, |
200 |
overdue_1_delay => 6, |
| 201 |
`letter2`, |
201 |
overdue_1_notice => 'ODUE', |
| 202 |
`debarred2` |
202 |
overdue_1_mtt => 'email', |
| 203 |
) |
203 |
overdue_1_restrict => 0, |
| 204 |
VALUES ('$categorycode', 6, 'ODUE', 0, 10, 'ODUE2', 1) |
204 |
overdue_2_delay => 10, |
| 205 |
} |
205 |
overdue_2_notice => 'ODUE2', |
|
|
206 |
overdue_2_mtt => 'email', |
| 207 |
overdue_2_restrict => 1 |
| 208 |
} |
| 209 |
} |
| 206 |
); |
210 |
); |
| 207 |
|
211 |
|
|
|
212 |
note("Testing when_no_overdue"); |
| 208 |
t::lib::Mocks::mock_preference( 'AutoRemoveOverduesRestrictions', 'when_no_overdue' ); |
213 |
t::lib::Mocks::mock_preference( 'AutoRemoveOverduesRestrictions', 'when_no_overdue' ); |
| 209 |
|
214 |
|
| 210 |
t::lib::Mocks::mock_userenv( { branchcode => $branchcode } ); |
215 |
t::lib::Mocks::mock_userenv( { branchcode => $branchcode } ); |
|
Lines 235-240
subtest 'AutoRemoveOverduesRestrictions' => sub {
Link Here
|
| 235 |
$restrictions = $patron->restrictions; |
240 |
$restrictions = $patron->restrictions; |
| 236 |
is( $restrictions->count, 0, 'OVERDUES debarment is removed if patron does not have overdues' ); |
241 |
is( $restrictions->count, 0, 'OVERDUES debarment is removed if patron does not have overdues' ); |
| 237 |
|
242 |
|
|
|
243 |
note("Testing when_no_overdue_causing_debarment"); |
| 238 |
t::lib::Mocks::mock_preference( 'AutoRemoveOverduesRestrictions', 'when_no_overdue_causing_debarment' ); |
244 |
t::lib::Mocks::mock_preference( 'AutoRemoveOverduesRestrictions', 'when_no_overdue_causing_debarment' ); |
| 239 |
|
245 |
|
| 240 |
my $ten_days_ago = dt_from_string->subtract( days => 10 ); |
246 |
my $ten_days_ago = dt_from_string->subtract( days => 10 ); |
|
Lines 282-301
subtest 'AutoRemoveOverduesRestrictions' => sub {
Link Here
|
| 282 |
$checkout_2 = AddIssue( $patron, $item_2->barcode, $eleven_days_ago ); |
288 |
$checkout_2 = AddIssue( $patron, $item_2->barcode, $eleven_days_ago ); |
| 283 |
|
289 |
|
| 284 |
# $checkout_1 should now not trigger debarment with this new rule for specific branchcode |
290 |
# $checkout_1 should now not trigger debarment with this new rule for specific branchcode |
| 285 |
$dbh->do( |
291 |
Koha::CirculationRules->set_rules( |
| 286 |
qq{ |
292 |
{ |
| 287 |
INSERT INTO `overduerules` ( |
293 |
categorycode => $categorycode, |
| 288 |
`branchcode`, |
294 |
itemtype => undef, |
| 289 |
`categorycode`, |
295 |
branchcode => $branchcode, |
| 290 |
`delay1`, |
296 |
rules => { |
| 291 |
`letter1`, |
297 |
overdue_1_delay => 6, |
| 292 |
`debarred1`, |
298 |
overdue_1_notice => 'ODUE', |
| 293 |
`delay2`, |
299 |
overdue_1_mtt => 'email', |
| 294 |
`letter2`, |
300 |
overdue_1_restrict => 0, |
| 295 |
`debarred2` |
301 |
overdue_2_delay => 11, |
| 296 |
) |
302 |
overdue_2_notice => 'ODUE2', |
| 297 |
VALUES ('$branchcode', '$categorycode', 6, 'ODUE', 0, 11, 'ODUE2', 1) |
303 |
overdue_2_mtt => 'email', |
| 298 |
} |
304 |
overdue_2_restrict => 1 |
|
|
305 |
} |
| 306 |
} |
| 299 |
); |
307 |
); |
| 300 |
|
308 |
|
| 301 |
C4::Circulation::MarkIssueReturned( $patron->borrowernumber, $item_2->itemnumber ); |
309 |
C4::Circulation::MarkIssueReturned( $patron->borrowernumber, $item_2->itemnumber ); |
| 302 |
- |
|
|