Index: openacs-4/packages/contacts/www/admin/permissions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/permissions.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/contacts/www/admin/permissions.tcl	7 Jun 2005 07:45:40 -0000	1.4
+++ openacs-4/packages/contacts/www/admin/permissions.tcl	30 Jun 2006 16:22:21 -0000	1.5
@@ -5,11 +5,14 @@
     @creation-date 2003-06-13
     @cvs-id $Id$
 } {
-    group_id:integer
+    {group_id:integer ""}
 }
 
-set object_id $group_id
-
+if { [exists_and_not_null group_id] } {
+    set object_id $group_id
+} else {
+    set object_id [ad_conn package_id]
+}
 set page_title "[_ contacts.Permissions]"
 
 set context [list $page_title]