Changeset 4810

Timestamp:

2003-06-25T15:51:13+12:00 (21 years ago)

Author:

kjdon

Message:

added two new fields to build.cfg: indexlevels and textlevel

File:

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

trunk/gsdl/perllib/colcfg.pm

@@ -113 +113 @@
 # {'indexfieldmap'}->array of strings in the form "field->FI"
 # {'indexmap'} -> array of strings
- 
+# {'indexlevels'} -> array of strings
+# {'textlevel'}->string
 sub read_build_cfg {
     my ($filename) = @_;
 
     return &cfgread::read_cfg_file ($filename, 
-                    q/^(builddate|buildtype|numdocs|numwords|numbytes|maxnumeric)$/, 
-                    q/^(metadata|languages|indexfields|indexfieldmap|indexmap)$/);
+                    q/^(builddate|buildtype|numdocs|numwords|numbytes|maxnumeric|textlevel)$/, 
+                    q/^(metadata|languages|indexfields|indexfieldmap|indexmap|indexlevels)$/);
 }
 
@@ -126 +127 @@
 
     &cfgread::write_cfg_file($filename, $data,
-           q/^(builddate|buildtype|numdocs|numwords|numbytes|maxnumeric)$/, 
-           q/^(metadata|languages|indexfieldsindexfieldmap|indexmap)$/);
+           q/^(builddate|buildtype|numdocs|numwords|numbytes|maxnumeric|textlevel)$/, 
+           q/^(metadata|languages|indexfieldsindexfieldmap|indexmap|indexlevels)$/);
 }