tutorial-admin-pages.html
=======
>>>>>>> 1.13 There are at least two flavors of admin user interface:
Admins use same pages as all other users, except that they are offered admin links and buttons where appropriate. For example, if admins have privilege to bulk-delete items you could provide checkboxes next to every item seen on a list and the Delete Selected button on the bottom of the list.
Dedicated admin pages. If you want admins to have
access to data that users aren't interested in or aren't allowed
to see you will need dedicated admin pages. The conventional
place to put those dedicated admin pages is in the
/var/lib/aolserver/$OPENACS_SERVICE_NAME/packages/myfirstpackage/www/admin
directory.
[$OPENACS_SERVICE_NAME www]$ mkdir admin
[$OPENACS_SERVICE_NAME www]$ cd admin
Even if your application doesn't need any admin pages of its own you will usually need at least one simple page with a bunch of links to existing administration UI such as Category Management or standard Parameters UI. Adding the link to Category Management is described in the section on categories. The listing below adds a link to the Parameters UI of our package.
[$OPENACS_SERVICE_NAME admin]$ vi index.adp
<master> <property name="title">@title;noquote@</property> <property name="context">@context;noquote@</property> <ul class="action-links"> <li><a href="@parameters_url@" title="Set parameters" class="action_link">Set parameters</a></li> </ul>
[$OPENACS_SERVICE_NAME admin]$ vi index.tcl
ad_page_contract {} { } -properties { context_bar } set package_id [ad_conn package_id] permission::require_permission \ -object_id $package_id \ -privilege admin] set context [list] set title "Administration" set parameters_url [export_vars -base "/shared/parameters" { package_id { return_url [ad_return_url] } }]
Now that you have the first admin page it would be nice to have a link to it
somewhere in the system so that admins don't have to type in the
/admin
every time they need to reach it. You
could put a static link to the toplevel
index.adp
but that might be distracting for
people who are not admins. Besides, some people consider it impolite to first
offer a link and then display a nasty "You don't have permission to access this
page" message.
In order to display the link to the admin page only to users that have admin
privileges add the following code near the top of
/var/lib/aolserver/$OPENACS_SERVICE_NAME/packages/myfirstpackage/www/admin/index.tcl
:
set package_id [ad_conn package_id] set admin_p [permission::permission_p -object_id $package_id \ -privilege admin -party_id [ad_conn untrusted_user_id]] if { $admin_p } { set admin_url "admin" set admin_title Administration }
In
/var/lib/aolserver/$OPENACS_SERVICE_NAME/packages/myfirstpackage/www/admin/index.adp
put:
<if @admin_p@ ne nil> <a href="@admin_url@">@admin_title@</a> </if>