Changeset 13340 for trunk/gsdl/perllib/classify/GenericList.pm

Timestamp:

2006-11-24T15:47:18+13:00 (17 years ago)

Author:

mdewsnip

Message:

Added check to prevent error when attempting to build a GenericList classifier on an invalid metadata element.

File:

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

trunk/gsdl/perllib/classify/GenericList.pm

@@ -280 +280 @@
     # print STDERR "Number of OID values: " . @OIDs . "\n";
 
+    if (!defined($self->{$metadata_group . ".list"})) {
+    print STDERR "Warning: No metadata values assigned to $metadata_group.\n";
+    return;
+    }
     my %OIDtometavalueshash = %{$self->{$metadata_group . ".list"}};