callback::workflow::case::role::after_assign::impl::bug-tracker (private)

 callback::workflow::case::role::after_assign::impl::bug-tracker \
    -case_id case_id -party_id party_id

Defined in packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl

A callback that grants direct permission after assignment to the given party.

Switches:
-case_id
(required)
-party_id
(required)
See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 bug_tracker::grant_direct_read_permission bug_tracker::grant_direct_read_permission (private) bug_tracker::user_bugs_only_p bug_tracker::user_bugs_only_p (public) workflow::case::get workflow::case::get (public) callback::workflow::case::role::after_assign::impl::bug-tracker callback::workflow::case::role::after_assign::impl::bug-tracker callback::workflow::case::role::after_assign::impl::bug-tracker->bug_tracker::grant_direct_read_permission callback::workflow::case::role::after_assign::impl::bug-tracker->bug_tracker::user_bugs_only_p callback::workflow::case::role::after_assign::impl::bug-tracker->workflow::case::get

Testcases:
No testcase defined.
Source code:
    ::callback::workflow::case::role::after_assign::contract__arg_parser {*}$args

    if {[bug_tracker::user_bugs_only_p]} {
    workflow::case::get -case_id $case_id -array case
    set bug_id $case(object_id)
        bug_tracker::grant_direct_read_permission -bug_id $bug_id -party_id $party_id
    }
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/bug-tracker/tcl/bug-tracker-callback-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: