Changeset 797 for trunk/gsdl/bin/script/mkcol.pl

Timestamp:

1999-12-02T13:58:50+13:00 (24 years ago)

Author:

sjboddie

Message:

removed obsolete 'key' field

File:

• trunk/gsdl/bin/script/mkcol.pl (modified) (2 diffs)

trunk/gsdl/bin/script/mkcol.pl

@@ -88 +88 @@
         $line =~ s/\*\*public\*\*/$public/g;
         $line =~ s/\*\*beta\*\*/$beta/g;
-        $line =~ s/\*\*key\*\*/$key/g;
         $line =~ s/\*\*indexes\*\*/$indexesstr/g;
         $line =~ s/\*\*indexestext\*\*/$indexestextstr/g;
@@ -158 +157 @@
 $beta = "true" unless defined $beta;
 
-srand(time);
-$key = int(rand()*100000000.0) + int(rand()*100000000.0);
-
 # get capitalised version of the collection
 $capcollection = $collection;