template::param handles empty array/hash refs better

diff --git a/C4/Templates.pm b/C4/Templates.pm
index 9a07d95..91b57fb 100644 (file)
--- a/C4/Templates.pm
+++ b/C4/Templates.pm
@@ -109,6 +109,8 @@ sub param{
        my $key = shift;
        my $val = shift;
         utf8::encode($val) if utf8::is_utf8($val);
+        if( ref($val) eq 'ARRAY' && ! scalar @$val ){ $val = undef; }
+        elsif( ref($val) eq 'HASH' && ! scalar %$val ){ $val = undef; }
        $self->{VARS}->{$key} = $val;
     }
 }