bug_tracker::access_policy (public)

 bug_tracker::access_policy

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

Detect and return the current access policy.

Testcases:

No testcase defined.

Source code:

    set package_id [ad_conn package_id]
    db_1row get_bug {}
    if {[permission::inherit_p -object_id $bug_id]} {
        return [list "#bug-tracker.Show_all_bugs#" all_bugs]
    } else {
        return [list "#bug-tracker.Show_user_bugs_only#" user_bugs]
    }

Generic XQL file:

<fullquery name="bug_tracker::access_policy.get_bug">
    <querytext>
        select min(bug_id) as bug_id
         from bt_bugs 
        where project_id = :package_id
      </querytext>
</fullquery>

packages/bug-tracker/tcl/bug-tracker-procs.xql

PostgreSQL XQL file:

packages/bug-tracker/tcl/bug-tracker-procs-postgresql.xql

Oracle XQL file:

packages/bug-tracker/tcl/bug-tracker-procs-oracle.xql