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.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	3 May 2001 04:25:30 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	4 May 2001 06:04:28 -0000	1.10
@@ -385,6 +385,12 @@
 
                 if {[regexp {^[0-9]+$} $val match]} {
                     ns_pg blob_select_file $db $val $file
+                } elseif {[file exists $val]} {
+                    set ifp [open $val r]
+                    set ofp [open $file w]
+                    ns_cpfp $ifp $ofp
+                    close $ifp
+                    close $ofp
                 } else {
                     error "lob id is not an integer"
                 }