nsmcp::QuestionService method originTurn (protected)

 <instance of nsmcp::QuestionService> originTurn record entry

Defined in /usr/local/ns/tcl/nsmcp/question-service.tcl

Follow owned continuation links so later stages retain the actual original request rather than the generic Continue presentation label.

Parameters:

record (required)

entry (required)

Testcases:

No testcase defined.

Source code:

set seen {}
while {[dict exists $entry continuedFrom]} {
    set id [dict get $entry continuedFrom]
    if {$id in $seen} {break}
    lappend seen $id
    set found false
    foreach previous [dict get $record turns] {
        if {[dict get $previous id] eq $id} {
            set entry $previous
            set found true
            break
        }
    }
    if {!$found} {break}
}
return $entry

XQL Not present:

Generic, PostgreSQL, Oracle