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 -N -r1.4.2.10 -r1.4.2.11
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	7 Apr 2004 23:54:28 -0000	1.4.2.10
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	10 Apr 2004 00:34:33 -0000	1.4.2.11
@@ -631,8 +631,16 @@
 } {
     set user_id [oacs_dav::conn user_id]
     set depth [oacs_dav::conn depth]
-    set folder_uri [ad_url][ad_conn url]
-    # if client didn't put a / on folder_uri go ahead and tack it on
+    set encoded_uri [list]
+    foreach fragment [split [ad_conn url] "/"] {
+    	lappend encoded_uri [ns_urlencode $fragment]
+    }   
+    set folder_uri "[ad_url][join $encoded_uri "/"]"
+    
+   if {![string match */ $folder_uri]} {
+	append folder_uri "/"
+    }
+
     if {[empty_string_p $depth]} {
 	set depth 0
     }
@@ -656,7 +664,12 @@
 	if {$item_id == $folder_id} {
 	    set item_uri ""
 	} else {
-	    set item_uri "/${item_uri}"
+	    set encoded_uri [list]
+	    foreach fragment [split $item_uri "/"] {
+		lappend encoded_uri [ns_urlencode $fragment]
+	    }
+	    set item_uri "[join $encoded_uri "/"]"
+	  
 	}
 	
 	lappend properties [list "D" "getcontenttype"] $mime_type