Index: openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql	17 Apr 2001 22:59:51 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql	18 Apr 2001 15:28:19 -0000	1.4
@@ -13,4 +13,12 @@
                       values (sec_security_token_id_seq.nextval, :random_token, now())
     </querytext>
   </fullquery>
+  <fullquery name="populate_secret_tokens_cache.get_secret_tokens">
+    <querytext>
+    select token_id, token
+    from secret_tokens,
+         (select trunc(random()*(select count(*)-15 from secret_tokens))::integer as first) r
+    where token_id >= r.first and r.first+15 > token_id;
+    </querytext>
+   </fullquery>
 </queryset>