Index: openacs-4/packages/workflow/www/admin/delete-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/delete-confirm.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/workflow/www/admin/delete-confirm.tcl	30 Dec 2006 00:02:56 -0000	1.1.2.1
@@ -0,0 +1,52 @@
+ad_page_contract {
+
+    State Add/Edit
+
+    @author        Jeff Wang (jeff@ctrl.ucla.edu)
+    @creation-date 3/17/2005
+
+    @cvs-id  $Id: delete-confirm.tcl,v 1.1.2.1 2006/12/30 00:02:56 avnik Exp $
+
+    @param type The type to delete, either state, role,  action, or workflow
+} {
+    {return_url [get_referrer]}
+    {id:notnull}
+    {type:notnull}
+    {msg:notnull}
+}
+
+
+set title "Delete"
+set context [list [list $return_url "Workflow Edit"] "Delete"]
+
+
+ad_form -name "confirm" -form {
+    {warn:text(inform) {label {Confirm:}} {value  $msg}}
+    {ok:text(submit) {label {Delete}}}
+    {cancel:text(submit) {label {Cancel}}}
+} -on_submit {
+
+    if {![empty_string_p $ok]} {
+	switch $type {
+	    role {
+		workflow::role::edit \
+			-operation "delete" \
+			-role_id $id
+	    }
+	    state {
+		workflow::state::fsm::edit \
+			-operation "delete" \
+			-state_id $id
+	    }
+	    action {
+		workflow::action::fsm::edit -action_id $id -operation "delete"
+	    }
+	    workflow {
+		workflow::delete -workflow_id $id
+	    }
+	}
+    }
+    
+} -after_submit {
+    ad_returnredirect $return_url
+} -export {id return_url type msg}