Index: openacs-4/packages/curriculum/lib/admin-curriculums.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/lib/admin-curriculums.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/curriculum/lib/admin-curriculums.tcl	5 Sep 2003 09:32:14 -0000	1.6
+++ openacs-4/packages/curriculum/lib/admin-curriculums.tcl	5 Jul 2004 14:07:20 -0000	1.7
@@ -19,11 +19,6 @@
 
 permission::require_permission -object_id $package_id -privilege admin
 
-# We might need this if we want to present statistics, see bug-tracker (we need it for this page, too).
-set initial_state_id [workflow::fsm::get_initial_state -workflow_id $workflow_id]
-
-set action_role [db_string select_resolve_role {*SQL*}]
-
 ####
 # Filters.
 ####
@@ -60,4 +55,9 @@
 
 set export_vars [export_vars -url { package_id return_url }]
 
+# Categories.
+set category_map_url [export_vars -base \
+			  "[site_node::get_package_url -package_key categories]cadmin/one-object" \
+			  { { object_id $package_id } }]
+
 ad_return_template