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.17.2.1 -r1.17.2.2 --- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl 12 Sep 2015 19:00:42 -0000 1.17.2.1 +++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl 29 Apr 2016 07:00:17 -0000 1.17.2.2 @@ -389,7 +389,7 @@ return [expr {$child_count == 0}] } -ad_proc -public oacs_dav::handle_request { uri method args } { +ad_proc -public oacs_dav::handle_request { args } { dispatch request to the proper service contract implmentation } { @@ -448,17 +448,17 @@ # content_revision if we don't find an implementation # implementation name is content_type - set real_content_type [oacs_dav::conn -set real_content_type $content_type] + set real_content_type [oacs_dav::conn -set real_content_type $content_type] while {![acs_sc_binding_exists_p dav $content_type]} { # go up content_type hierarchy # we do the query here to avoid running the query # when the implementation for the content_type does # exist - set content_type [db_string supertype "select supertype from acs_object_types where object_type = :content_type" -default ""] - if { $content_type eq "content_revision"} {break} - if { $content_type eq ""} { error "no dav implementation found for content_type $real_content_type" } - ns_log Notice "now looking for a dav implementation for content_type $content_type" + set content_type [db_string supertype "select supertype from acs_object_types where object_type = :content_type" -default ""] + if { $content_type eq "content_revision"} {break} + if { $content_type eq ""} { error "no dav implementation found for content_type $real_content_type" } + ns_log Notice "now looking for a dav implementation for content_type $content_type" } oacs_dav::conn -set content_type $content_type