From 041c555ad34ed5706f77cc6c6d72136de49afed8 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Wed, 10 Oct 2018 16:53:30 +0200
Subject: [PATCH] Bug 21312: Show lockout on Patrons form

Just what the title says :)
Specifically: moremember.pl

Test plan:
Check if you see the locked message on the patron form for an account
that has been locked. (Either login_attempts<0 or >FailedLoginAttempts)

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Jose-Mario Monteiro-Santos <jose-mario.monteiro-santos@inLibro.com>
---
 koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt | 3 +++
 members/moremember.pl                                         | 1 +
 2 files changed, 4 insertions(+)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt
index 6e15e3c..73c369d 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt
@@ -133,6 +133,9 @@
                                     [% IF ( lost ) %]
                                         <li class="blocker">Patron's card has been reported lost.</li>
                                     [% END %]
+                                    [% IF patron.account_locked %]
+                                        <li class="blocker">Account has been [% IF patron.login_attempts < 0 %]administratively [% END %]locked out.</li>
+                                    [% END %]
                                 </ul>
                             </div>
                         [% END %]
diff --git a/members/moremember.pl b/members/moremember.pl
index 9f06882..f88db68 100755
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -158,6 +158,7 @@ if ( $patron->is_debarred ) {
         $template->param( 'debarredcomment'  => $data->{debarredcomment} );
     }
 }
+$template->param( flagged => 1 ) if $patron->account_locked;
 
 $data->{ "sex_".$data->{'sex'}."_p" } = 1 if defined $data->{sex};
 
-- 
2.7.4