boolean true

jginternational · jginternational · commit 37f3bfc26b5e · 2022-07-21T20:18:36.000+02:00
diff --git a/kratos.gid/scripts/Writing/WriteProjectParameters.tcl b/kratos.gid/scripts/Writing/WriteProjectParameters.tcl
@@ -330,7 +330,7 @@ proc write::GetResultsByXPathList { xpath } {
     set xp1 "$xpath/value"
     set resultxml [$root selectNodes $xp1]
     foreach res $resultxml {
-        if {[get_domnode_attribute $res v] in [list "Yes" "True" "1"] && [get_domnode_attribute $res state] ne "hidden"} {
+        if {[write::isBooleanTrue [get_domnode_attribute $res v]] && [get_domnode_attribute $res state] ne "hidden"} {
             set name [get_domnode_attribute $res n]
             lappend result $name
         }

Original file line number	Diff line number	Diff line change
`@@ -330,7 +330,7 @@ proc write::GetResultsByXPathList { xpath } {`
`330`	`330`	`set xp1 "$xpath/value"`
`331`	`331`	`set resultxml [$root selectNodes $xp1]`
`332`	`332`	`foreach res $resultxml {`
`333`		`- if {[get_domnode_attribute $res v] in [list "Yes" "True" "1"] && [get_domnode_attribute $res state] ne "hidden"} {`
	`333`	`+ if {[write::isBooleanTrue [get_domnode_attribute $res v]] && [get_domnode_attribute $res state] ne "hidden"} {`
`334`	`334`	`set name [get_domnode_attribute $res n]`
`335`	`335`	`lappend result $name`
`336`	`336`	`}`