index.tcl

Workflow index

Location:
/packages/workflow/www/admin/index.tcl
Author:
Jeff Wang <jeff@ctrl.ucla.edu>
Created:
3/17/2005
CVS ID:
$Id: index.tcl,v 1.4 2015/06/23 09:55:43 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Workflow index

    @author        Jeff Wang (jeff@ctrl.ucla.edu)
    @creation-date 3/17/2005

    @cvs-id  $Id: index.tcl,v 1.4 2015/06/23 09:55:43 gustafn 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 [export_vars -base workflow-edit {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 [export_vars -base delete-confirm {{id $workflow_id} {type workflow} msg}]
    set view_url [export_vars -base workflow-graph {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 [export_vars -base workflow-edit {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 [export_vars -base delete-confirm {{id $workflow_id} {type workflow} msg}]
    set view_url [export_vars -base workflow-graph {workflow_id}]
}

set new_wf_url "workflow-ae"
set clone_url "workflow-clone"