From af092a802499557ab0e0a6b1db13a5b80a93ab08 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 24 Apr 2014 11:23:05 -0400 Subject: [PATCH] Bug 12134 - Members are restricted even if the debarment is ended Test Plan: 1) Modify borrowers.debarred for a borrower and set the date in the past 2) Try to check out an item to that patron 3) Note you cannot 4) Apply this patch 5) Repeat step 2 6) Note you can now check out items the patron --- Koha/Borrower/Debarments.pm | 2 +- circ/circulation.pl | 18 +++++++++++------- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/Koha/Borrower/Debarments.pm b/Koha/Borrower/Debarments.pm index 0febc20..5990208 100644 --- a/Koha/Borrower/Debarments.pm +++ b/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(); diff --git a/circ/circulation.pl b/circ/circulation.pl index e02b569..216bfc3 100755 --- a/circ/circulation.pl +++ b/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} ) ); + } } } -- 1.7.2.5