Forum OpenACS Development: Response to More complex workflows
To elaborate even further, suppose the following workflow is defined (sorry for a long dump):
begin;
create table test_wf_cases (
case_id integer primary key
references wf_cases on delete cascade
);
/*
* Declare the object type
*/
create function inline_0 () returns integer as '
begin
PERFORM workflow__create_workflow (
''test_wf'',
''Test'',
''Test'',
''A test workflow.'',
''test_wf_cases'',
''case_id''
);
return null;
end;' language 'plpgsql';
select inline_0 ();
drop function inline_0 ();
/*****
* Places
*****/
select workflow__add_place(
'test_wf',
'start',
'Ready to Write',
null
);
select workflow__add_place(
'test_wf',
'before_review',
'Ready to Review',
null
);
select workflow__add_place(
'test_wf',
'before_publish',
'Ready to Publish',
null
);
select workflow__add_place(
'test_wf',
'end',
'Process finished',
null
);
/*****
* Roles
*****/
select workflow__add_role (
'test_wf',
'write',
'Write',
1
);
select workflow__add_role (
'test_wf',
'review',
'Review',
2
);
select workflow__add_role (
'test_wf',
'publish',
'Publish',
3
);
/*****
* Transitions
*****/
select workflow__add_transition (
'test_wf',
'write',
'Write',
'write',
1,
'user'
);
select workflow__add_transition (
'test_wf',
'review',
'Review',
'review',
2,
'user'
);
select workflow__add_transition (
'test_wf',
'publish',
'Publish',
'publish',
3,
'user'
);
/*****
* Arcs
*****/
select workflow__add_arc (
'test_wf',
'publish',
'before_publish',
'in',
'',
'',
''
);
select workflow__add_arc (
'test_wf',
'publish',
'end',
'out',
'',
'',
''
);
select workflow__add_arc (
'test_wf',
'review',
'before_review',
'in',
'',
'',
''
);
select workflow__add_arc (
'test_wf',
'review',
'start',
'out',
'#',
'',
'Not Good'
);
select workflow__add_arc (
'test_wf',
'review',
'before_publish',
'out',
'wf_callback__guard_attribute_tr',
'review_is_it_good_p',
'Good'
);
select workflow__add_arc (
'test_wf',
'write',
'start',
'in',
'',
'',
''
);
select workflow__add_arc (
'test_wf',
'write',
'before_review',
'out',
'',
'',
''
);
/*****
* Attributes
*****/
select workflow__create_attribute(
'test_wf',
'review_is_it_good_p',
'boolean',
'Is it good',
null,
null,
null,
't',
1,
1,
null,
'generic'
);
select workflow__add_trans_attribute_map(
'test_wf',
'review',
'review_is_it_good_p',
1
);
/*****
* Transition-role-assignment-map
*****/
/*
* Context/Transition info
* (for context = default)
*/
insert into wf_context_transition_info
(context_key,
workflow_key,
transition_key,
estimated_minutes,
instructions,
enable_callback,
enable_custom_arg,
fire_callback,
fire_custom_arg,
time_callback,
time_custom_arg,
deadline_callback,
deadline_custom_arg,
deadline_attribute_name,
hold_timeout_callback,
hold_timeout_custom_arg,
notification_callback,
notification_custom_arg,
unassigned_callback,
unassigned_custom_arg)
values
('default',
'test_wf',
'write',
15,
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'');
insert into wf_context_transition_info
(context_key,
workflow_key,
transition_key,
estimated_minutes,
instructions,
enable_callback,
enable_custom_arg,
fire_callback,
fire_custom_arg,
time_callback,
time_custom_arg,
deadline_callback,
deadline_custom_arg,
deadline_attribute_name,
hold_timeout_callback,
hold_timeout_custom_arg,
notification_callback,
notification_custom_arg,
unassigned_callback,
unassigned_custom_arg)
values
('default',
'test_wf',
'review',
5,
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'');
insert into wf_context_transition_info
(context_key,
workflow_key,
transition_key,
estimated_minutes,
instructions,
enable_callback,
enable_custom_arg,
fire_callback,
fire_custom_arg,
time_callback,
time_custom_arg,
deadline_callback,
deadline_custom_arg,
deadline_attribute_name,
hold_timeout_callback,
hold_timeout_custom_arg,
notification_callback,
notification_custom_arg,
unassigned_callback,
unassigned_custom_arg)
values
('default',
'test_wf',
'publish',
1,
'',
'',
'',
'',
'',
'wf_callback__time_sysdate_plus_x', -- time_callback
'0.005',
'',
'',
'',
'',
'',
'',
'',
'',
'');
/*
* Context/Role info
* (for context = default)
*/
/*
* Context Task Panels
* (for context = default)
*/
commit;
I assume that 24*60*0.005=7min after publish transition is reached it should automatically finish. Am I missing something? Should I, instead, have pl/pgsql proc that uses wf_callback__time_sysdate_plus_x to get the time that it is due to fire and then modify the case state?
