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

(-)a/Koha/Patron/Debarments.pm (-8 / +11 lines)
Lines 22-27 use Modern::Perl; Link Here
22
use C4::Context;
22
use C4::Context;
23
23
24
use Koha::Patron::Restriction::Types;
24
use Koha::Patron::Restriction::Types;
25
use Koha::Patron::Restrictions;
25
26
26
our ( @ISA, @EXPORT_OK );
27
our ( @ISA, @EXPORT_OK );
27
28
Lines 73-88 sub AddDebarment { Link Here
73
    my $manager_id;
74
    my $manager_id;
74
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
75
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
75
76
76
    my $sql = "
77
    my $restriction = Koha::Patron::Restriction->new(
77
        INSERT INTO borrower_debarments ( borrowernumber, expiration, type, comment, manager_id, created )
78
        {
78
        VALUES ( ?, ?, ?, ?, ?, NOW() )
79
            borrowernumber => $borrowernumber,
79
    ";
80
            expiration     => $expiration,
80
81
            type           => $type,
81
    my $r = C4::Context->dbh->do( $sql, {}, ( $borrowernumber, $expiration, $type, $comment, $manager_id ) );
82
            comment        => $comment,
83
            manager_id     => $manager_id,
84
        }
85
    )->store();
82
86
83
    UpdateBorrowerDebarmentFlags($borrowernumber);
87
    UpdateBorrowerDebarmentFlags($borrowernumber);
84
88
85
    return $r;
89
    return $restriction ? 1 : 0;
86
}
90
}
87
91
88
=head2 DelDebarment
92
=head2 DelDebarment
89
- 

Return to bug 25996