Changeset 3727
- Timestamp:
- 2003-02-11T16:13:09+13:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZList.pm
r3719 r3727 124 124 $self->{'metaname'}); 125 125 126 my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language');127 128 126 # if this document doesn't contain the metadata element we're 129 127 # sorting by we won't include it in this classification … … 137 135 $metavalue = $iso639::fromiso639{$metavalue}; 138 136 } elsif ($self->{'metaname'} eq 'Creator') { 139 if ($lang eq 'en') { 140 &sorttools::format_string_name_english (\$metavalue); 141 } 137 &sorttools::format_string_name_english (\$metavalue); 142 138 } else { 143 if ($lang eq 'en') { 144 &sorttools::format_string_english (\$metavalue); 145 } 139 &sorttools::format_string_english (\$metavalue); 146 140 } 147 141 if (defined $self->{'list'}->{$doc_OID}) {
Note:
See TracChangeset
for help on using the changeset viewer.