Index: openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl,v
diff -u -N -r1.3.2.5 -r1.3.2.6
--- openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	3 May 2004 00:44:48 -0000	1.3.2.5
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	7 May 2004 02:51:11 -0000	1.3.2.6
@@ -43,6 +43,7 @@
     set parent_id [oacs_dav::item_parent_folder_id $uri]
     array set sn [site_node::get -url $uri]
     set package_id $sn(package_id)
+    ns_log debug "\n ----- \n file_storage::dav::put package_id $package_id \n parent_id $parent_id \n uri $uri \n ----- \n "
     if {[empty_string_p $parent_id]} {
 	set response [list 409]
 	return $response
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -N -r1.42.2.3 -r1.42.2.4
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	28 Apr 2004 02:08:31 -0000	1.42.2.3
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	7 May 2004 02:51:11 -0000	1.42.2.4
@@ -651,7 +651,7 @@
     @return revision_id
 } {
 
-    if {[ad_parameter "StoreFilesInDatabaseP" -package_id $package_id]} {
+    if {[parameter::get -parameter "StoreFilesInDatabaseP" -package_id $package_id]} {
 	set indbp "t"
     } else {
 	set indbp "f"
@@ -708,7 +708,7 @@
     @return revision_id
 } {
 
-    if {[ad_parameter "StoreFilesInDatabaseP" -package_id $package_id]} {
+    if {[parameter::get -parameter "StoreFilesInDatabaseP" -package_id $package_id]} {
 	set storage_type "lob"
     } else {
 	set storage_type "file"