From 365e7751721d476f9348f3c11d68f7be03a5c432 Mon Sep 17 00:00:00 2001 From: cas Date: Wed, 10 Nov 1999 18:01:32 +0000 Subject: [PATCH] No comments --- src/WOKTools/WOKTools_Replace.tcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/WOKTools/WOKTools_Replace.tcl b/src/WOKTools/WOKTools_Replace.tcl index ba8e21a..2fffb98 100755 --- a/src/WOKTools/WOKTools_Replace.tcl +++ b/src/WOKTools/WOKTools_Replace.tcl @@ -29,7 +29,7 @@ proc WOKTools_Replace:Execute { unit args } { set tcl_interactive 1 package require Wokutils - msgprint -i -c "WOKTools_Replace:Execute" "Copying of WOKTools includes" + msgprint -i -c "WOKTools_Replace::Execute" "Copying of WOKTools includes" if { [wokparam -e %Station $unit] != "wnt" } { set copycmd "cp -p " @@ -54,16 +54,16 @@ proc WOKTools_Replace:Execute { unit args } { if { [wokparam -e %Station $unit] == "wnt" && $result != "" } { set result 0 - } + } else { set result 1 } if { ! $result } { - msgprint -i -c "WOKTools_Replace:Execute" "Copy $source to $target" + msgprint -i -c "WOKTools_Replace::Execute" "Copy $source to $target" if { [wokparam -e %Station $unit] != "wnt" } { eval exec "chmod u+w $target" } eval exec "$copycmd $TheArgs" } else { - msgprint -i -c "WOKTools_Replace:Execute" "No change in $source" + msgprint -i -c "WOKTools_Replace::Execute" "No change in $source" } } return 0; -- 2.39.5