trigger.tcl

This is file /www/doc/schema-browser/trigger.tcl

Location:
/packages/schema-browser/www/trigger.tcl
Author:
?
Created:
?
CVS ID:
$Id: trigger.tcl,v 1.5 2017/09/30 18:12:52 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    This is file /www/doc/schema-browser/trigger.tcl

    @param trigger_name

    @author ?
    @creation-date ?
    @cvs-id $Id: trigger.tcl,v 1.5 2017/09/30 18:12:52 gustafn Exp $

} {
    trigger_name:notnull
}


set html "[ad_header "[ad_system_name]  One trigger "]

<h2>[ad_system_name] Schema Browser</h2>
[ad_context_bar_ws [list "./" "Schema Browser"] "One Trigger"]
"


db_1row unused "
    select
        table_name,
        trigger_type,
        triggering_event,
        status,
        trigger_body
    from
        user_triggers
    where
        trigger_name = upper(:trigger_name)"

regsub -all ";" $trigger_body ";<br> " trigger_body
regsub "begin" $trigger_body "begin<br>" trigger_body

append html "
<hr>
create or replace trigger [string tolower $trigger_name]
$triggering_event $trigger_type
<br>
[ad_text_to_html -- $trigger_body]

[ad_footer]
"



doc_return 200 text/html $html