Index: openacs-4/packages/xowiki/xowiki.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v diff -u -N -r1.24 -r1.25 --- openacs-4/packages/xowiki/xowiki.info 10 Aug 2006 01:14:41 -0000 1.24 +++ openacs-4/packages/xowiki/xowiki.info 10 Aug 2006 08:32:06 -0000 1.25 @@ -38,6 +38,7 @@ + Index: openacs-4/packages/xowiki/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/index.tcl,v diff -u -N -r1.11 -r1.12 --- openacs-4/packages/xowiki/www/admin/index.tcl 9 Aug 2006 15:42:06 -0000 1.11 +++ openacs-4/packages/xowiki/www/admin/index.tcl 10 Aug 2006 08:32:06 -0000 1.12 @@ -10,21 +10,22 @@ set package_id [ad_conn package_id] set Package [::xowiki::Package create ::$package_id] -$Package instvar folder_id set context [list] set supertype ::xowiki::Page set title "Administer all kind of [$supertype set pretty_plural]" set object_type_key [$supertype set object_type_key] set object_types [$supertype object_types] +set return_url [ns_conn url] TableWidget t1 -volatile \ -actions [subst { - Action new -label all -url list + Action new -label "all pages" -url list + Action new -label parameters -url [export_vars -base /shared/parameters {package_id return_url}] Action new -label export -url export Action new -label import -url import - Action new -label permissions -url /admin/applications/permissions?package_id=$package_id + Action new -label permissions -url [export_vars -base permissions {package_id}] }] \ -columns { Field object_type -label [_ xowiki.page_type] @@ -44,7 +45,8 @@ t1 add \ -object_type $object_type \ -instances [db_list count [$object_type instance_select_query \ - -folder_id $folder_id -count 1 -with_subtypes false]] \ + -folder_id [$Package set folder_id] \ + -count 1 -with_subtypes false]] \ -instances.href [export_vars -base ./list {object_type}] \ -edit.href [export_vars -base $base {{edit-new 1} object_type return_url}] \ -delete.href [export_vars -base delete-type {object_type}] \ @@ -56,5 +58,5 @@ # set up categories set category_map_url [export_vars -base \ - [site_node::get_package_url -package_key categories]cadmin/one-object \ + [site_node::get_package_url -package_key categories]cadmin/object-map \ { { object_id $package_id } }] \ No newline at end of file Index: openacs-4/packages/xowiki/www/admin/permissions.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/permissions.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/xowiki/www/admin/permissions.adp 10 Aug 2006 08:32:06 -0000 1.1 @@ -0,0 +1,5 @@ + + @page_title@ + @context@ + + 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/xowiki/www/admin/permissions.tcl 10 Aug 2006 08:32:06 -0000 1.1 @@ -0,0 +1,15 @@ +ad_page_contract { + Permissions for the subsite itself. + + @author Gustaf Neumann + @creation-date 2006-08-10 + @cvs-id $Id: permissions.tcl,v 1.1 2006/08/10 08:32:06 gustafn Exp $ +} { + package_id:integer +} + +set page_title "[apm_instance_name_from_id $package_id] Permissions" + +set context [list $page_title] +set return_url [apm_package_url_from_id $package_id]admin +