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

(-)a/members/moremember.pl (-5 / +7 lines)
Lines 146-153 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
if ( Koha::Patrons->find( $borrowernumber )->is_debarred ) {
149
my $patron = Koha::Patrons->find( $borrowernumber );
150
    $template->param( 'userdebarred' => 1, 'flagged' => 1 );
150
if ( $patron->is_debarred ) {
151
    $template->param(
152
        userdebarred => 1,
153
        flagged => 1,
154
        debarments => GetDebarments({ borrowernumber => $borrowernumber }),
155
    );
151
    my $debar = $data->{'debarred'};
156
    my $debar = $data->{'debarred'};
152
    if ( $debar ne "9999-12-31" ) {
157
    if ( $debar ne "9999-12-31" ) {
153
        $template->param( 'userdebarreddate' => output_pref( { dt => dt_from_string( $debar ), dateonly => 1 } ) );
158
        $template->param( 'userdebarreddate' => output_pref( { dt => dt_from_string( $debar ), dateonly => 1 } ) );
Lines 163-169 if ( $category_type eq 'C') { Link Here
163
    $template->param( 'catcode' => $patron_categories->next )  if $patron_categories->count == 1;
168
    $template->param( 'catcode' => $patron_categories->next )  if $patron_categories->count == 1;
164
}
169
}
165
170
166
my $patron = Koha::Patrons->find($data->{borrowernumber});
167
my @relatives;
171
my @relatives;
168
if ( my $guarantor = $patron->guarantor ) {
172
if ( my $guarantor = $patron->guarantor ) {
169
    $template->param( guarantor => $guarantor );
173
    $template->param( guarantor => $guarantor );
Lines 341-347 $template->param( Link Here
341
    AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
345
    AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
342
    SuspendHoldsIntranet => C4::Context->preference('SuspendHoldsIntranet'),
346
    SuspendHoldsIntranet => C4::Context->preference('SuspendHoldsIntranet'),
343
    RoutingSerials => C4::Context->preference('RoutingSerials'),
347
    RoutingSerials => C4::Context->preference('RoutingSerials'),
344
    debarments => GetDebarments({ borrowernumber => $borrowernumber }),
345
    PatronsPerPage => C4::Context->preference("PatronsPerPage") || 20,
348
    PatronsPerPage => C4::Context->preference("PatronsPerPage") || 20,
346
    relatives_issues_count => $relatives_issues_count,
349
    relatives_issues_count => $relatives_issues_count,
347
    relatives_borrowernumbers => \@relatives,
350
    relatives_borrowernumbers => \@relatives,
348
- 

Return to bug 18552