Index: openacs-4/contrib/packages/cop-ui/www/categories/remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-ui/www/categories/remove.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/cop-ui/www/categories/remove.tcl	28 Jan 2005 09:18:58 -0000	1.1
@@ -0,0 +1,9 @@
+ad_page_contract {
+} {
+    object_id:integer,notnull
+    cat:integer,notnull
+}
+
+db_dml nuke {delete from category_object_map where category_id = :cat and object_id = :object_id}
+
+ad_returnredirect -message "removed category" [get_referrer]