From d6a40eb8e33d1564f205839c95035080c0f4e344 Mon Sep 17 00:00:00 2001
From: Javi Garate <fjgarate@cimne.upc.edu>
Date: Fri, 27 Oct 2023 12:13:26 +0200
Subject: [PATCH] clear else

---
 kratos.gid/scripts/Writing/WriteSubModelPart.tcl | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/kratos.gid/scripts/Writing/WriteSubModelPart.tcl b/kratos.gid/scripts/Writing/WriteSubModelPart.tcl
index 90174cd51..5abb19851 100644
--- a/kratos.gid/scripts/Writing/WriteSubModelPart.tcl
+++ b/kratos.gid/scripts/Writing/WriteSubModelPart.tcl
@@ -253,11 +253,12 @@ proc write::getSubModelPartId {cid group} {
         set name [write::GetWriteGroupName $group]
         set good_name [write::transformGroupName $name]
         return $good_name
-    }
-    set find [list $cid ${group}]
-    if {[dict exists $submodelparts $find]} {
-        return [dict get $submodelparts [list $cid ${group}]]
-    } {
-        return 0
+    } else {
+        set find [list $cid ${group}]
+        if {[dict exists $submodelparts $find]} {
+            return [dict get $submodelparts [list $cid ${group}]]
+        } {
+            return 0
+        }
     }
 }
\ No newline at end of file