From a3a23ac42f23dd62891d629c89d152b66d81bf59 Mon Sep 17 00:00:00 2001 From: Javi Garate Date: Thu, 10 Feb 2022 14:04:57 +0100 Subject: [PATCH 1/2] hotfix results --- kratos.gid/apps/PfemFluid/write/writeProjectParameters.tcl | 1 + kratos.gid/apps/PfemFluid/xml/Results.spd | 7 ++++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/kratos.gid/apps/PfemFluid/write/writeProjectParameters.tcl b/kratos.gid/apps/PfemFluid/write/writeProjectParameters.tcl index 528f59b7a..6e35bc7a2 100644 --- a/kratos.gid/apps/PfemFluid/write/writeProjectParameters.tcl +++ b/kratos.gid/apps/PfemFluid/write/writeProjectParameters.tcl @@ -37,6 +37,7 @@ proc PfemFluid::write::getNewParametersDict { } { # dict set projectParametersDict output_configuration [write::GetDefaultOutputDict] set xpath [spdAux::getRoute Results] dict set projectParametersDict output_configuration [write::GetDefaultOutputGiDDict PfemFluid $xpath] + dict unset projectParametersDict output_configuration folder_name dict set projectParametersDict output_configuration result_file_configuration nodal_results [write::GetResultsByXPathList [spdAux::getRoute NodalResults]] dict set projectParametersDict output_configuration result_file_configuration gauss_point_results [write::GetResultsList ElementResults] diff --git a/kratos.gid/apps/PfemFluid/xml/Results.spd b/kratos.gid/apps/PfemFluid/xml/Results.spd index 45234d466..3a48c5569 100644 --- a/kratos.gid/apps/PfemFluid/xml/Results.spd +++ b/kratos.gid/apps/PfemFluid/xml/Results.spd @@ -12,15 +12,16 @@ - - + + - + + From d2ebd4a49f7e35e9493a1d8f1b5e99e4c6386bbb Mon Sep 17 00:00:00 2001 From: Javi Garate Date: Thu, 10 Feb 2022 14:25:38 +0100 Subject: [PATCH 2/2] hotfix boolean --- kratos.gid/scripts/Writing/WriteProjectParameters.tcl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/kratos.gid/scripts/Writing/WriteProjectParameters.tcl b/kratos.gid/scripts/Writing/WriteProjectParameters.tcl index ef995179f..ff35b7b32 100644 --- a/kratos.gid/scripts/Writing/WriteProjectParameters.tcl +++ b/kratos.gid/scripts/Writing/WriteProjectParameters.tcl @@ -26,6 +26,8 @@ proc write::tcl2json { value } { string { if {$value eq "null"} {return null} if {$value eq "dictnull"} {return {{}}} + if {[isBooleanFalse $value]} {return [expr "false"]} + if {[isBooleanTrue $value]} {return [expr "true"]} return [json::write string $value] } dict {