Index: openacs-4/packages/cms/www/modules/permissions/permission-alter.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/permissions/permission-alter.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/cms/www/modules/permissions/permission-alter.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/cms/www/modules/permissions/permission-alter.tcl 24 May 2001 01:30:52 -0000 1.2 @@ -7,9 +7,7 @@ set user_id [User::getID] -set db [template::get_db_handle] - -template::query info onerow " +template::query get_info info onerow " select acs_object.name(:object_id) as object_name, acs_object.name(:grantee_id) as grantee_name, @@ -26,9 +24,7 @@ if { [form is_valid own_permissions] && ![util::is_nil return_url] } { template::query::flush_cache "content::check_access ${grantee_id}*" - template::release_db_handle template::forward "$return_url?[content::url_passthrough $ext_passthrough]" } } -template::release_db_handle \ No newline at end of file