Changeset 7090 for trunk/gsdl/perllib
- Timestamp:
- 2004-03-17T16:15:22+13:00 (20 years ago)
- Location:
- trunk/gsdl/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgppbuilder.pm
r6584 r7090 320 320 my $mgpp_passes_sections = ""; 321 321 my ($doc_level) = $self->{'doc_level'}; 322 $mgpp_passes_sections .= "-J " . %level_map->{$doc_level} . " ";322 $mgpp_passes_sections .= "-J " . $level_map{$doc_level} . " "; 323 323 foreach $level (keys %{$self->{'levels'}}) { 324 324 if ($level ne $doc_level && $level ne "paragraph") { 325 $mgpp_passes_sections .= "-K " . %level_map->{$level} . " ";325 $mgpp_passes_sections .= "-K " . $level_map{$level} . " "; 326 326 } 327 327 } … … 611 611 my $mgpp_passes_sections = ""; 612 612 my ($doc_level) = $self->{'doc_level'}; 613 $mgpp_passes_sections .= "-J " . %level_map->{$doc_level} ." ";613 $mgpp_passes_sections .= "-J " . $level_map{$doc_level} ." "; 614 614 615 615 foreach $level (keys %{$self->{'levels'}}) { 616 616 if ($level ne $doc_level) { 617 $mgpp_passes_sections .= "-K " . %level_map->{$level}. " ";617 $mgpp_passes_sections .= "-K " . $level_map{$level}. " "; 618 618 } 619 619 } … … 890 890 my $collmeta = ".$level"; # based on the original specification 891 891 $level =~ tr/A-Z/a-z/; # make it lower case 892 my $levelid = %level_map->{$level}; # find the actual value we used in the index892 my $levelid = $level_map{$level}; # find the actual value we used in the index 893 893 if ($collmetadefined && defined $self->{'collect_cfg'}->{'collectionmeta'}->{$collmeta}) { 894 894 $metadata_entry = $self->create_language_db_map($collmeta, $levelid); … … 896 896 } else { 897 897 # use the default macro 898 $level_entry .= "<$levelid>" . %level_map->{$levelid} . "\n";898 $level_entry .= "<$levelid>" . $level_map{$levelid} . "\n"; 899 899 } 900 900 } … … 1115 1115 my @indexlevels = (); 1116 1116 foreach $l (@{$self->{'levelorder'}}) { 1117 push (@indexlevels, %level_map->{$l});1117 push (@indexlevels, $level_map{$l}); 1118 1118 } 1119 1119 $build_cfg->{'indexlevels'} = \@indexlevels; 1120 1120 1121 1121 if ($self->{'levels'}->{'section'}) { 1122 $build_cfg->{'textlevel'} = %level_map->{'section'};1122 $build_cfg->{'textlevel'} = $level_map{'section'}; 1123 1123 } else { 1124 $build_cfg->{'textlevel'} = %level_map->{'document'};1124 $build_cfg->{'textlevel'} = $level_map{'document'}; 1125 1125 } 1126 1126 # store the number of documents and number of bytes -
trunk/gsdl/perllib/mgppbuildproc.pm
r6767 r7090 561 561 my($documentendtag) = ""; 562 562 if ($self->{'levels'}->{'document'}) { 563 $documenttag = "\n<". %level_map->{'document'} . ">\n";564 $documentendtag = "\n</". %level_map->{'document'} . ">\n";563 $documenttag = "\n<". $level_map{'document'} . ">\n"; 564 $documentendtag = "\n</". $level_map{'document'} . ">\n"; 565 565 } 566 566 my ($sectiontag) = ""; 567 567 if ($self->{'levels'}->{'section'}) { 568 $sectiontag = "\n<". %level_map->{'section'} . ">\n";568 $sectiontag = "\n<". $level_map{'section'} . ">\n"; 569 569 } 570 570 my ($paratag) = ""; 571 571 if ($self->{'levels'}->{'paragraph'}) { 572 572 if ($self->{'strip_html'}) { 573 $paratag = "<". %level_map->{'paragraph'} . ">";573 $paratag = "<". $level_map{'paragraph'} . ">"; 574 574 } else { 575 575 print $outhandle "Paragraph level can not be used with no_strip_html!. Not indexing Paragraphs.\n";
Note:
See TracChangeset
for help on using the changeset viewer.