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

(-)a/circ/circulation.pl (-1 / +6 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 $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] || undef;
269
    my $dateformatted = format_sqldatetime( $debarrment->{created} ) if $debarrment;
270
    my $debarrmentdate = substr($dateformatted, 0, 10) if $debarrment;
271
268
    if ( $patron and $patron->is_debarred ) {
272
    if ( $patron and $patron->is_debarred ) {
269
        $template->param(
273
        $template->param(
270
            'userdebarred'    => $patron->debarred,
274
            'userdebarred'    => $patron->debarred,
271
            'debarredcomment' => $patron->debarredcomment,
275
            'debarredcomment' => $patron->debarredcomment,
276
            'debarredsince' => $debarrmentdate
272
        );
277
        );
273
278
274
        if ( $patron->debarred ne "9999-12-31" ) {
279
        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 %]:</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 / +6 lines)
Lines 45-50 use Koha::Patrons; Link Here
45
use Koha::Patron::Files;
45
use Koha::Patron::Files;
46
use Koha::Token;
46
use Koha::Token;
47
use Koha::Checkouts;
47
use Koha::Checkouts;
48
use Koha::DateUtils qw( format_sqldatetime );
48
49
49
my $input = CGI->new;
50
my $input = CGI->new;
50
51
Lines 85-94 $template->param( Link Here
85
);
86
);
86
87
87
if ( $patron->is_debarred ) {
88
if ( $patron->is_debarred ) {
89
    my $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] || undef;
90
    my $dateformatted = format_sqldatetime( $debarrment->{created} );
91
    my $debarrmentdate = substr($dateformatted, 0, 10);
88
    $template->param(
92
    $template->param(
89
        'debarments'      => scalar GetDebarments({ borrowernumber => $borrowernumber }),
93
        'debarments'      => scalar $debarrment,
90
        'userdebarred'    => $patron->debarred,
94
        'userdebarred'    => $patron->debarred,
91
        'debarredcomment' => $patron->debarredcomment,
95
        'debarredcomment' => $patron->debarredcomment,
96
        'debarredsince' => $debarrmentdate
92
    );
97
    );
93
98
94
    if ( $patron->debarred ne "9999-12-31" ) {
99
    if ( $patron->debarred ne "9999-12-31" ) {
95
- 

Return to bug 32373