Bug 19493: Force scalar context to prevent future error

If someone decide the reuse the template->param statement to pass values
to the template, we will get the same issue.

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

diff --git a/members/memberentry.pl b/members/memberentry.pl
index fcb6c56..13793e7 100755 (executable)
--- a/members/memberentry.pl
+++ b/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 );

diff --git a/members/moremember.pl b/members/moremember.pl
index 30e8ce0..2a54cbe 100755 (executable)
--- a/members/moremember.pl
+++ b/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" ) {