Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs-postgresql.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	3 Sep 2001 18:17:56 -0000	1.24
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	16 Sep 2001 13:34:15 -0000	1.25
@@ -292,22 +292,6 @@
     return [ns_pg ntuples $db_state(last_used)]
 }
 
-#ad_proc db_continue_transaction {} {
-#    
-#    If a transaction is set to be aborted, this procedure allows it to continue.
-#    Intended for use only within a db_transaction on_error code block.  
-#
-#    DRB: we can't emulate this in Postgres.  The best we can do is a COMMIT
-#    followed by BEGIN.  Commented out so caller will get an error.
-#
-#} {
-#    global db_state
-#    db_with_handle db {
-#	# The error has been handled, set the flag to false.
-#	set db_state(db_abort_p,$db) 0
-#    }
-#}
-
 ad_proc db_write_clob { statement_name sql args } {
     ad_arg_parser { bind } $args
 
@@ -322,8 +306,10 @@
     set full_statement_name [db_qd_get_fullname $statement_name]
 
     db_with_handle db { 
-	db_exec_lob blob_get $db $full_statement_name $sql
+	set data [db_exec_lob blob_get $db $full_statement_name $sql]
     }
+
+    return $data
 }
 
 ad_proc db_write_blob { statement_name sql args } {