Index: openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	20 Feb 2004 00:08:25 -0000	1.3
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	27 Feb 2004 03:22:57 -0000	1.4
@@ -489,7 +489,7 @@
 	return [list 409]
     }
 
-    set dest_item_id [db_string get_dest_id ""]
+    set dest_item_id [db_string get_dest_id "" -default ""]
     if {![empty_string_p $dest_item_id]} {
 	ns_log notice "DAV Folder Copy Folder Exists item_id $dest_item_id overwrite $overwrite"
 	if {![string equal -nocase $overwrite "T"]} {
@@ -539,7 +539,7 @@
 	return $response
     }
 
-    set dest_item_id [db_string get_dest_id ""]
+    set dest_item_id [db_string get_dest_id "" -default ""]
     ns_log debug "@DAV@@ folder move new_name $new_name dest_id $dest_item_id new_folder_id $new_parent_folder_id" 
     if {![empty_string_p $dest_item_id]} {
 	ns_log notice "DAV Folder Move Folder Exists item_id $dest_item_id overwrite $overwrite"
@@ -902,7 +902,7 @@
     if {[empty_string_p $new_parent_folder_id]} {
 	return [list 409]
     }
-    set dest_item_id [db_string get_dest_id ""]
+    set dest_item_id [db_string get_dest_id "" -default ""]
     if {![empty_string_p $dest_item_id]} {
 	
 	if {![string equal -nocase $overwrite "T"]} {
@@ -959,7 +959,7 @@
     if {![string equal "unlocked" [tdav::check_lock $uri]]} {
 	return [list 423]
     }
-    set dest_item_id [db_string get_dest_id ""]
+    set dest_item_id [db_string get_dest_id "" -default ""]
     if {![empty_string_p $dest_item_id]} {
 	
 	if {![string equal -nocase $overwrite "T"]} {