Everybody uses now Line instead of Linear

jginternational · jginternational · commit 33edae2dded2 · 2022-08-26T22:44:00.000+02:00
diff --git a/kratos.gid/scripts/Writing/Writing.tcl b/kratos.gid/scripts/Writing/Writing.tcl
@@ -310,9 +310,10 @@ proc write::getEtype {ov group} {
     if {$ov eq "line"} {
         if {$b} {error "Multiple element types in $group over $ov"}
         switch $isquadratic {
-            0 { set ret [list "Linear" 2] }
-            default { set ret [list "Linear" 3] }
+            0 { set ret [list "Line" 2] }
+            default { set ret [list "Line" 3] }
         }
+        set b 1
     }
 
     if {$ov eq "surface"} {

Original file line number	Diff line number	Diff line change
`@@ -310,9 +310,10 @@ proc write::getEtype {ov group} {`
`310`	`310`	`if {$ov eq "line"} {`
`311`	`311`	`if {$b} {error "Multiple element types in $group over $ov"}`
`312`	`312`	`switch $isquadratic {`
`313`		`- 0 { set ret [list "Linear" 2] }`
`314`		`- default { set ret [list "Linear" 3] }`
	`313`	`+ 0 { set ret [list "Line" 2] }`
	`314`	`+ default { set ret [list "Line" 3] }`
`315`	`315`	`}`
	`316`	`+ set b 1`
`316`	`317`	`}`
`317`	`318`
`318`	`319`	`if {$ov eq "surface"} {`