Index: openacs-4/packages/lars-blogger/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/index.tcl,v diff -u -r1.10.2.3 -r1.10.2.4 --- openacs-4/packages/lars-blogger/www/admin/index.tcl 20 Apr 2005 14:27:43 -0000 1.10.2.3 +++ openacs-4/packages/lars-blogger/www/admin/index.tcl 24 May 2005 10:47:37 -0000 1.10.2.4 @@ -11,12 +11,16 @@ set title "[_ lars-blogger.Administration]" -set parameters_url [export_vars -base "/shared/parameters" { package_id { return_url [ad_return_url] } }] +set return_url [ad_return_url] +set parameters_url [export_vars -base "/shared/parameters" { package_id return_url }] + set arrow_url "[lars_blog_public_package_url -package_id $package_id]graphics/arrow-box.gif" set categories [lars_blog_categories_p -package_id $package_id] +set permission_url "[export_vars -base "/permissions/one" {return_url {object_id $package_id}}]" + set category_map_url [export_vars -base \ "[site_node::get_package_url -package_key categories]cadmin/one-object" \ { { object_id {[ad_conn [parameter::get -parameter CategoryContainer -default package_id]]} } }]