nsmcp::usageRecordJson

 nsmcp::usageRecordJson

Defined in

Partial Call Graph (max 5 caller/called nodes):
::nsmcp::QuestionService ::nsmcp::QuestionService nsmcp::usageRecordJson nsmcp::usageRecordJson ::nsmcp::QuestionService->nsmcp::usageRecordJson Class Class Class->nsmcp::usageRecordJson nsmcp::QuestionService instproc recordUsage nsmcp::QuestionService instproc recordUsage (protected) nsmcp::QuestionService instproc recordUsage->nsmcp::usageRecordJson

Testcases:
No testcase defined.
Source code:
    set fields {}
    dict for {key value} $record {
        if {$key eq "tokens"} {
            set counters {}
            dict for {name count} $value {
                lappend counters $name number $count
            }
            lappend fields $key object $counters
        } else {
            lappend fields $key [expr {$key in {version timestamp} ? "number" : "string"}] $value
        }
    }
    return [ns_json value -- [list {} object $fields]]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: