Index: openacs-4/packages/cms/tcl/user-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/Attic/user-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/tcl/user-procs.tcl	11 Aug 2001 17:40:26 -0000	1.3
+++ openacs-4/packages/cms/tcl/user-procs.tcl	15 Aug 2002 03:39:34 -0000	1.4
@@ -53,14 +53,13 @@
   #   on the CMS pages root folder
   ad_proc cms_admin_exists {} {
   
-    template::query cae_admin_exists admin_exists onevalue "
-      select content_permission.cm_admin_exists from dual"
+      set_admin_exists [db_string cae_admin_exists ""]
 
-    if { [string equal $admin_exists t] } {
-      return 1
-    } else {
-      return 0
-    }
+      if { [string equal $admin_exists t] } {
+          return 1
+      } else {
+          return 0
+      }
   }
 
 }