Changeset 33899
- Timestamp:
- 2020-02-04T13:03:05+13:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/List.pm
r33490 r33899 229 229 'desc' => "{List.metadata_sort.unicode} {List.sort_using_unicode_collation}", 230 230 'type' => "flag" }, 231 231 232 232 {'name' => "filter_metadata", 233 233 'desc' => "{List.filter_metadata}", … … 525 525 } 526 526 527 $first_metadata_group_element_value = &sorttools::format_metadata_for_sorting($first_metadata_group, $first_metadata_group_element_value, $doc_obj ) unless $self->{'no_metadata_formatting'};527 $first_metadata_group_element_value = &sorttools::format_metadata_for_sorting($first_metadata_group, $first_metadata_group_element_value, $doc_obj, $self->{'casefold_metadata_for_sorting'}, $self->{'accentfold_metadata_for_sorting'}) unless $self->{'no_metadata_formatting'}; 528 528 if (defined($first_metadata_group_element_value) && $first_metadata_group_element_value ne "") { 529 529 # This section must be included in the classifier as we have found a value … … 568 568 # text-transform the stored lowercase values as capitalize or uppercase (can't CSS 569 569 # text-transform if stored uppercase). 2 CSS text-transforms have been added to core.css 570 my $lc_metadata_value = lc($metadata_value); 571 $lc_metadata_value = &sorttools::format_metadata_for_sorting($real_metadata_element, $lc_metadata_value, $doc_obj) unless $self->{'no_metadata_formatting'}; 570 ### no longer do this, as lowercasing is now an option for the user, and is handled by format_metadata_for_sorting 571 my $lc_metadata_value = $metadata_value; #lc($metadata_value); 572 $lc_metadata_value = &sorttools::format_metadata_for_sorting($real_metadata_element, $lc_metadata_value, $doc_obj, $self->{'casefold_metadata_for_sorting'}, $self->{'accentfold_metadata_for_sorting'}) unless $self->{'no_metadata_formatting'}; 572 573 573 574 # Add the metadata value into the list for this combination of metadata group 574 575 # and section - if we have some non-whitespace chars 575 # te xt that we have some non-whitespace chars576 # test that we have some non-whitespace chars 576 577 if ($lc_metadata_value =~ /\S/) { 577 578 … … 1090 1091 if (!$is_numeric || $numeric_partition_length == 1 ) { 1091 1092 return substr($mvalue, 0, 1); 1092 } 1093 } 1093 1094 if ($numeric_partition_length == -1) { 1094 1095 my ($all_digits) = $mvalue =~ /^([0-9]+)/;
Note:
See TracChangeset
for help on using the changeset viewer.