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

(-)a/circ/circulation.pl (-1 / +4 lines)
Lines 45-51 use Koha::AuthorisedValues; Link Here
45
use Koha::CsvProfiles;
45
use Koha::CsvProfiles;
46
use Koha::Patrons;
46
use Koha::Patrons;
47
use Koha::Patron::Debarments qw( GetDebarments );
47
use Koha::Patron::Debarments qw( GetDebarments );
48
use Koha::DateUtils qw( dt_from_string );
48
use Koha::DateUtils qw( dt_from_string format_sqldatetime );
49
use Koha::Patron::Restriction::Types;
49
use Koha::Patron::Restriction::Types;
50
use Koha::Plugins;
50
use Koha::Plugins;
51
use Koha::Database;
51
use Koha::Database;
Lines 265-274 if ($patron) { Link Here
265
        finetotal    => $balance,
265
        finetotal    => $balance,
266
    );
266
    );
267
267
268
    my $debarment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] || undef;
269
268
    if ( $patron and $patron->is_debarred ) {
270
    if ( $patron and $patron->is_debarred ) {
269
        $template->param(
271
        $template->param(
270
            'userdebarred'    => $patron->debarred,
272
            'userdebarred'    => $patron->debarred,
271
            'debarredcomment' => $patron->debarredcomment,
273
            'debarredcomment' => $patron->debarredcomment,
274
            'debarredsince' => $debarment->{created}
272
        );
275
        );
273
276
274
        if ( $patron->debarred ne "9999-12-31" ) {
277
        if ( $patron->debarred ne "9999-12-31" ) {
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc (-1 / +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 | $KohaDates %]:</span> Patron's account is restricted
62
62
63
                [% IF ( userdebarreddate ) %]
63
                [% IF ( userdebarreddate ) %]
64
                    until [% userdebarreddate | $KohaDates %]
64
                    until [% userdebarreddate | $KohaDates %]
(-)a/members/moremember.pl (-2 / +3 lines)
Lines 85-94 $template->param( Link Here
85
);
85
);
86
86
87
if ( $patron->is_debarred ) {
87
if ( $patron->is_debarred ) {
88
    my $debarments = GetDebarments({ borrowernumber => $borrowernumber });
88
    $template->param(
89
    $template->param(
89
        'debarments'      => scalar GetDebarments({ borrowernumber => $borrowernumber }),
90
        'debarments'      => $debarments,
90
        'userdebarred'    => $patron->debarred,
91
        'userdebarred'    => $patron->debarred,
91
        'debarredcomment' => $patron->debarredcomment,
92
        'debarredcomment' => $patron->debarredcomment,
93
        'debarredsince' => @{ $debarments }[0]->{created}
92
    );
94
    );
93
95
94
    if ( $patron->debarred ne "9999-12-31" ) {
96
    if ( $patron->debarred ne "9999-12-31" ) {
95
- 

Return to bug 32373