View | Details | Raw Unified | Return to bug 32373
Collapse All | Expand All

(-)a/circ/circulation.pl (+4 lines)
Lines 54-59 use Koha::Items; Link Here
54
use Koha::SearchEngine;
54
use Koha::SearchEngine;
55
use Koha::SearchEngine::Search;
55
use Koha::SearchEngine::Search;
56
use Koha::Patron::Modifications;
56
use Koha::Patron::Modifications;
57
use Data::Dumper qw( Dumper );
57
58
58
use List::MoreUtils qw( uniq );
59
use List::MoreUtils qw( uniq );
59
60
Lines 265-274 if ($patron) { Link Here
265
        finetotal    => $balance,
266
        finetotal    => $balance,
266
    );
267
    );
267
268
269
    my $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] || undef;
270
    my $debarrmentdate = substr($debarrment->{created}, 0, 10) if $debarrment;
268
    if ( $patron and $patron->is_debarred ) {
271
    if ( $patron and $patron->is_debarred ) {
269
        $template->param(
272
        $template->param(
270
            'userdebarred'    => $patron->debarred,
273
            'userdebarred'    => $patron->debarred,
271
            'debarredcomment' => $patron->debarredcomment,
274
            'debarredcomment' => $patron->debarredcomment,
275
            'debarredsince' => $debarrmentdate
272
        );
276
        );
273
277
274
        if ( $patron->debarred ne "9999-12-31" ) {
278
        if ( $patron->debarred ne "9999-12-31" ) {
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc (-2 / +1 lines)
Lines 58-64 Link Here
58
58
59
        [% IF ( userdebarred ) %]
59
        [% IF ( userdebarred ) %]
60
            <li class="userdebarred blocker">
60
            <li class="userdebarred blocker">
61
                <span class="circ-hlt"> Restricted:</span> Patron's account is restricted
61
                <span class="circ-hlt"> Restricted since [% debarredsince %]:</span> Patron's account is restricted
62
62
63
                [% IF ( userdebarreddate ) %]
63
                [% IF ( userdebarreddate ) %]
64
                    until [% userdebarreddate | $KohaDates %]
64
                    until [% userdebarreddate | $KohaDates %]
65
- 

Return to bug 32373