Changeset 14200 for gsdl/trunk
- Timestamp:
- 2007-06-29T12:42:43+12:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/cfgread4gs3.pm
r14184 r14200 141 141 #} 142 142 143 144 145 143 #@ Handle index|level|indexSubcollection|indexLanguage 146 144 elsif ($element =~ /$arrayexp/) { … … 339 337 } 340 338 341 #&Display; print "***********"; 339 print "*** collectionConfig.xml internal ***\n"; 340 &Display; 342 341 return $data; 343 342 } … … 421 420 } 422 421 423 map {print $_."\n"} keys %$buildcfg;422 #map {print $_."\n"} keys %$buildcfg; 424 423 425 424 if (defined $buildcfg->{$maptype}) { 426 425 my $indexmap_t = $buildcfg->{$maptype}; 427 426 foreach my $i (@$indexmap_t) { 428 print "i=".$i; 429 my ($k, $v) = $i =~ /^(.*)\-\>(.*)$/; 427 my ($k, $v) = $i =~ /^(.*)\-\>(.*)$/; 430 428 $indexmap->{$k} = $v; 431 429 push @indexlist, $k; … … 524 522 &write_line('COLCFG', ["<defaultLevel shortname=\"", $default_search_level, "\" />"]); 525 523 } 526 527 # make the GDBM level528 &write_line('COLCFG', ["<defaultGDBMLevel shortname=\"", $default_gdbm_level, "\" />"]);529 524 if ($buildtype eq "lucene" || $buildtype eq "mgpp") { 525 # make the GDBM level 526 &write_line('COLCFG', ["<defaultGDBMLevel shortname=\"", $default_gdbm_level, "\" />"]); 527 } 530 528 # do searchTypeList 531 529 if ($buildtype eq "mgpp" || $buildtype eq "lucene") {
Note:
See TracChangeset
for help on using the changeset viewer.