Changeset 3728
- Timestamp:
- 2003-02-11T16:14:15+13:00 (21 years ago)
- Location:
- trunk/gsdl/perllib/classify
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/Hierarchy.pm
r3719 r3728 202 202 203 203 my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language'); 204 $lang = 'en' unless defined $lang; 204 205 205 206 my $sortmeta = ""; -
trunk/gsdl/perllib/classify/List.pm
r3719 r3728 166 166 167 167 my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language'); 168 $lang = 'en' unless defined $lang; 168 169 if ($lang eq 'en') { 169 170 if ($self->{'sortname'} eq "Creator") {
Note:
See TracChangeset
for help on using the changeset viewer.