Changeset 3728

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.

Location:

trunk/gsdl/perllib/classify

Files:

• Hierarchy.pm (modified) (1 diff)
• List.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 = "";

trunk/gsdl/perllib/classify/List.pm

@@ -166 +166 @@
         
         my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language');
+        $lang = 'en' unless defined $lang;
         if ($lang eq 'en') {
             if ($self->{'sortname'} eq "Creator") {