Changeset 402 for trunk

Timestamp:

1999-07-19T10:57:11+12:00 (25 years ago)

Author:

sjboddie

Message:

fixed a couple of *really* dumb bugs

File:

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

trunk/gsdl/perllib/classify/Hierarchy.pm

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