Changeset 7557

Timestamp:

2004-06-03T17:35:41+12:00 (20 years ago)

Author:

kjdon

Message:

when adding metadata to teh list, use 'if @{}' instead of 'if defined ' cos its always defined but may be empty

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -279 +279 @@
     foreach my $cmn (@commameta_list) {
         my $cmvalues = $doc_obj->get_metadata($thissection,$cmn);
-        push(@$metavalues,@$cmvalues) if (defined $cmvalues);
-        last if (defined $cmvalues && !$self->{'allvalues'});
+        push(@$metavalues,@$cmvalues) if (@{$cmvalues});
+        last if (@{$cmvalues} && !$self->{'allvalues'});
     }