Changeset 641 for trunk/gsdl/perllib/classify/Hierarchy.pm
- Timestamp:
- 1999-10-01T14:56:28+12:00 (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/Hierarchy.pm
r537 r641 130 130 $sortmeta = $doc_obj->get_metadata_element($doc_obj->get_top_section(), 131 131 $self->{'sortname'}); 132 if ($self->{'sortname'} eq "Creator") { 133 &sorttools::format_string_name_english (\$sortmeta); 134 } else { 135 &sorttools::format_string_english (\$sortmeta); 132 if (defined $sortmeta) { 133 if ($self->{'sortname'} eq "Creator") { 134 &sorttools::format_string_name_english (\$sortmeta); 135 } else { 136 &sorttools::format_string_english (\$sortmeta); 137 } 136 138 } 137 139 }
Note:
See TracChangeset
for help on using the changeset viewer.