Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs-oracle.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	19 Aug 2001 21:26:05 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	2 Sep 2001 12:26:05 -0000	1.13
@@ -177,7 +177,7 @@
     set full_statement_name [db_qd_get_fullname $statement_name]
 
     db_with_handle db { 
-	db_exec write_blob $db $full_statement_name $sql
+	db_exec_lob write_blob $db $full_statement_name $sql
     }
 }
 
@@ -245,9 +245,7 @@
             set content [ns_set value $selection 0]
             for {set i 0} {$i < [ns_set size $selection]} {incr i} {
                 set name [ns_set key $selection $i]
-                if {[string equal $name storage_type]} {
-                    set storage_type [ns_set value $selection $i]
-                } elseif {[string equal $name content]} {
+                if {[string equal $name content]} {
                     set content [ns_set value $selection $i]
                 }
             }
@@ -268,7 +266,7 @@
                     }
                  }
 
-                write_blob_lob {
+                write_blob {
 
                     if {[file exists $content]} {
                         set ofp [open $content r]