Index: openacs-4/packages/xowiki/www/admin/manage_categories.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/Attic/manage_categories.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/xowiki/www/admin/manage_categories.tcl	29 Jan 2009 15:27:11 -0000	1.1
@@ -0,0 +1,23 @@
+::xowiki::Package initialize -ad_doc {
+  Redirector to call categories interface
+
+  @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
+  @creation-date January 2009
+  @cvs-id $Id: manage_categories.tcl,v 1.1 2009/01/29 15:27:11 gustafn Exp $
+
+  @param object_id
+} -parameter {
+  {-object_id:required}
+}
+
+#
+# The primary prupose of this miniscript is the make sure to flush the
+# page fragement cache of categories, when categories are edited;
+# better would be some kind of callback from categories.
+#
+# flush could be made in the future more precise
+#
+$package_id flush_page_fragment_cache -scope agg
+
+ad_returnredirect [site_node::get_package_url -package_key categories]cadmin/object-map?ctx_id=$object_id&object_id=$object_id
+