Index: openacs-4/packages/courses/www/cc-admin/grant-permission.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/grant-permission.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/courses/www/cc-admin/grant-permission.tcl	3 Feb 2005 22:42:28 -0000	1.1
@@ -0,0 +1,21 @@
+ad_page_contract {
+    Gives users the same permissions that creation_users has over course_id and assessment_id
+
+    @author          Miguel Marin (miguelmarin@viaro.net) 
+    @author          Viaro Networks www.viaro.net
+    @creation date   03-02-2005
+} {
+    p_user_id:multiple
+    { user_name "" }
+    { user_email "" }
+    object_id:notnull
+    creation_user:notnull
+    course_key:notnull
+} 
+
+# Grants Permission for all the users in p_user_id
+foreach user $p_user_id {
+    course_catalog::grant_permissions -party_id $user -object_id $object_id -creation_user $creation_user
+}
+
+ad_returnredirect "/courses/cc-admin/grant-user-list?user_name=$user_name&user_email=$user_email&object_id=$object_id&creation_user=$creation_user&course_key=$course_key"
Index: openacs-4/packages/courses/www/cc-admin/revoke-permission.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/revoke-permission.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/courses/www/cc-admin/revoke-permission.tcl	3 Feb 2005 22:42:28 -0000	1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+    Revokes users the same permissions that creation_users has over course_id and assessment_id
+
+    @author          Miguel Marin (miguelmarin@viaro.net) 
+    @author          Viaro Networks www.viaro.net
+    @creation date   03-01-2005
+} {
+    p_user_id:multiple
+    { user_name "" }
+    { user_email "" }
+    object_id:notnull
+    creation_user:notnull
+    course_key:notnull
+}
+
+
+# Revokes Permission for all the users in p_user_id
+foreach user $p_user_id {
+    course_catalog::revoke_permissions -party_id $user -object_id $object_id -creation_user $creation_user
+}
+
+
+ad_returnredirect "/courses/cc-admin/grant-user-list?user_name=$user_name&user_email=$user_email&object_id=$object_id&creation_user=$creation_user&course_key=$course_key"
\ No newline at end of file