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
- packages/schema-browser/www/trigger.tcl
- packages/schema-browser/www/trigger-postgresql.xql
- packages/schema-browser/www/trigger-oracle.xql
[ 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