From: cas <cas@opencascade.com>
Date: Mon, 23 Jul 2001 18:21:58 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=b815bb2ceb4f81a6745c8f3cf7365778e8b97ccd;p=occt-wok.git

No comments
---

diff --git a/src/CDLFront/CDLFront_Replace.tcl b/src/CDLFront/CDLFront_Replace.tcl
index 4f81267..e86644c 100755
--- a/src/CDLFront/CDLFront_Replace.tcl
+++ b/src/CDLFront/CDLFront_Replace.tcl
@@ -47,20 +47,11 @@ proc CDLFront_Replace:Execute { unit args } {
 msgprint -i -c "$source "
 	regsub -all "/" " $source $vistarget" $replstr  TheArgs
 
-        if { [file exist $vistarget] } {
-	  set A [catch {eval "wokcmp $TheArgs"} result ]
-        } else {
-          set result 0 }
-	
-	if { ! $result } {
-	    msgprint -i -c "CDLFront_Replace::Execute" "Copy $source to $vistarget"
-	    if { [file exist $vistarget] && [wokparam -e %Station ] != "wnt" } {
+	msgprint -i -c "CDLFront_Replace::Execute" "Copy $source to $vistarget"
+	if { [file exist $vistarget] && [wokparam -e %Station ] != "wnt" } {
 		eval exec "chmod u+w $vistarget"
-	    }
-	    eval exec "$copycmd $TheArgs"
-	} else {
-	    msgprint -i -c "CDLFront_Replace::Execute" "No change in $source"
 	}
+	eval exec "$copycmd $TheArgs"
 
     return 0;
 }