From bd151a4fd8685e60f9d325a5916e320dfb470122 Mon Sep 17 00:00:00 2001
From: Christopher Hall <chris.hall@catalyst.net.nz>
Date: Fri, 4 Feb 2011 15:10:59 +1300
Subject: [PATCH] template::param handles empty array/hash refs better

---
 C4/Templates.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/C4/Templates.pm b/C4/Templates.pm
index 9a07d95232..91b57fbab8 100644
--- 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;
     }
 }
-- 
2.39.5