Changeset 26342 for main/trunk/greenstone2/perllib/collConfigxml.pm
- Timestamp:
- 2012-10-18T14:19:00+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/collConfigxml.pm
r24464 r26342 80 80 # ("plugin", "option") 81 81 my $currentIndex = 0; 82 my $arrayexp = q/^(index|level|index Subcollection|indexLanguage|orthogonalBuildTypes)$/;82 my $arrayexp = q/^(index|level|indexOption|indexSubcollection|indexLanguage|orthogonalBuildTypes)$/; 83 83 my $arrayarrayexp= q/^(plugin|classifier)$/; #|buildOption)$/; 84 84 my $hashexp = q/^(subcollection)$/; # add other element names that should be represented by hash expressions here … … 193 193 #} 194 194 195 #@ Handle index|level|index Subcollection|indexLanguage195 #@ Handle index|level|indexOption|indexSubcollection|indexLanguage 196 196 elsif ($element =~ /$arrayexp/) { 197 197 my $key = $nameMap->{$element}; … … 211 211 212 212 #@ indexoptions: accentfold/casefold/stem; arrayexp 213 elsif ($element eq "indexOption") {214 $currentLevel = "indexOption";215 }216 if ($currentLevel eq "indexOption" and $element eq "option") {217 my $key = $nameMap->{$currentLevel};218 if (!defined $data->{$key}) {219 $data->{$key} = [];220 }221 push (@{$data->{$key}},$name);222 }213 # elsif ($element eq "indexOption") { 214 # $currentLevel = "indexOption"; 215 # } 216 # if ($currentLevel eq "indexOption" and $element eq "option") { 217 # my $key = $nameMap->{$currentLevel}; 218 # if (!defined $data->{$key}) { 219 # $data->{$key} = []; 220 # } 221 # push (@{$data->{$key}},$name); 222 # } 223 223 #@ plugout options 224 224 elsif ($element eq "plugout") {
Note:
See TracChangeset
for help on using the changeset viewer.