Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
acs-workflow
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
project-open
acs-workflow
Commits
d4cca3f3
Commit
d4cca3f3
authored
Mar 17, 2006
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- added intranet-workflow-procs from Natasha
parent
e18123f1
Pipeline
#113
failed with stages
Changes
1
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
36 additions
and
0 deletions
+36
-0
intranet-workflow-procs.tcl
tcl/intranet-workflow-procs.tcl
+36
-0
No files found.
tcl/intranet-workflow-procs.tcl
View file @
d4cca3f3
ad_library
{
]project-open
[
specific extension for acs-workflow.
I guess that these extensions are not reall
]
project-open
[
specific,
but mainly reference the issue of integration with other packages.
@author Frank Bergmann
(
frank.bergmann@project-open.com
)
@creation-date 2006-03-16
@cvs-id $Id$
}
ad_proc -public wf_workflow_list_options
{
{
-include_empty 0
}
{
-min_case_count 0
}
}
{
Returns a list of workflows that satisfy certain conditions
}
{
set min_count_where
""
if
{
$min
_case_count > 0
}
{
set min_count_where
"and count(c.case_id) > 0
\n
"
}
set options
[
db_list_of_lists project_options
"
select
t.pretty_name,
w.workflow_key,
count(c.case_id) as num_cases,
0 as num_unassigned_tasks
from wf_workflows w left outer join wf_cases c
on (w.workflow_key = c.workflow_key and c.state = 'active'),
acs_object_types t
where w.workflow_key = t.object_type
$min
_count_where
group by w.workflow_key, t.pretty_name
order by t.pretty_name
"
]
if
{
$include
_empty
}
{
set options
[
linsert
$options
""
{
""
""
}]
}
return
$options
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment