Searched refs:presql (Results 1 – 8 of 8) sorted by relevance
26 set presql ""27 catch { set presql "$::G(perm:presql);" }28 unset -nocomplain ::G(perm:presql)54 $::presql74 $::presql94 $::presql117 $::presql132 $::presql145 $::presql158 $::presql[all …]
25 # -presql SQL (default "")34 set default(-presql) ""393 } -presql {416 } -presql {427 } -presql {439 } -presql {450 } -presql {462 } -presql {472 } -presql {483 } -presql {[all …]
24 # connection is opened. This will not work if there is any "presql"26 if {[info exists ::G(perm:presql)]} {
25 # connection is opened. This will not work if there is any "presql"27 if {[info exists ::G(perm:presql)]} {
1291 proc presql {} { procedure1292 set presql ""1293 catch {set presql $::G(perm:presql)}1294 set presql
528 # Do not run this test if $::G(perm:presql) is set. If it is set, then the532 if {0==[info exists ::G(perm:presql)] || $::G(perm:presql) == ""} {
100 if {[presql] == ""} {
69 if {[presql] != ""} break