Changeset 3728 for trunk/gsdl/perllib/classify/Hierarchy.pm

Timestamp:

2003-02-11T16:14:15+13:00 (21 years ago)

Author:

sjboddie

Message:

Prevent "undefined variable" warnings for documents that have no language
metadata.

File:

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

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -202 +202 @@
     
     my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language');
+    $lang = 'en' unless defined $lang;
 
     my $sortmeta = "";