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.2 -r1.3
--- openacs-4/packages/cms/tcl/user-procs.tcl	27 May 2001 04:39:19 -0000	1.2
+++ openacs-4/packages/cms/tcl/user-procs.tcl	11 Aug 2001 17:40:26 -0000	1.3
@@ -27,7 +27,7 @@
 
   # get the name of the current user.
 
-  proc getName { { which "full" } } {
+  ad_proc getName { { which "full" } } {
 
     switch $which {
 
@@ -37,24 +37,23 @@
     }
 
     set user_id [ad_util_get_cookie acs_user]
-    set query "select 
+
+    return [db_string gn_get_name "select 
         $col
       from 
         persons
       where
-        person_id = [getID]"
-
-    return [ad_dbquery onevalue $query]
+        person_id = [getID]"]
   }
 
 
 
 
   # a cms admin exists if a user has the 'cm_admin' privilege
   #   on the CMS pages root folder
-  proc cms_admin_exists {} {
+  ad_proc cms_admin_exists {} {
   
-    template::query admin_exists onevalue "
+    template::query cae_admin_exists admin_exists onevalue "
       select content_permission.cm_admin_exists from dual"
 
     if { [string equal $admin_exists t] } {