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

(-)a/Koha/Borrower/Debarments.pm (-1 / +1 lines)
Lines 183-189 sub IsDebarred { Link Here
183
183
184
    return unless ($borrowernumber);
184
    return unless ($borrowernumber);
185
185
186
    my $sql = "SELECT debarred FROM borrowers WHERE borrowernumber = ?";
186
    my $sql = "SELECT debarred FROM borrowers WHERE borrowernumber = ? AND debarred > CURRENT_DATE()";
187
    my $sth = C4::Context->dbh->prepare($sql);
187
    my $sth = C4::Context->dbh->prepare($sql);
188
    $sth->execute($borrowernumber);
188
    $sth->execute($borrowernumber);
189
    my ($debarred) = $sth->fetchrow_array();
189
    my ($debarred) = $sth->fetchrow_array();
(-)a/circ/circulation.pl (-8 / +11 lines)
Lines 40-46 use C4::Reserves; Link Here
40
use C4::Context;
40
use C4::Context;
41
use CGI::Session;
41
use CGI::Session;
42
use C4::Members::Attributes qw(GetBorrowerAttributes);
42
use C4::Members::Attributes qw(GetBorrowerAttributes);
43
use Koha::Borrower::Debarments qw(GetDebarments);
43
use Koha::Borrower::Debarments qw(GetDebarments IsDebarred);
44
use Koha::DateUtils;
44
use Koha::DateUtils;
45
45
46
use Date::Calc qw(
46
use Date::Calc qw(
Lines 265-276 if ($borrowernumber) { Link Here
265
        finetotal    => $fines
265
        finetotal    => $fines
266
    );
266
    );
267
267
268
    $template->param(
268
    if ( IsDebarred($borrowernumber) ) {
269
        'userdebarred'    => $borrower->{debarred},
269
        $template->param(
270
        'debarredcomment' => $borrower->{debarredcomment},
270
            'userdebarred'    => $borrower->{debarred},
271
    );
271
            'debarredcomment' => $borrower->{debarredcomment},
272
    if ( $borrower->{debarred} ne "9999-12-31" ) {
272
        );
273
        $template->param( 'userdebarreddate' => C4::Dates::format_date( $borrower->{debarred} ) );
273
274
        if ( $borrower->{debarred} ne "9999-12-31" ) {
275
            $template->param( 'userdebarreddate' =>
276
                  C4::Dates::format_date( $borrower->{debarred} ) );
277
        }
274
    }
278
    }
275
279
276
}
280
}
277
- 

Return to bug 12134