Index: openacs-4/packages/acs-subsite/catalog/acs-subsite.de_DE.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/catalog/acs-subsite.de_DE.ISO-8859-1.xml,v diff -u -r1.20.2.2 -r1.20.2.3 --- openacs-4/packages/acs-subsite/catalog/acs-subsite.de_DE.ISO-8859-1.xml 14 Oct 2004 03:21:13 -0000 1.20.2.2 +++ openacs-4/packages/acs-subsite/catalog/acs-subsite.de_DE.ISO-8859-1.xml 28 Oct 2004 15:39:37 -0000 1.20.2.3 @@ -227,6 +227,7 @@ Ablehnen Anmeldedaten auf diesem Computer speichern Entfernen + Alle Entfernen Zugang zu dieser Gruppe beantragen Mitgliedschaft f�r diese Subsite beantragen Zugang beantragen Index: openacs-4/packages/acs-subsite/catalog/acs-subsite.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/catalog/acs-subsite.en_US.ISO-8859-1.xml,v diff -u -r1.51.2.5 -r1.51.2.6 --- openacs-4/packages/acs-subsite/catalog/acs-subsite.en_US.ISO-8859-1.xml 14 Oct 2004 03:21:13 -0000 1.51.2.5 +++ openacs-4/packages/acs-subsite/catalog/acs-subsite.en_US.ISO-8859-1.xml 28 Oct 2004 15:39:37 -0000 1.51.2.6 @@ -311,6 +311,7 @@ Reject Remember my login on this computer Remove + Remove_All Request membership of this community Request membership of this subsite Request membership Index: openacs-4/packages/acs-subsite/www/permissions/grant.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/grant.tcl,v diff -u -r1.12 -r1.12.2.1 --- openacs-4/packages/acs-subsite/www/permissions/grant.tcl 12 Mar 2004 13:45:27 -0000 1.12 +++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl 28 Oct 2004 15:39:36 -0000 1.12.2.1 @@ -9,6 +9,7 @@ object_id:integer,notnull privileges:multiple,optional {application_url ""} + {return_url ""} } ad_require_permission $object_id admin @@ -107,12 +108,12 @@ lappend select_list [list "[string repeat "   " $level] $privilege" $privilege] } -form create grant +ad_form -name grant -export {return_url} -form { + {object_id:text(hidden) + {value $object_id} + } +} -element create grant object_id \ - -widget hidden \ - -value $object_id - element create grant application_url \ -widget hidden \ -value $application_url \ @@ -160,6 +161,11 @@ } } - ad_returnredirect "one?[export_vars [list object_id application_url]]" + if {[exists_and_not_null return_url]} { + ad_returnredirect "$return_url" + } else { + ad_returnredirect "one?[export_vars [list object_id application_url]]" + } + ad_script_abort } Index: openacs-4/packages/acs-subsite/www/permissions/perm-include.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-include.adp,v diff -u -r1.3 -r1.3.4.1 --- openacs-4/packages/acs-subsite/www/permissions/perm-include.adp 31 Aug 2003 12:51:23 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/permissions/perm-include.adp 28 Oct 2004 15:39:36 -0000 1.3.4.1 @@ -4,7 +4,7 @@

- +

Index: openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl,v diff -u -r1.4 -r1.4.4.1 --- openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl 16 Oct 2003 21:33:32 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl 28 Oct 2004 15:39:36 -0000 1.4.4.1 @@ -20,7 +20,7 @@ set elements [list] lappend elements grantee_name { - label "Name" + label "[_ acs-subsite.Name]" link_url_col name_url display_template { @@ -57,7 +57,7 @@ # Remove all lappend elements remove_all { html { align center } - label "Remove All" + label "[_ acs-subsite.Remove_All]" display_template {} } @@ -71,8 +71,9 @@ set user_add_url [export_vars -base $user_add_url { object_id expanded {return_url "[ad_return_url]"}}] -set actions [list "Add user" $user_add_url "Grant permissions to a new user"] - +set actions [list "[_ acs-subsite.Grant_Permission]" "${perm_url}grant?[export_vars {return_url application_url object_id}]" "[_ acs-subsite.Grant_Permission]" \ + "[_ acs-subsite.Search_For_Exist_User]" $user_add_url "[_ acs-subsite.Search_For_Exist_User]"] + if { ![empty_string_p $context_id] } { set inherit_p [permission::inherit_p -object_id $object_id]