Changeset 641

Timestamp:

1999-10-01T14:56:28+12:00 (25 years ago)

Author:

sjboddie

Message:

Fixed a harmless sort of an error that was causing uninitialized
values in some cases

Location:

trunk/gsdl/perllib/classify

Files:

• Hierarchy.pm (modified) (1 diff)
• List.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -130 +130 @@
         $sortmeta = $doc_obj->get_metadata_element($doc_obj->get_top_section(),
                                $self->{'sortname'});
-        if ($self->{'sortname'} eq "Creator") {
-        &sorttools::format_string_name_english (\$sortmeta);
-        } else {
-        &sorttools::format_string_english (\$sortmeta);
+        if (defined $sortmeta) {
+        if ($self->{'sortname'} eq "Creator") {
+            &sorttools::format_string_name_english (\$sortmeta);
+        } else {
+            &sorttools::format_string_english (\$sortmeta);
+        }
         }
     }

trunk/gsdl/perllib/classify/List.pm

@@ -104 +104 @@
         $sortmeta = $doc_obj->get_metadata_element($doc_obj->get_top_section(),
                                $self->{'sortname'});
-        if ($self->{'sortname'} eq "Creator") {
-        &sorttools::format_string_name_english (\$sortmeta);
-        } else {
-        &sorttools::format_string_english (\$sortmeta);
+        if (defined $sortmeta) {
+        if ($self->{'sortname'} eq "Creator") {
+            &sorttools::format_string_name_english (\$sortmeta);
+        } else {
+            &sorttools::format_string_english (\$sortmeta);
+        }
         }
     }