Index: openacs-4/packages/acs-kernel/sql/postgresql/postgresql.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/postgresql.sql,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/acs-kernel/sql/postgresql/postgresql.sql	1 Sep 2001 16:41:07 -0000	1.13
+++ openacs-4/packages/acs-kernel/sql/postgresql/postgresql.sql	15 Sep 2001 00:32:45 -0000	1.14
@@ -603,3 +603,46 @@
   return 1;
 end;' language 'plpgsql';
 
+-- Returns an english-language description of the trigger type.  Used by the
+-- schema browser
+
+create function trigger_type (integer) returns varchar as '
+declare
+  tgtype            alias for $1;
+  description       varchar;
+  sep               varchar;
+begin
+
+ if tgtype & 2 then
+    description := ''BEFORE '';
+ else 
+    description := ''AFTER '';
+ end if;
+
+ sep := '''';
+
+ if tgtype & 4 then
+    description := description || ''INSERT '';
+    sep := ''OR '';
+ end if;
+
+ if tgtype & 8 then
+    description := description || sep || ''DELETE '';
+    sep := ''OR '';
+ end if;
+
+ if tgtype & 16 then
+    description := description || sep || ''UPDATE '';
+    sep := ''OR '';
+ end if;
+
+ if tgtype & 1 then
+    description := description || ''FOR EACH ROW'';
+ else
+    description := description || ''STATEMENT'';
+ end if;
+
+ return description;
+
+end;' language 'plpgsql';
+