nsmcp::QuestionService method questionPresentation (protected)

 <instance of nsmcp::QuestionService> questionPresentation record \
    entry

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

Parameters:

record (required)

entry (required)

Testcases:

No testcase defined.

Source code:

set display [dict get $entry question]
set editable $display
if {[dict exists $entry continuedFrom]} {
    foreach source [dict get $record turns] {
        if {[dict get $source id] eq [dict get $entry continuedFrom]} {set editable [dict get $source question]; break}
    }
} elseif {[string first {Continue the retained analysis and finish the answer. Retrieve only these existing background jobs with log_results;} $display]==0
    && [regexp {\nJob handles: ([0-9a-f, ]+)\.\nOriginal request \(context only\): } $display unused ids]} {
    # Presentation compatibility for continuations made by older drafts.
    # Only recognize handles actually retained in this owned record.
    set handles [split [string map {{, } { }} $ids] { }]
    set foundSource {}
    set valid true
    foreach handle $handles {
        set found false
        if {![regexp {^[0-9a-f]{64}$} $handle]} {set valid false; break}
        foreach source [dict get $record turns] {
            if {[dict exists $source jobs $handle]} {
                set found true
                if {$foundSource eq {}} {set foundSource $source}
                break
            }
        }
        if {!$found} {set valid false; break}
    }
    if {$valid && $foundSource ne {}} {
        set display {Continue the previous analysis.}
        set editable [dict get $foundSource question]
    }
}
return [list $display $editable]

XQL Not present:

Generic, PostgreSQL, Oracle