etp::check_write_access (public)

 etp::check_write_access

Defined in packages/edit-this-page/tcl/etp-procs.tcl

Author:

Luke Pond

Created:

2001-08-29 Designed to be used at the top of every ETP admin page. Returns an HTTP 403 Access Denied and aborts page processing if the user doesn't have "write" permission for the current package.

Testcases:

No testcase defined.

Source code:

        if { ![permission::permission_p -object_id [ad_conn package_id] -privilege write] } {
            ad_return_forbidden "Access Denied" "Sorry, you haven't been
            given permission to work on this area of the website.  Please
            contact your webmaster if you believe this to be in error."
            ad_script_abort
        }

Generic XQL file:

packages/edit-this-page/tcl/etp-procs.xql

PostgreSQL XQL file:

packages/edit-this-page/tcl/etp-procs-postgresql.xql

Oracle XQL file:

packages/edit-this-page/tcl/etp-procs-oracle.xql