safety check

jginternational · jginternational · commit 92e4cbb2369e · 2025-08-08T13:38:46.000+02:00
diff --git a/kratos.gid/scripts/spdAuxiliar.tcl b/kratos.gid/scripts/spdAuxiliar.tcl
@@ -413,8 +413,11 @@ proc spdAux::GetUsedElements {{alt_un ""}} {
 
         set xp1 "[spdAux::getRoute $un]/group"
         foreach gNode [[customlib::GetBaseRoot] selectNodes $xp1] {
-            set name [write::getValueByNode [$gNode selectNodes ".//value\[@n='Element']"] ]
-            if {$name ni $lista} {lappend lista $name}
+            set element_node [$gNode selectNodes ".//value\[@n='Element'\]"]
+            if {$element_node ne ""} {
+                set name [write::getValueByNode $element_node]
+                if {$name ni $lista} {lappend lista $name}
+            }
         }
     }
     return $lista

Original file line number	Diff line number	Diff line change
`@@ -413,8 +413,11 @@ proc spdAux::GetUsedElements {{alt_un ""}} {`
`413`	`413`
`414`	`414`	`set xp1 "[spdAux::getRoute $un]/group"`
`415`	`415`	`foreach gNode [[customlib::GetBaseRoot] selectNodes $xp1] {`
`416`		`- set name [write::getValueByNode [$gNode selectNodes ".//value\[@n='Element']"] ]`
`417`		`- if {$name ni $lista} {lappend lista $name}`
	`416`	`+ set element_node [$gNode selectNodes ".//value\[@n='Element'\]"]`
	`417`	`+ if {$element_node ne ""} {`
	`418`	`+ set name [write::getValueByNode $element_node]`
	`419`	`+ if {$name ni $lista} {lappend lista $name}`
	`420`	`+ }`
`418`	`421`	`}`
`419`	`422`	`}`
`420`	`423`	`return $lista`