Index: openacs-4/packages/schema-browser/www/trigger-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/www/Attic/trigger-oracle.xql,v
diff -u -N
--- openacs-4/packages/schema-browser/www/trigger-oracle.xql	17 Sep 2001 23:51:12 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,22 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-<fullquery name="unused">      
-      <querytext>
-      
-    select
-        table_name,
-        trigger_type,
-        triggering_event,
-        status,
-        trigger_body
-    from
-        user_triggers
-    where
-        trigger_name = upper(:trigger_name)
-      </querytext>
-</fullquery>
-
- 
-</queryset>
Index: openacs-4/packages/schema-browser/www/trigger-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/www/Attic/trigger-postgresql.xql,v
diff -u -N
--- openacs-4/packages/schema-browser/www/trigger-postgresql.xql	15 Sep 2001 00:32:45 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,22 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-<rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="unused">      
-      <querytext>
-      
-    select
-        table_name,
-        trigger_type,
-        triggering_event,
-        status,
-        trigger_body
-    from
-        user_triggers
-    where
-        trigger_name = upper(:trigger_name)
-      </querytext>
-</fullquery>
-
- 
-</queryset>
Index: openacs-4/packages/schema-browser/www/trigger.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/www/trigger.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/schema-browser/www/trigger.adp	17 Mar 2023 16:36:41 -0000	1.1
@@ -0,0 +1,10 @@
+<master>
+  <property name="doc(title)">@page_title;literal@</property>
+  <property name="context">@context;literal@</property>
+
+  <hr>
+  create or replace trigger @trigger_name@
+  @triggering_event@ @trigger_type@
+  <br>
+  @trigger_body@
+
Index: openacs-4/packages/schema-browser/www/trigger.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/www/trigger.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/schema-browser/www/trigger.tcl	30 Sep 2017 18:12:52 -0000	1.5
+++ openacs-4/packages/schema-browser/www/trigger.tcl	17 Mar 2023 16:36:41 -0000	1.6
@@ -11,39 +11,22 @@
     trigger_name:notnull
 }
 
+set page_title "[ad_system_name] One trigger"
+set context [list "One Trigger"]
 
-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
+        EVENT_OBJECT_TABLE as table_name,
+        EVENT_MANIPULATION as trigger_type,
+        ACTION_TIMING triggering_event,
+        ACTION_STATEMENT as trigger_body
     from
-        user_triggers
+        INFORMATION_SCHEMA.TRIGGERS
     where
-        trigger_name = upper(:trigger_name)"
+        TRIGGER_NAME = :trigger_name"
 
+set trigger_name [string tolower $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
+set trigger_body [ad_text_to_html -- $trigger_body]