xo::update_query (private)

 xo::update_query old_query var value

Defined in packages/xotcl-core/tcl/context-procs.tcl

Replace in a URL-query old occurrences of var with new value.

Parameters:

old_query (required)

var (required)

value (required)

Returns:

encoded HTTP query

Testcases:

api__context

Source code:

    set encodeCmd ns_urlencode
    if {$::xo::naviserver} {lappend encodeCmd --}

    set query [{*}$encodeCmd $var]=[{*}$encodeCmd $value]

    if {$old_query ne ""} {
      foreach {key value} [ns_set array [ns_parsequery $old_query]] {
        if {$key eq $var
            || [::util::suspicious_query_variable -proc xo::update_query $key $value]} {
          continue
        }
        append query &[{*}$encodeCmd $key]=[{*}$encodeCmd $value]
      }
    }
    return $query

XQL Not present:

Generic, PostgreSQL, Oracle