Changeset 33902 for main/trunk/greenstone2/perllib/classify/Hierarchy.pm

Timestamp:

2020-02-04T13:05:30+13:00 (4 years ago)

Author:

kjdon

Message:

pass in new casefold and accentfold options to format_metadata_for_sorting

File:

• main/trunk/greenstone2/perllib/classify/Hierarchy.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/classify/Hierarchy.pm

@@ -168 +168 @@
         $sortmeta = $doc_obj->get_metadata_element($doc_obj->get_top_section(), $self->{'sort'});
         if (defined $sortmeta && !$self->{'no_metadata_formatting'}) {
-        $sortmeta = &sorttools::format_metadata_for_sorting($self->{'sort'}, $sortmeta, $doc_obj);
+        $sortmeta = &sorttools::format_metadata_for_sorting($self->{'sort'}, $sortmeta, $doc_obj, $self->{'casefold_metadata_for_sorting'}, $self->{'accentfold_metadata_for_sorting'});
         }
     }