Index: openacs-4/packages/cms/www/modules/users/make-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/users/make-admin.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/users/make-admin.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/users/make-admin.tcl	25 May 2001 02:15:56 -0000	1.2
@@ -10,14 +10,14 @@
 # to do this
 set user_id [User::getID]
 
-set db [template::begin_db_transaction]
+db_transaction {
 
-content::check_access [cm::modules::sitemap::getRootFolderID] "cm_admin" \
-  -mount_point $mount_point -parent_id $parent_id -db $db
+    content::check_access [cm::modules::sitemap::getRootFolderID] "cm_admin" \
+        -mount_point $mount_point -parent_id $parent_id -db $db
 
-# Grant cm_admin on sitemap, templates, users
+    # Grant cm_admin on sitemap, templates, users
 
-ns_ora dml $db "
+    db_exec_plsql grant_permission "
   declare
     cursor c_module_cur is
       select module_id from cm_modules;
@@ -41,7 +41,6 @@
       content_template.get_root_folder, :user_id, 'cm_admin', :target_user_id, 't'
     );
   end;"
+}
 
-template::end_db_transaction
-
-template::forward $return_url
\ No newline at end of file
+template::forward $return_url