Changeset 2711 for trunk/gsdl

Timestamp:

2001-08-22T15:22:07+12:00 (23 years ago)

Author:

sjboddie

Message:

Removed the "beta" collect.cfg option to avoid awkward questions from
people about what it does (nothing!)

Location:

trunk/gsdl

Files:

• bin/script/mkcol.pl (modified) (4 diffs)
• collect/demo/etc/collect.cfg (modified) ( previous)
• collect/modelcol/etc/collect.cfg (modified) (1 diff)
• perllib/colcfg.pm (modified) (3 diffs)

trunk/gsdl/bin/script/mkcol.pl

@@ -57 +57 @@
     print STDOUT "                       different from the creator)\n";
     print STDOUT "   -public true|false  If this collection has anonymous access\n";
-    print STDOUT "   -beta true|false    If this collection is still under development\n";
     print STDOUT "   -title text         The title for the collection\n";
     print STDOUT "   -about text         The about text for the collection\n";
@@ -116 +115 @@
         $line =~ s/\*\*maintainer\*\*/$maintainer/g;
         $line =~ s/\*\*public\*\*/$public/g;
-        $line =~ s/\*\*beta\*\*/$beta/g;
         $line =~ s/\*\*title\*\*/$title/g;
         $line =~ s/\*\*about\*\*/$about/g;
@@ -139 +137 @@
               'maintainer/\w+\@[\w\.]+/', \$maintainer,
               'public/true|false/true', \$public,
-              'beta/true|false/true', \$beta,
               'title/.+/', \$title,
               'about/.+/', \$about,
@@ -208 +205 @@
 
     $public = "true" unless defined $public;
-    $beta = "true" unless defined $beta;
 
     if (!defined($title) || $title eq "") {

trunk/gsdl/collect/modelcol/etc/collect.cfg

@@ -2 +2 @@
 maintainer    **maintainer**
 public        **public**
-beta          **beta**
 
 indexes        document:text

trunk/gsdl/perllib/colcfg.pm

@@ -35 +35 @@
 # {'creator'}->string
 # {'public'}->string
-# {'beta'}->string
 # {'defaultindex'}->string
 # {'importdir'}->string
@@ -65 +64 @@
 
     return &cfgread::read_cfg_file ($filename, 
-                    q/^(creator|public|beta|defaultindex|importdir|/ .
+                    q/^(creator|public|defaultindex|importdir|/ .
                     q/archivedir|cachedir|builddir|removeold|/ .
                     q/textcompress|buildtype|no_text|keepold|gzip/ .
@@ -80 +79 @@
 
     &cfgread::write_cfg_file($filename, $data,
-                 q/^(creator|public|beta|defaultindex|importdir|/ .
+                 q/^(creator|public|defaultindex|importdir|/ .
                  q/archivedir|cachedir|builddir|removeold|/ .
                  q/textcompress|buildtype|collectdir|no_text|allclassifications)$/,