@@ -, +, @@ debarment is ended --- Koha/Borrower/Debarments.pm | 2 +- circ/circulation.pl | 18 +++++++++++------- 2 files changed, 12 insertions(+), 8 deletions(-) --- a/Koha/Borrower/Debarments.pm +++ a/Koha/Borrower/Debarments.pm @@ -183,7 +183,7 @@ sub IsDebarred { return unless ($borrowernumber); - my $sql = "SELECT debarred FROM borrowers WHERE borrowernumber = ?"; + my $sql = "SELECT debarred FROM borrowers WHERE borrowernumber = ? AND debarred > CURRENT_DATE()"; my $sth = C4::Context->dbh->prepare($sql); $sth->execute($borrowernumber); my ($debarred) = $sth->fetchrow_array(); --- a/circ/circulation.pl +++ a/circ/circulation.pl @@ -40,7 +40,7 @@ use C4::Reserves; use C4::Context; use CGI::Session; use C4::Members::Attributes qw(GetBorrowerAttributes); -use Koha::Borrower::Debarments qw(GetDebarments); +use Koha::Borrower::Debarments qw(GetDebarments IsDebarred); use Koha::DateUtils; use Date::Calc qw( @@ -265,12 +265,16 @@ if ($borrowernumber) { finetotal => $fines ); - $template->param( - 'userdebarred' => $borrower->{debarred}, - 'debarredcomment' => $borrower->{debarredcomment}, - ); - if ( $borrower->{debarred} ne "9999-12-31" ) { - $template->param( 'userdebarreddate' => C4::Dates::format_date( $borrower->{debarred} ) ); + if ( IsDebarred($borrowernumber) ) { + $template->param( + 'userdebarred' => $borrower->{debarred}, + 'debarredcomment' => $borrower->{debarredcomment}, + ); + + if ( $borrower->{debarred} ne "9999-12-31" ) { + $template->param( 'userdebarreddate' => + C4::Dates::format_date( $borrower->{debarred} ) ); + } } } --