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.3 -r1.4.2.4
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	31 Mar 2004 01:48:31 -0000	1.4.2.3
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	31 Mar 2004 01:57:49 -0000	1.4.2.4
@@ -391,7 +391,9 @@
     # then we would probably have to send that to tDAV for processing
     ns_log debug "DAV: response is \"$response\""
 
-    if {![string equal -nocase "get" $method]} {
+    if {![string equal -nocase "get" $method] && \
+	    ![string equal -nocase "head" $method]} {
+
 	tdav::respond $response
     }
 }
@@ -741,6 +743,21 @@
     cr_write_content -item_id $item_id
 }
 
+ad_proc oacs_dav::impl::content_revision::head {} {
+    GET DAV method for generic content revision
+    @author Dave Bauer
+    @param uri
+} {
+
+    set item_id [oacs_dav::conn item_id]
+
+    # cr_write_content works correctly for HEAD requests
+    # with filesystem storage, it sends out the content
+    # on lob storage. that needs to be fixed.
+    
+    cr_write_content -item_id $item_id
+}
+
 ad_proc oacs_dav::impl::content_revision::put {} {
     PUT DAV method for generic content revision
     @author Dave Bauer