Index: openacs-4/packages/xowiki/www/admin/permissions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/permissions.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xowiki/www/admin/permissions.tcl	10 Aug 2006 08:32:06 -0000	1.1
+++ openacs-4/packages/xowiki/www/admin/permissions.tcl	17 Aug 2006 11:21:20 -0000	1.2
@@ -1,15 +1,26 @@
-ad_page_contract {
-    Permissions for the subsite itself.
-    
-    @author Gustaf Neumann
-    @creation-date 2006-08-10
-    @cvs-id $Id$
-} {
-    package_id:integer
+::xowiki::Package initialize -ad_doc {
+  Security management for xowiki pages
+
+  @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
+  @creation-date Aug 16, 2006
+  @cvs-id $Id$
+
+} -parameter {
+  {-item_id:optional}
 }
 
-set page_title "[apm_instance_name_from_id $package_id] Permissions"
+if {[info exists item_id]} {
+  set page [::Generic::CrItem instantiate -item_id $item_id]
+  $page volatile
+  set object_id  $item_id
+  set page_title "Manage Permissions for Page: [$page name]"
+  set return_url [$package_id query_parameter return_url [$package_id package_url]admin/list]
+} else {
+  set object_id  $package_id
+  set page_title "Manage Permissions for Package [apm_instance_name_from_id $package_id]"
+  set return_url [$package_id query_parameter return_url [$package_id package_url]admin]
+}
 
 set context [list $page_title]
-set return_url [apm_package_url_from_id $package_id]admin
 
+