Changeset 4767

Timestamp:

2003-06-23T14:42:32+12:00 (21 years ago)

Author:

kjdon

Message:

now we have searchtype in the collect.cfg file - this is a list of strings. currently can be form or plain.

File:

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

trunk/gsdl/perllib/colcfg.pm

@@ -54 +54 @@
 # {'phind'}->array of strings
 # {'levels'}->array of strings (for mgpp eg Section, Paragraph)
+# {'searchtype'}->array of strings (for mgpp, form or plain)
 
 # {'subcollection'}->hash of key-value pairs
@@ -77 +78 @@
                     q/maxnumeric)$/,
                     q/(maintainer|languages|indexsubcollections|/ .
-                       q/indexes|dontbuild|dontgdbm|mirror|phind|levels)$/,
-                    q/^(subcollection)$/,
+                       q/indexes|dontbuild|dontgdbm|mirror|phind|levels|searchtype)$/,
+                    q/^(subcollection|format)$/,
                     q/^(importfrom|plugin|classify)$/,
                     q/^(collectionmeta)$/);
@@ -85 +86 @@
 sub write_collect_cfg {
     my ($filename, $data) = @_;
-
+    
     &cfgread::write_cfg_file($filename, $data,
                  q/^(creator|public|defaultindex|importdir|/ .
@@ -92 +93 @@
                  q/allclassifications|maxnumeric)$/,
                  q/^(maintainer|languages|indexsubcollections|/ .
-                 q/indexes|dontbuild|dontgdbm|levels)$/,
+                 q/indexes|dontbuild|dontgdbm|levels|searchtype)$/,
                  q/^(subcollection)$/,
                  q/^(importfrom|plugin|classify)$/,