etp::get_etp_link (public)

 etp::get_etp_link

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

Author:
Luke Pond
Created:
2001-05-31 If the current package is an instance of Edit This Page, and the user has write access, returns the html "Edit This Page" link which should be displayed at the bottom of the page.

This may be called either from your master template, or from individual pages that are used within an ETP package instance. It incurs 1 database hit to do the permissions check. The package type is acquired via the in-memory copy of the site-nodes layout.

Partial Call Graph (max 5 caller/called nodes):
%3 packages/acs-subsite/www/admin/plain-master.tcl packages/acs-subsite/ www/admin/plain-master.tcl etp::get_etp_link etp::get_etp_link packages/acs-subsite/www/admin/plain-master.tcl->etp::get_etp_link packages/acs-subsite/www/plain-master.tcl packages/acs-subsite/ www/plain-master.tcl packages/acs-subsite/www/plain-master.tcl->etp::get_etp_link packages/acs-subsite/www/shared/plain-master.tcl packages/acs-subsite/ www/shared/plain-master.tcl packages/acs-subsite/www/shared/plain-master.tcl->etp::get_etp_link packages/edit-this-page/www/etp-master.tcl packages/edit-this-page/ www/etp-master.tcl packages/edit-this-page/www/etp-master.tcl->etp::get_etp_link etp::get_etp_url etp::get_etp_url (public) etp::get_etp_link->etp::get_etp_url

Testcases:
No testcase defined.
Source code:
        set etp_url [get_etp_url]
        if { $etp_url ne "" } {
            return [subst {<a href="[ns_quotehtml $etp_url]">Edit This Page</a>\n}]
        }
        return {}
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: