@@ -, +, @@ --- members/memberentry.pl | 2 +- members/moremember.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -108,7 +108,7 @@ my $userenv = C4::Context->userenv; ## Deal with debarments $template->param( - debarments => GetDebarments( { borrowernumber => $borrowernumber } ) ); + debarments => scalar GetDebarments( { borrowernumber => $borrowernumber } ) ); my @debarments_to_remove = $input->multi_param('remove_debarment'); foreach my $d ( @debarments_to_remove ) { DelDebarment( $d ); --- a/members/moremember.pl +++ a/members/moremember.pl @@ -158,7 +158,7 @@ if ( $patron->is_debarred ) { $template->param( userdebarred => 1, flagged => 1, - debarments => GetDebarments({ borrowernumber => $borrowernumber }), + debarments => scalar GetDebarments({ borrowernumber => $borrowernumber }), ); my $debar = $data->{'debarred'}; if ( $debar ne "9999-12-31" ) { --