Changeset 33482

Show
Ignore:
Timestamp:
17.09.2019 10:55:01 (4 weeks ago)
Author:
kjdon
Message:

changed standardize_capitalization to use_formatted_metadata_for_bookshelf_display, as this better describes what it is doing

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify/List.pm

    r33479 r33482  
    238238       'type' => "regexp"}, 
    239239       
    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}", 
    242242    'type' => "flag"}, 
    243243       
     
    579579             
    580580            # 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'}) { 
    582582                if (defined $self->{$metadata_group . ".actualvalues"}->{$lc_metadata_value}->{$metadata_value}) { 
    583583                $self->{$metadata_group . ".actualvalues"}->{$lc_metadata_value}->{$metadata_value}++; 
     
    13681368    my $self = shift(@_); 
    13691369    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'}; 
    13711371    my $actual_values_hash = $self->{$metadata_group . ".actualvalues"}->{$metadata_value}; 
    13721372    my $display_value ="";