From 18fd521113adcf15ecce5c3ada5fe2cddca77522 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Mon, 23 Jul 2001 18:21:58 +0000
Subject: [PATCH] No comments

---
 src/WOKTclTools/WOKTclTools_Replace.tcl | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/src/WOKTclTools/WOKTclTools_Replace.tcl b/src/WOKTclTools/WOKTclTools_Replace.tcl
index 5fa65f7..17b23f0 100755
--- a/src/WOKTclTools/WOKTclTools_Replace.tcl
+++ b/src/WOKTclTools/WOKTclTools_Replace.tcl
@@ -49,20 +49,12 @@ proc WOKTclTools_Replace:Execute { unit args } {
 
 	regsub -all "/" " $source $target" $replstr  TheArgs
 
-        if { [file exist $target] } {
-	  set A [catch {eval "wokcmp $TheArgs"} result ]
-        } else {
-          set result 0 }
-	
-	if { ! $result } {
-	    msgprint -i -c "WOKTclTools_Replace::Execute" "Copy $source to $target"
-	    if { [file exist $target] && [wokparam -e %Station $unit] != "wnt" } {
+	 msgprint -i -c "WOKTclTools_Replace::Execute" "Copy $source to $target"
+	if { [file exist $target] && [wokparam -e %Station $unit] != "wnt" } {
 		eval exec "chmod u+w $target"
-	    }
-	    eval exec "$copycmd $TheArgs"
-	} else {
-	    msgprint -i -c "WOKTclTools_Replace::Execute" "No change in $source"
 	}
+	eval exec "$copycmd $TheArgs"
+
     }
     return 0;
 }
-- 
2.39.5