Index: openacs-4/packages/workflow/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/index.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/workflow/www/admin/index.tcl	4 Jan 2007 09:04:10 -0000	1.2
@@ -0,0 +1,38 @@
+ad_page_contract {
+
+    Workflow index
+
+    @author        Jeff Wang (jeff@ctrl.ucla.edu)
+    @creation-date 3/17/2005
+
+    @cvs-id  $Id: index.tcl,v 1.2 2007/01/04 09:04:10 avnik Exp $
+} {
+    {context "Workflow"}
+}
+
+set title "Workflow Index"
+
+
+#get a listing of all the workflow boiler plates
+set where_clause "object_id is null"
+db_multirow -extend {edit_url delete_url view_url}  get_bps get_wfs {} {
+    set edit_url "workflow-edit?[export_url_vars workflow_id]"
+    workflow::get -workflow_id $workflow_id -array "wf_info"
+    set msg "You are about to delete $wf_info(short_name). Are you sure?"
+    set delete_url "delete-confirm?[export_url_vars id=$workflow_id type=workflow msg]"
+    set view_url "workflow-graph?[export_url_vars workflow_id]"
+}
+
+
+#get a listing of all the workflow instances
+set where_clause "object_id is not null"
+db_multirow -extend {edit_url delete_url view_url} get_instances  get_wfs {} {
+    set edit_url "workflow-edit?[export_url_vars workflow_id]"
+    workflow::get -workflow_id $workflow_id -array "wf_info"
+    set msg "You are about to delete $wf_info(short_name). Are you sure?"
+    set delete_url "delete-confirm?[export_url_vars id=$workflow_id type=workflow msg]"
+    set view_url "workflow-graph?[export_url_vars workflow_id]"
+}
+
+set new_wf_url "workflow-ae"
+set clone_url "workflow-clone"