Changeset 14246

Timestamp:

2007-07-12T11:11:30+12:00 (17 years ago)

Author:

xiao

Message:

modification in write_build_cfg_xml sub to pass the disable_OAI flag to cfgread4gs3::write_cfg_file instead of using the structure to prevent from generating perl regular expression compilation warnings.

File:

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

gsdl/trunk/perllib/colcfg.pm

@@ -100 +100 @@
 }
 sub write_build_cfg_xml {
-    my ($buildoutfile, $buildcfg, $collectcfg) = @_;
+    my ($buildoutfile, $buildcfg, $collectcfg, $disable_OAI) = @_;
 
-    return &cfgread4gs3::write_cfg_file ($buildoutfile, $buildcfg, $collectcfg);
+    return &cfgread4gs3::write_cfg_file ($buildoutfile, $buildcfg, $collectcfg, $disable_OAI);
 }
 
@@ -148 +148 @@
 
     return &cfgread::read_cfg_file ($filename, 
-           q/^(builddate|buildtype|numdocs|numsections|numwords|numbytes|maxnumeric|textlevel|indexstem|stemindexes)$/, 
+           q/^(builddate|buildtype|numdocs|numsections|numwords|numbytes|maxnumeric|textlevel|indexstem|stemindexes)$/,
            q/^(indexmap|subcollectionmap|languagemap|notbuilt|indexfields|indexfieldmap|indexlevels|levelmap)$/);
                     
@@ -157 +157 @@
 
     &cfgread::write_cfg_file($filename, $data,
-           q/^(builddate|buildtype|numdocs|numsections|numwords|numbytes|maxnumeric|textlevel|indexstem|stemindexes)$/, 
+           q/^(builddate|buildtype|numdocs|numsections|numwords|numbytes|maxnumeric|textlevel|indexstem|stemindexes)$/,
            q/^(indexmap|subcollectionmap|languagemap|notbuilt|indexfields|indexfieldmap|indexlevels|levelmap)$/);            
 }