Changeset 28199
- Timestamp:
- 2013-09-03T11:44:05+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/AZCompactSectionList.pm
r18566 r28199 18 18 19 19 my $arguments = [ 20 { 'name' => "doclevel", 21 'desc' => "{AZCompactList.doclevel}", 22 'type' => "enum", 23 'list' => $AZCompactList::doclevel_list, 24 'deft' => "section", 25 'reqd' => "no" }, 20 26 ]; 21 27 my $options = … … 109 115 my $listclassobj; 110 116 my $doclevel = $self->{'doclevel'}; 111 my $metaname = $self->{'meta name'};117 my $metaname = $self->{'metadata'}; 112 118 my @metaname_list = split('/',$metaname); 113 119 $metaname = shift(@metaname_list); … … 159 165 { 160 166 my $formatted_node = $metavalue; 161 if ($self->{'meta name'} =~ m/^Creator(:.*)?$/)167 if ($self->{'metadata'} =~ m/^Creator(:.*)?$/) 162 168 { 163 169 &sorttools::format_string_name_en(\$formatted_node);
Note:
See TracChangeset
for help on using the changeset viewer.