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

(-)a/members/moremember.pl (-4 / +3 lines)
Lines 51-57 use C4::Branch; # GetBranchName Link Here
51
use C4::Form::MessagingPreferences;
51
use C4::Form::MessagingPreferences;
52
use List::MoreUtils qw/uniq/;
52
use List::MoreUtils qw/uniq/;
53
use C4::Members::Attributes qw(GetBorrowerAttributes);
53
use C4::Members::Attributes qw(GetBorrowerAttributes);
54
use Koha::Borrower::Debarments qw(GetDebarments);
54
use Koha::Borrower::Debarments qw(GetDebarments IsDebarred);
55
#use Smart::Comments;
55
#use Smart::Comments;
56
#use Data::Dumper;
56
#use Data::Dumper;
57
use DateTime;
57
use DateTime;
Lines 146-154 for (qw(gonenoaddress lost borrowernotes)) { Link Here
146
	 $data->{$_} and $template->param(flagged => 1) and last;
146
	 $data->{$_} and $template->param(flagged => 1) and last;
147
}
147
}
148
148
149
my $debar = $data->{'debarred'};
149
if ( IsDebarred($borrowernumber) ) {
150
if ($debar) {
151
    $template->param( 'userdebarred' => 1, 'flagged' => 1 );
150
    $template->param( 'userdebarred' => 1, 'flagged' => 1 );
151
    my $debar = $data->{'debarred'};
152
    if ( $debar ne "9999-12-31" ) {
152
    if ( $debar ne "9999-12-31" ) {
153
        $template->param( 'userdebarreddate' => C4::Dates::format_date($debar) );
153
        $template->param( 'userdebarreddate' => C4::Dates::format_date($debar) );
154
        $template->param( 'debarredcomment'  => $data->{debarredcomment} );
154
        $template->param( 'debarredcomment'  => $data->{debarredcomment} );
155
- 

Return to bug 12292