Index: openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/10-database-procs-postgresql.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl	30 Mar 2001 05:44:47 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl	5 Apr 2001 18:23:38 -0000	1.4
@@ -7,10 +7,6 @@
     @cvs-id $Id$
 }
 
-proc db_current_rdbms {} {
-    return [db_rdbms_create postgresql "7.1"]
-}
-
 proc_doc db_nextval { sequence } { Returns the next value for a sequence. This can utilize a pool of sequence values to save hits to the database. } {
     return [db_string nextval "select nextval('$sequence')"]
 }
@@ -208,7 +204,8 @@
     foreach line [split $error "\n"] {
         if { [string first NOTICE $line] == -1 } {
             append error_lines "$line\n"
-            set error_found [expr { $error_found || [string first ERROR $line] != -1 } ]
+            set error_found [expr { $error_found || [string first ERROR $line] != -1 || \
+                                    [string first FATAL $line] != -1 } ]
         }
     }