oacs_dav::impl::content_revision::lock (private)

 oacs_dav::impl::content_revision::lock

Defined in packages/oacs-dav/tcl/oacs-dav-procs.tcl

LOCK DAV method for generic content revision

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set uri [oacs_dav::conn uri]
    set owner [oacs_dav::conn lock_owner]
    set scope [oacs_dav::conn lock_scope]
    set type [oacs_dav::conn lock_type]

    if {"unlocked" ne [tdav::check_lock $uri] } {
        set ret_code 423

        set response [list $ret_code]
    } else {
        set depth [tdav::conn depth]
        set timeout [tdav::conn lock_timeout]
        if {$timeout eq ""} {
            set timeout 300
        }
        set token [tdav::set_lock $uri $depth $type $scope $owner $timeout]
        set ret_code 200
        set response [list $ret_code [list depth $depth token $token timeout $timeout owner $owner scope $scope type $type]]
    }
    return $response

Generic XQL file:

packages/oacs-dav/tcl/oacs-dav-procs.xql

PostgreSQL XQL file:

packages/oacs-dav/tcl/oacs-dav-procs-postgresql.xql

Oracle XQL file:

packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql