Changeset 33482
- Timestamp:
- 2019-09-17T10:55:01+12:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/List.pm
r33479 r33482 238 238 'type' => "regexp"}, 239 239 240 { 'name' => " standardize_capitalization",241 'desc' => "{List. standardize_capitalization}",240 { 'name' => "use_formatted_metadata_for_bookshelf_display", 241 'desc' => "{List.use_formatted_metadata_for_bookshelf_display}", 242 242 'type' => "flag"}, 243 243 … … 579 579 580 580 # add the actual value into the stored values so we can remember the case 581 if (!$self->{' standardize_capitalization'}) {581 if (!$self->{'use_formatted_metadata_for_bookshelf_display'}) { 582 582 if (defined $self->{$metadata_group . ".actualvalues"}->{$lc_metadata_value}->{$metadata_value}) { 583 583 $self->{$metadata_group . ".actualvalues"}->{$lc_metadata_value}->{$metadata_value}++; … … 1368 1368 my $self = shift(@_); 1369 1369 my ($metadata_group, $metadata_value) = @_; 1370 return $metadata_value if $self->{' standardize_capitalization'};1370 return $metadata_value if $self->{'use_formatted_metadata_for_bookshelf_display'}; 1371 1371 my $actual_values_hash = $self->{$metadata_group . ".actualvalues"}->{$metadata_value}; 1372 1372 my $display_value ="";
Note:
See TracChangeset
for help on using the changeset viewer.