Defined in
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
-
No testcase defined.
Source code:
array set props [tdav::dbm_read_list $uri]
set status [list]
foreach {action i} $prop_req {
lassign $i k value
switch -- $action {
set {
if {[catch {set props($k) $value} err]} {
lappend status [list "HTTP/1.1 409 Conflict" $k]
} else {
lappend status [list "HTTP/1.1 200 OK" $k]
}
}
remove {
if {[info exists props($k)]} {
unset props($k)
}
lappend status [list "HTTP/1.1 200 OK" $k]
}
}
tdav::dbm_write_list $uri [array get props]
}
return $status
XQL Not present:Generic, PostgreSQL, Oracle