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.

Partial Call Graph (max 5 caller/called nodes):
%3 packages/edit-this-page/www/etp-create-2.tcl packages/edit-this-page/ www/etp-create-2.tcl etp::check_write_access etp::check_write_access packages/edit-this-page/www/etp-create-2.tcl->etp::check_write_access packages/edit-this-page/www/etp-create.tcl packages/edit-this-page/ www/etp-create.tcl packages/edit-this-page/www/etp-create.tcl->etp::check_write_access packages/edit-this-page/www/etp-delete.tcl packages/edit-this-page/ www/etp-delete.tcl packages/edit-this-page/www/etp-delete.tcl->etp::check_write_access packages/edit-this-page/www/etp-edit.tcl packages/edit-this-page/ www/etp-edit.tcl packages/edit-this-page/www/etp-edit.tcl->etp::check_write_access packages/edit-this-page/www/etp-extlink.tcl packages/edit-this-page/ www/etp-extlink.tcl packages/edit-this-page/www/etp-extlink.tcl->etp::check_write_access ad_conn ad_conn (public) etp::check_write_access->ad_conn ad_return_forbidden ad_return_forbidden (public) etp::check_write_access->ad_return_forbidden ad_script_abort ad_script_abort (public) etp::check_write_access->ad_script_abort permission::permission_p permission::permission_p (public) etp::check_write_access->permission::permission_p

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

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