Changeset 33902 for main/trunk/greenstone2/perllib/classify/SimpleList.pm
- Timestamp:
- 2020-02-04T13:05:30+13:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/SimpleList.pm
r23116 r33902 191 191 $sortmeta = $doc_obj->get_metadata_element($doc_obj->get_top_section(), $self->{'sort'}); 192 192 if (defined $sortmeta && !$self->{'no_metadata_formatting'}) { 193 $sortmeta = &sorttools::format_metadata_for_sorting($self->{'sort'}, $sortmeta, $doc_obj );193 $sortmeta = &sorttools::format_metadata_for_sorting($self->{'sort'}, $sortmeta, $doc_obj, $self->{'casefold_metadata_for_sorting'}, $self->{'accentfold_metadata_for_sorting'}); 194 194 } 195 195 } … … 199 199 # we add to the list based on metadata value 200 200 # but we need to do the same formatting as for sort value 201 ($metavalue) = &sorttools::format_metadata_for_sorting($metaname, $metavalue, $doc_obj ) unless $self->{'no_metadata_formatting'};201 ($metavalue) = &sorttools::format_metadata_for_sorting($metaname, $metavalue, $doc_obj, $self->{'casefold_metadata_for_sorting'}, $self->{'accentfold_metadata_for_sorting'}) unless $self->{'no_metadata_formatting'}; 202 202 $self->{'list'}->{$doc_OID} = $metavalue; 203 203 }
Note:
See TracChangeset
for help on using the changeset viewer.