Bug 12292: ensure that patrons are not displayed as restricted even when the last restriction has expired
This is the same issue as bug 12134, but for the patron deatils page. Test Plan: 1) Add a manual restriction to a patron and wait until the expiration date of the restriction has passed. This can be simulated by modifying borrowers.debarred for a borrower and setting the date in the past. 2) Go on the detail page for a patron (members/moremember.pl) 3) Note the warning message "Patron is restricted until XX/XX/XXXX View restrictions" 4) Apply this patch 5) Repeat step 2 6) Note the warning message does not appear anymore Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com> Work as described, no errors. Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
6b928438ce
commit
a672240a75
1 changed files with 3 additions and 3 deletions
|
@ -51,7 +51,7 @@ use C4::Branch; # GetBranchName
|
|||
use C4::Form::MessagingPreferences;
|
||||
use List::MoreUtils qw/uniq/;
|
||||
use C4::Members::Attributes qw(GetBorrowerAttributes);
|
||||
use Koha::Borrower::Debarments qw(GetDebarments);
|
||||
use Koha::Borrower::Debarments qw(GetDebarments IsDebarred);
|
||||
#use Smart::Comments;
|
||||
#use Data::Dumper;
|
||||
use DateTime;
|
||||
|
@ -146,9 +146,9 @@ for (qw(gonenoaddress lost borrowernotes)) {
|
|||
$data->{$_} and $template->param(flagged => 1) and last;
|
||||
}
|
||||
|
||||
my $debar = $data->{'debarred'};
|
||||
if ($debar) {
|
||||
if ( IsDebarred($borrowernumber) ) {
|
||||
$template->param( 'userdebarred' => 1, 'flagged' => 1 );
|
||||
my $debar = $data->{'debarred'};
|
||||
if ( $debar ne "9999-12-31" ) {
|
||||
$template->param( 'userdebarreddate' => C4::Dates::format_date($debar) );
|
||||
$template->param( 'debarredcomment' => $data->{debarredcomment} );
|
||||
|
|
Loading…
Reference in a new issue