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 -N -r1.1 -r1.2
--- openacs-4/packages/cms/tcl/user-procs.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/cms/tcl/user-procs.tcl	27 May 2001 04:39:19 -0000	1.2
@@ -11,7 +11,7 @@
 
   # set the ad_user_login cookie 
 
-  proc login { db user_id } {
+  proc login { user_id } {
 
     ad_user_login -forever $user_id
 
@@ -52,10 +52,10 @@
 
   # a cms admin exists if a user has the 'cm_admin' privilege
   #   on the CMS pages root folder
-  proc cms_admin_exists { db } {
+  proc cms_admin_exists {} {
   
     template::query admin_exists onevalue "
-      select content_permission.cm_admin_exists from dual" -db $db
+      select content_permission.cm_admin_exists from dual"
 
     if { [string equal $admin_exists t] } {
       return 1