Index: openacs-4/packages/workflow/tcl/case-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs-oracle.xql,v diff -u -r1.12 -r1.13 --- openacs-4/packages/workflow/tcl/case-procs-oracle.xql 21 Nov 2017 13:05:13 -0000 1.12 +++ openacs-4/packages/workflow/tcl/case-procs-oracle.xql 3 Sep 2019 12:23:55 -0000 1.13 @@ -2,43 +2,6 @@ oracle8.1.6 - - - select m.party_id, - p.email, - acs_object.name(m.party_id) as name - from workflow_case_role_party_map m, - parties p - where m.case_id = :case_id - and m.role_id = :role_id - and p.party_id = m.party_id - - - - - - select acs_object.name(:object_id) as name from dual - - - - - - select distinct acs_object.name(p.party_id) || ' (' || p.email || ')' as label, p.party_id - from [ad_decode $subquery "" "cc_users" $subquery] p - where upper(nvl(acs_object.name(p.party_id) || ' ', '') || p.email) like upper('%'||:value||'%') - order by label - - - - - - select acs_object.name(p.party_id) || ' (' || p.email || ')' as label, p.party_id - from parties p - where p.party_id in ([join $party_id_list ", "]) - order by label - - - begin Index: openacs-4/packages/workflow/tcl/case-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs-postgresql.xql,v diff -u -r1.13 -r1.14 --- openacs-4/packages/workflow/tcl/case-procs-postgresql.xql 21 Nov 2017 13:05:13 -0000 1.13 +++ openacs-4/packages/workflow/tcl/case-procs-postgresql.xql 3 Sep 2019 12:23:55 -0000 1.14 @@ -2,43 +2,6 @@ postgresql7.2 - - - select m.party_id, - p.email, - acs_object__name(m.party_id) as name - from workflow_case_role_party_map m, - parties p - where m.case_id = :case_id - and m.role_id = :role_id - and p.party_id = m.party_id - - - - - - select acs_object__name(:object_id) as name - - - - - - select distinct acs_object__name(p.party_id) || ' (' || p.email || ')' as label, p.party_id - from [ad_decode $subquery "" "cc_users" $subquery] p - where upper(coalesce(acs_object__name(p.party_id) || ' ', '') || p.email) like upper('%'||:value||'%') - order by label - - - - - - select acs_object__name(p.party_id) || ' (' || p.email || ')' as label, p.party_id - from parties p - where p.party_id in ([join $party_id_list ", "]) - order by label - - - select workflow_case_pkg__delete(:case_id) Index: openacs-4/packages/workflow/tcl/case-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.xql,v diff -u -r1.16 -r1.17 --- openacs-4/packages/workflow/tcl/case-procs.xql 21 Nov 2017 13:05:13 -0000 1.16 +++ openacs-4/packages/workflow/tcl/case-procs.xql 3 Sep 2019 12:23:55 -0000 1.17 @@ -1,6 +1,43 @@ + + + select acs_object.name(:object_id) as name from dual + + + + + + select distinct acs_object.name(p.party_id) || ' (' || p.email || ')' as label, p.party_id + from [ad_decode $subquery "" "cc_users" $subquery] p + where upper(coalesce(acs_object.name(p.party_id) || ' ', '') || p.email) like upper('%'||:value||'%') + order by label + + + + + + select acs_object.name(p.party_id) || ' (' || p.email || ')' as label, p.party_id + from parties p + where p.party_id in ([join $party_id_list ", "]) + order by label + + + + + + select m.party_id, + p.email, + acs_object.name(m.party_id) as name + from workflow_case_role_party_map m, + parties p + where m.case_id = :case_id + and m.role_id = :role_id + and p.party_id = m.party_id + + + select state_id