View | Details | Raw Unified | Return to bug 29145
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug_29145-modify_AutoRemoveOverduesRestrictions-syspref.pl (-2 / +2 lines)
Lines 1-13 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
return {
3
return {
4
    bug_number => "",
4
    bug_number => "29145",
5
    description => "Change type of AutoRemoveOverduesRestrictions system preference",
5
    description => "Change type of AutoRemoveOverduesRestrictions system preference",
6
    up => sub {
6
    up => sub {
7
        my ($args) = @_;
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
        # Do you stuffs here
9
        # Do you stuffs here
10
        $dbh->do(q{UPDATE `systempreferences` SET `type` = 'Choice', `options` = 'no|when_no_overdue|when_no_overdue_causing_debarment', `explanation` = 'Defines if and on what conditions OVERDUES debarments should automatically be lifted when overdue items are returned by the patron.', `value` = CASE `value` WHEN '1' THEN 'when_no_overdue' WHEN '0' THEN 'no' ELSE `value` END WHERE variable = 'AutoRemoveOverduesRestrictions'});
10
        $dbh->do(q{UPDATE `systempreferences` SET `type` = 'Choice', `options` = 'no|when_no_overdue|when_no_overdue_causing_debarment', `explanation` = 'Defines if and on what conditions OVERDUES debarments should automatically be lifted when overdue items are returned by the patron.', `value` = CASE `value` WHEN '1' THEN 'when_no_overdue' WHEN '0' THEN 'no' ELSE `value` END WHERE variable = 'AutoRemoveOverduesRestrictions'});
11
        say $out "Type of AutoRemoveOverduesRestrictions system prefernce has ben changed";
11
        say $out "Type of AutoRemoveOverduesRestrictions system preference has been changed";
12
    },
12
    },
13
}
13
}
(-)a/t/db_dependent/Circulation/MarkIssueReturned.t (-2 / +1 lines)
Lines 245-251 subtest 'AutoRemoveOverduesRestrictions' => sub { Link Here
245
    C4::Circulation::MarkIssueReturned( $patron->borrowernumber, $item_1->itemnumber );
245
    C4::Circulation::MarkIssueReturned( $patron->borrowernumber, $item_1->itemnumber );
246
246
247
    $debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $patron->borrowernumber });
247
    $debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $patron->borrowernumber });
248
    is( scalar @$debarments, 0, 'OVERDUES debarment is removed if remaning items would not result in patron debarment' );
248
    is( scalar @$debarments, 0, 'OVERDUES debarment is removed if remaining items would not result in patron debarment' );
249
249
250
    $checkout_1 = AddIssue( $patron->unblessed, $item_1->barcode, $ten_days_ago ); # overdue and would trigger debarment
250
    $checkout_1 = AddIssue( $patron->unblessed, $item_1->barcode, $ten_days_ago ); # overdue and would trigger debarment
251
251
252
- 

Return to bug 29145