Changeset 3719 for trunk/gsdl/perllib
- Timestamp:
- 2003-01-28T13:48:33+13:00 (21 years ago)
- Location:
- trunk/gsdl/perllib/classify
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZList.pm
r3540 r3719 124 124 $self->{'metaname'}); 125 125 126 my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language'); 127 126 128 # if this document doesn't contain the metadata element we're 127 129 # sorting by we won't include it in this classification … … 135 137 $metavalue = $iso639::fromiso639{$metavalue}; 136 138 } elsif ($self->{'metaname'} eq 'Creator') { 137 &sorttools::format_string_name_english (\$metavalue); 139 if ($lang eq 'en') { 140 &sorttools::format_string_name_english (\$metavalue); 141 } 138 142 } else { 139 &sorttools::format_string_english (\$metavalue); 143 if ($lang eq 'en') { 144 &sorttools::format_string_english (\$metavalue); 145 } 140 146 } 141 147 if (defined $self->{'list'}->{$doc_OID}) { -
trunk/gsdl/perllib/classify/Hierarchy.pm
r3639 r3719 201 201 $self->{'metaname'}); 202 202 203 my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language'); 204 203 205 my $sortmeta = ""; 204 206 if (defined $self->{'sortname'}) { … … 210 212 if (defined $sortmeta) { 211 213 if ($self->{'sortname'} eq "Creator") { 212 &sorttools::format_string_name_english (\$sortmeta); 214 if ($lang eq 'en') { 215 &sorttools::format_string_name_english (\$sortmeta); 216 } 213 217 } else { 214 &sorttools::format_string_english (\$sortmeta); 218 if ($lang eq 'en') { 219 &sorttools::format_string_english (\$sortmeta); 220 } 215 221 } 216 222 } -
trunk/gsdl/perllib/classify/List.pm
r3540 r3719 164 164 $self->{'sortname'}); 165 165 if (defined $sortmeta) { 166 if ($self->{'sortname'} eq "Creator") { 167 &sorttools::format_string_name_english (\$sortmeta); 168 } else { 169 &sorttools::format_string_english (\$sortmeta); 166 167 my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language'); 168 if ($lang eq 'en') { 169 if ($self->{'sortname'} eq "Creator") { 170 &sorttools::format_string_name_english (\$sortmeta); 171 } else { 172 &sorttools::format_string_english (\$sortmeta); 173 } 170 174 } 171 175 }
Note:
See TracChangeset
for help on using the changeset viewer.