Index: openacs-4/packages/cms/www/modules/permissions/permission-grant.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/permissions/permission-grant.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/cms/www/modules/permissions/permission-grant.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/cms/www/modules/permissions/permission-grant.tcl 16 Nov 2004 22:32:49 -0000 1.2 @@ -4,24 +4,23 @@ request set_param passthrough -datatype text -optional request set_param ext_passthrough -datatype text -optional -value $passthrough -set user_id [User::getID] +set user_id [auth::require_login] # Determine if we have one and only one user on the clipboard set clip [clipboard::parse_cookie] set users [clipboard::get_items $clip users] if { [llength $users] < 1 } { - content::show_error \ - "There are no users on the clipboard." \ - $return_url $passthrough - + content::show_error \ + "There are no users on the clipboard." $return_url $passthrough } elseif { [llength $users] > 1 } { - content::show_error \ - "There is more than one user on the clipboard. Make sure only + content::show_error \ + "There is more than one user on the clipboard. Make sure only one user is marked and try again" \ - $return_url $passthrough + $return_url $passthrough } + set grantee_id [lindex $users 0] template::forward "../permissions/permission-alter?object_id=$object_id&return_url=$return_url&passthrough=$passthrough&grantee_id=$grantee_id"