Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/task-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/task-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/task-delete.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/task-delete.tcl	19 Nov 2001 18:29:29 -0000	1.2
@@ -1,53 +1,18 @@
 ad_page_contract {
     Delete task.
+
+    @author Lars Pind (lars@pinds.com)
+    @creation-date Sep 2000
+    @cvs-id $Id$
 } {
     workflow_key
     transition_key
     {return_url "define?[export_url_vars workflow_key]"}
 }
 
+wf_delete_transition \
+	-workflow_key $workflow_key \
+	-transition_key $transition_key
 
-# Since we've now added on delete cascade constraints, this long list of deletes should no longer be necessary.
-
-db_transaction {
-    db_dml arcs_delete {
-	delete from wf_arcs
-	where  workflow_key = :workflow_key
-	and    transition_key = :transition_key
-    }
-
-    db_dml transition_attribute_map_delete {
-	delete from wf_transition_attribute_map
-	where  workflow_key = :workflow_key
-	and    transition_key = :transition_key
-    }
-    
-    db_dml transition_assignment_map_delete {
-	delete from wf_transition_assignment_map
-	where  workflow_key = :workflow_key
-	and    transition_key = :transition_key
-    }
-
-    db_dml wf_context_assignments_delete {
-	delete from wf_context_assignments
-	where  workflow_key = :workflow_key
-	and    transition_key = :transition_key
-    }
-
-    db_dml wf_context_transition_info_delete {
-	delete from wf_context_transition_info
-	where  workflow_key = :workflow_key
-	and    transition_key = :transition_key
-    }
-    
-    db_dml transition_delete {
-	delete from wf_transitions
-	where  workflow_key = :workflow_key
-	and    transition_key = :transition_key
-    }
-}
-
-wf_workflow_changed $workflow_key
-
 ad_returnredirect $return_url