Index: openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl,v
diff -u -r1.30.2.8 -r1.30.2.9
--- openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl 9 May 2022 17:11:03 -0000 1.30.2.8
+++ openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl 27 Nov 2022 17:35:47 -0000 1.30.2.9
@@ -298,12 +298,12 @@
{} $body \n \n
}
- ProtocolHandler instproc multiStatusResonse {
+ ProtocolHandler instproc multiStatusResponse {
-href:required
-propstats:required
{-propstatus true}
} {
- :log "multiStatusResonse href $href propstats $propstats"
+ :log "multiStatusResponse href $href propstats $propstats"
append reply \n \
{} \
"\n$href\n"
@@ -342,7 +342,7 @@
D:getcontentlength "" \
D:creationdate "" \
D:resourcetype ""
- set r [:multiStatus [:multiStatusResonse \
+ set r [:multiStatus [:multiStatusResponse \
-href [ns_urldecode [ns_conn url]] \
-propstats [list $davprops $status]]]
:log multiStatusError=$r
@@ -377,7 +377,7 @@
D:lockdiscovery {}
ns_return 207 text/xml [:multiStatus \
- [:multiStatusResonse \
+ [:multiStatusResponse \
-href ${:uri} \
-propstats [list $davprops "HTTP/1.1 200 OK"]]]
}