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.3 -r1.4
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	7 Nov 2002 18:06:55 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	17 May 2003 10:02:04 -0000	1.4
@@ -7,6 +7,7 @@
   @cvs-id $Id$
 } {
   object_id:integer,notnull
+  {application_url ""}
 }
 
 ad_require_permission $object_id admin
@@ -22,17 +23,13 @@
 <hr>
 
 <form method=get action=grant-2>
-[export_form_vars object_id]
+[export_vars -form {application_url object_id}]
 
 <input type=submit value=\"[_ acs-subsite.Grant]\">
 
 <select name=privilege>
 "
-db_foreach privileges {
-  select privilege
-  from acs_privileges
-  order by privilege
-} {
+db_foreach privileges {} {
   doc_body_append "<option value=$privilege>$privilege</option>\n"
 }
 
@@ -42,16 +39,15 @@
 <select name=party_id>
 "
 
-db_foreach parties {
-  select party_id, acs_object.name(party_id) as name
-  from parties
-} {
+db_foreach parties {} {
   doc_body_append "<option value=$party_id>$name</option>\n"
 }
 
 doc_body_append "
 </select>
 
+<input type=submit value=\"      OK      \">
+
 </form>
 
 [ad_footer]