hotfix intervals

jginternational · jginternational · commit 8ca49fbef13c · 2021-09-24T13:29:47.000+02:00
diff --git a/kratos.gid/apps/Fluid/xml/XmlController.tcl b/kratos.gid/apps/Fluid/xml/XmlController.tcl
@@ -91,10 +91,8 @@ proc ::Fluid::xml::CreateNewInlet { base_group_name {interval_data {new true nam
             W "Warning - Couldn't find property Inlet $prop"
         }
     }
-    
 }
 
-
 proc ::Fluid::xml::ClearInlets { delete_groups {fluid_conditions_UN FLBC} {inlet_condition_name_base AutomaticInlet} } {
     
     set nd $::Model::SpatialDimension
diff --git a/kratos.gid/scripts/Controllers/TreeInjections.tcl b/kratos.gid/scripts/Controllers/TreeInjections.tcl
@@ -253,7 +253,7 @@ proc spdAux::_injectCondsToTree {basenode cond_list {cond_type "normal"} args }
             append node [GetParameterValueString $in $forcedParams $cnd]
         }
         set CondUsesIntervals [$cnd getAttribute "Interval"]
-        if {$app_uses_intervals && $CondUsesIntervals ne "False"} {
+        if {$app_uses_intervals && ![write::isBooleanFalse $CondUsesIntervals]} {
             set state normal
             if {$initial_conds_flag} {
                 set CondUsesIntervals Initial

Original file line number	Diff line number	Diff line change
`@@ -91,10 +91,8 @@ proc ::Fluid::xml::CreateNewInlet { base_group_name {interval_data {new true nam`
`91`	`91`	`W "Warning - Couldn't find property Inlet $prop"`
`92`	`92`	`}`
`93`	`93`	`}`
`94`		`-`
`95`	`94`	`}`
`96`	`95`
`97`		`-`
`98`	`96`	`proc ::Fluid::xml::ClearInlets { delete_groups {fluid_conditions_UN FLBC} {inlet_condition_name_base AutomaticInlet} } {`
`99`	`97`
`100`	`98`	`set nd $::Model::SpatialDimension`
Original file line number	Diff line number	Diff line change
`@@ -253,7 +253,7 @@ proc spdAux::_injectCondsToTree {basenode cond_list {cond_type "normal"} args }`
`253`	`253`	`append node [GetParameterValueString $in $forcedParams $cnd]`
`254`	`254`	`}`
`255`	`255`	`set CondUsesIntervals [$cnd getAttribute "Interval"]`
`256`		`- if {$app_uses_intervals && $CondUsesIntervals ne "False"} {`
	`256`	`+ if {$app_uses_intervals && ![write::isBooleanFalse $CondUsesIntervals]} {`
`257`	`257`	`set state normal`
`258`	`258`	`if {$initial_conds_flag} {`
`259`	`259`	`set CondUsesIntervals Initial`