Index: openacs-4/packages/cms/www/modules/users/change-user-state.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/users/change-user-state.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/users/change-user-state.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/users/change-user-state.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -7,13 +7,12 @@
 request set_param parent_id -datatype keyword -optional
 request set_param mount_point -datatype keyword -optional -value users
 
-set db [template::begin_db_transaction]
-template::query change_member_state dml "
+db_transaction {
+    template::query change_member_state dml "
  update membership_rels set
    member_state=:new_state 
  where 
    rel_id=:rel_id" 
-template::end_db_transaction
-template::release_db_handle
+}
 
 template::forward "index?id=$group_id&parent_id=$parent_id&mount_point=$mount_point"