No comments

diff --git a/src/WOKUtils/WOKUtils_Replace.tcl b/src/WOKUtils/WOKUtils_Replace.tcl
index ca960674b18d814cb580278723c25af3d2783da4..61ee6f0c8e5ff123b2ac843a1579674bf4cad6d7 100755 (executable)
--- a/src/WOKUtils/WOKUtils_Replace.tcl
+++ b/src/WOKUtils/WOKUtils_Replace.tcl
@@ -1,15 +1,15 @@
 
 
-proc WOKUtils_Replace:AdmFileType {} {
+proc WOKUtils_Replace::AdmFileType {} {
     return "dbadmfile";
 }
 
-proc WOKUtils_Replace:OutputDirTypeName {} {
+proc WOKUtils_Replace::OutputDirTypeName {} {
     return "dbtmpfile";
 }
 
 
-proc WOKUtils_Replace:HandleInputFile { ID } { 
+proc WOKUtils_Replace::HandleInputFile { ID } { 
 
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
 
@@ -34,7 +34,7 @@ proc WOKUtils_Replace:HandleInputFile { ID } {
     }
 }
 
-proc WOKUtils_Replace:Execute { unit args } {
+proc WOKUtils_Replace::Execute { unit args } {
     
     global tcl_interactive
 
@@ -62,9 +62,9 @@ proc WOKUtils_Replace:Execute { unit args } {
 
        regsub -all "/" " $source $target" $replstr  TheArgs
 
-       set A [catch {eval "wokcmp $TheArgs"} result ]
+       set A [catch {eval exec "cmp $TheArgs"} result ]
 
-       if { [wokparam -e %Station $unit] == "wnt" && $result != "" } {
+       if { $result != "" } {
            set result 0
        } else { set result 1 }