postprocess file argument

jginternational · jginternational · commit 6bc78cc28ab6 · 2022-02-23T15:43:46.000+01:00
diff --git a/kratos.gid/kratos.tcl b/kratos.gid/kratos.tcl
@@ -483,7 +483,7 @@ proc Kratos::BeforeInitGIDPostProcess {} {
         if {$launch_mode eq "Docker"} {
             set list_file [file join [GidUtils::GetDirectoryModel] model.post.lst]
             if {[file exists $list_file]} {
-                file copy -force $list_file [GidUtils::GetFilenameInsideProject [GidUtils::GetDirectoryModel] .post.lst]
+                file copy -force $list_file [GidUtils::GetFilenameInsideProject [file rootname [GidUtils::GetDirectoryModel]] .post.lst]
             }
         }
     }

Original file line number	Diff line number	Diff line change
`@@ -483,7 +483,7 @@ proc Kratos::BeforeInitGIDPostProcess {} {`
`483`	`483`	`if {$launch_mode eq "Docker"} {`
`484`	`484`	`set list_file [file join [GidUtils::GetDirectoryModel] model.post.lst]`
`485`	`485`	`if {[file exists $list_file]} {`
`486`		`- file copy -force $list_file [GidUtils::GetFilenameInsideProject [GidUtils::GetDirectoryModel] .post.lst]`
	`486`	`+ file copy -force $list_file [GidUtils::GetFilenameInsideProject [file rootname [GidUtils::GetDirectoryModel]] .post.lst]`
`487`	`487`	`}`
`488`	`488`	`}`
`489`	`489`	`}`