Index: openacs-4/packages/oacs-dav/tcl/oacs-dav-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/oacs-dav-init.tcl,v
diff -u -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-init.tcl	16 Feb 2004 16:49:27 -0000	1.1.1.1
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-init.tcl	31 Mar 2004 01:57:49 -0000	1.1.1.1.2.1
@@ -18,6 +18,7 @@
 set url "${prefix}/*"
 set filter_url "${prefix}*"
 ns_register_filter preauth GET ${filter_url} oacs_dav::authorize
+ns_register_filter preauth HEAD ${filter_url} oacs_dav::authorize
 ns_register_filter preauth PUT ${filter_url} oacs_dav::authorize
 ns_register_filter preauth MKCOL ${filter_url} oacs_dav::authorize
 ns_register_filter preauth COPY ${filter_url} oacs_dav::authorize
@@ -31,6 +32,7 @@
 ns_log notice "OACS-DAV preauth filters loaded on $filter_url"
 
 ns_register_proc GET ${url} oacs_dav::handle_request
+ns_register_proc HEAD ${url} oacs_dav::handle_request
 ns_register_proc COPY ${url} oacs_dav::handle_request
 ns_register_proc PUT ${url} oacs_dav::handle_request
 ns_register_proc DELETE ${url} oacs_dav::handle_request
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.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