workflow-graph.tcl

to view workflow graph

Location:

/packages/workflow/www/admin/workflow-graph.tcl

Author:

jmhek@cs.ucla.edu

Created:

4/5/2005

CVS ID:

$Id: workflow-graph.tcl,v 1.4 2014/08/06 16:34:03 gustafn Exp $

Related Files

• packages/workflow/www/admin/workflow-graph.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    to view workflow graph
    @author       jmhek@cs.ucla.edu
    @creation-date 4/5/2005
    @cvs-id  $Id: workflow-graph.tcl,v 1.4 2014/08/06 16:34:03 gustafn Exp $
} {
    {workflow_id:naturalnum,notnull}
    {states_to_highlight ""}
}

set flag [workflow::graph::draw -workflow_id $workflow_id -highlight $states_to_highlight]
if {$flag==0} {
    ad_returnredirect graph/workflow_$workflow_id\.jpg
} else {
    ad_returnredirect -allow_complete_url [get_referrer]
}