summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorelliott_c <ocielliottc@users.noreply.github.com>2003-05-13 12:48:37 +0000
committerelliott_c <ocielliottc@users.noreply.github.com>2003-05-13 12:48:37 +0000
commite1fde9042d0c8be9e37d7db9db769a2ec844a2a9 (patch)
tree5cf5a5e17a9b66057b50d7bd1e724ab123fc6961
parent815b6ade892b38b65e750136368d339b3c6a8a1a (diff)
downloadMPC-e1fde9042d0c8be9e37d7db9db769a2ec844a2a9.tar.gz
ChangeLogTag: Tue May 13 07:47:09 2003 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r--modules/TemplateParser.pm18
1 files changed, 18 insertions, 0 deletions
diff --git a/modules/TemplateParser.pm b/modules/TemplateParser.pm
index 6fe8f198..ae007682 100644
--- a/modules/TemplateParser.pm
+++ b/modules/TemplateParser.pm
@@ -584,6 +584,24 @@ sub handle_if {
$val = $self->get_value($val)
}
+ if (defined $val) {
+ if (UNIVERSAL::isa($val, 'ARRAY')) {
+ my($empty) = 1;
+ foreach my $v (@$val) {
+ if ($v ne '') {
+ $empty = 0;
+ last;
+ }
+ }
+ if ($empty) {
+ $val = undef;
+ }
+ }
+ elsif ($val eq '') {
+ $val = undef;
+ }
+ }
+
if (!defined $val) {
$self->{'if_skip'} = $true;
}