More fixes

Author: Miguel Angel

kratos.gid/apps/CDEM/write/writeProjectParameters.tcl

@@ -20,6 +20,7 @@ proc CDEM::write::getParametersDict { } {
 	}
 
     dict set project_parameters_dict "solver_settings" "strategy" $dem_strategy
+    dict set project_parameters_dict "ElementType" $ElementType
 
     dict set project_parameters_dict "DeltaOption"                          [write::getValue AdvOptions DeltaOption]
     dict set project_parameters_dict "SearchTolerance"                      [write::getValue AdvOptions TangencyToleranceValueAbsolute]

kratos.gid/apps/CDEM/xml/XmlController.tcl

@@ -26,10 +26,10 @@ proc CDEM::xml::CustomTree { args } {
     spdAux::SetValueOnTreeItem state hidden DEMTimeParameters StartTime
 
     set root [customlib::GetBaseRoot]
-    set result_node [$root selectNodes "[spdAux::getRoute DEMStratSection]/container\[@n = 'ParallelType'\]"]
-	if { $result_node ne "" } {$result_node delete}
-    set result_node [$root selectNodes "[spdAux::getRoute DEMStratSection]/container\[@n = 'DEMGravity'\]"]
-	if { $result_node ne "" } {$result_node delete}
+    #set result_node [$root selectNodes "[spdAux::getRoute DEMStratSection]/container\[@n = 'ParallelType'\]"]
+	#if { $result_node ne "" } {$result_node delete}
+    #set result_node [$root selectNodes "[spdAux::getRoute DEMStratSection]/container\[@n = 'DEMGravity'\]"]
+	#if { $result_node ne "" } {$result_node delete}
 
     gid_groups_conds::addF [spdAux::getRoute BondElem] value [list n TypeOfFailure pn "Type of failure" v No values {Yes,No} icon "black1" help "Displays different numbers for different types of failure. 2: tension. 4: shear or combination of stresses. 6: neighbour not found by search. 8: less bonds than minimum"]
     spdAux::SetValueOnTreeItem state {[getStateFromXPathValue {string(../value[@n='ContactMeshOption']/@v)} true]} BondElem TypeOfFailure