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

[ 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]
}