From 0519bb7b84953be58e53b7d5681b0b8706e5ac67 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Fri, 29 Apr 2011 19:48:36 +0200
Subject: [PATCH] MT6270 display debarment date and comment

The duration and comment when a patron is debarred is not displayed at login.
The patron had no way to know it (except by asking a librarian)
---
 koha-tmpl/opac-tmpl/prog/en/modules/opac-user.tmpl |    2 +-
 opac/opac-user.pl                                  |    1 +
 2 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/koha-tmpl/opac-tmpl/prog/en/modules/opac-user.tmpl b/koha-tmpl/opac-tmpl/prog/en/modules/opac-user.tmpl
index 1959121..565b4e1 100644
--- a/koha-tmpl/opac-tmpl/prog/en/modules/opac-user.tmpl
+++ b/koha-tmpl/opac-tmpl/prog/en/modules/opac-user.tmpl
@@ -101,7 +101,7 @@ $.tablesorter.addParser({
 		<div class="dialog alert">
         <ul>
             <!-- TMPL_IF NAME="debarred" -->
-                <li><strong>Please note:</strong> Your account has been frozen. Usually the reason for freezing an account is old overdues or damage fees.If <a href="/cgi-bin/koha/opac-user.pl">your account page</a> shows your account to be clear, please consult a librarian.</li>
+                <li><strong>Please note:</strong> Your account has been frozen until <!-- TMPL_VAR name="debarred" --> - <!-- TMPL_VAR name="debarredcomment" -->. Usually the reason for freezing an account is old overdues or damage fees.If <a href="/cgi-bin/koha/opac-user.pl">your account page</a> shows your account to be clear, please consult a librarian.</li>
             <!-- /TMPL_IF -->
             <!-- TMPL_IF NAME="gonenoaddress" -->
                 <li><strong>Please note:</strong> According to our records, we don't have up-to-date <a href="/cgi-bin/koha/opac-userdetails.pl">contact information</a> on file.  Please contact your librarian<!-- TMPL_IF NAME="OPACPatronDetails" --> or use the <a href="/cgi-bin/koha/opac-userupdate.pl">online update form</a> to submit current information (<em>Please note:</em> there may be a delay in restoring your account if you submit online)<!-- /TMPL_IF -->.</li>
diff --git a/opac/opac-user.pl b/opac/opac-user.pl
index 081aaf0..7413221 100755
--- a/opac/opac-user.pl
+++ b/opac/opac-user.pl
@@ -87,6 +87,7 @@ if ( $borr->{'amountoutstanding'} < 0 ) {
 }
 
 $borr->{'amountoutstanding'} = sprintf "%.02f", $borr->{'amountoutstanding'};
+$borr->{debarred} = C4::Dates->new($borr->{debarred},'iso')->output;
 
 my @bordat;
 $bordat[0] = $borr;
-- 
1.7.1