Changeset 9936

Timestamp:

2005-05-24T12:53:25+12:00 (19 years ago)

Author:

kjdon

Message:

now writes a levelmap to build.cfg, eg document->Doc section->Sec

File:

• trunk/gsdl/perllib/mgppbuilder.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgppbuilder.pm

@@ -1144 +1144 @@
     # store the level info
     my @indexlevels = ();
+    my @levelmap = ();
     foreach my $l (@{$self->{'levelorder'}}) {
     push (@indexlevels, $level_map{$l});
+    push (@levelmap, "$l\-\>$level_map{$l}");
     }
     $build_cfg->{'indexlevels'} = \@indexlevels;
-    
+    $build_cfg->{'levelmap'} = \@levelmap;
+
     if ($self->{'levels'}->{'section'}) {
     $build_cfg->{'textlevel'} = $level_map{'section'};
@@ -1191 +1194 @@
     &cfgread::write_cfg_file("$self->{'build_dir'}/build.cfg", $build_cfg,
                  '^(builddate|buildtype|numdocs|numbytes|textlevel)$', 
-                             '^(indexmap|subcollectionmap|languagemap|indexfieldmap|notbuilt|indexfields|indexlevels)$');
+                             '^(indexmap|subcollectionmap|languagemap|indexfieldmap|notbuilt|indexfields|indexlevels|levelmap)$');
 
     print STDERR "</Stage>\n" if $self->{'gli'};