From 6fa091fe25445b9f27889ce2ad24a5948dfb8410 Mon Sep 17 00:00:00 2001 From: cas Date: Wed, 10 Nov 1999 18:01:32 +0000 Subject: [PATCH] No comments --- src/WOKUtils/WOKUtils_Replace.tcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/WOKUtils/WOKUtils_Replace.tcl b/src/WOKUtils/WOKUtils_Replace.tcl index dba617b..ca96067 100755 --- a/src/WOKUtils/WOKUtils_Replace.tcl +++ b/src/WOKUtils/WOKUtils_Replace.tcl @@ -41,7 +41,7 @@ proc WOKUtils_Replace:Execute { unit args } { set tcl_interactive 1 package require Wokutils - msgprint -i -c "WOKUtils_Replace:Execute" "Copying of WOKUtils includes" + msgprint -i -c "WOKUtils_Replace::Execute" "Copying of WOKUtils includes" if { [wokparam -e %Station $unit] != "wnt" } { set copycmd "cp -p " @@ -66,16 +66,16 @@ proc WOKUtils_Replace:Execute { unit args } { if { [wokparam -e %Station $unit] == "wnt" && $result != "" } { set result 0 - } + } else { set result 1 } if { ! $result } { - msgprint -i -c "WOKUtils_Replace:Execute" "Copy $source to $target" + msgprint -i -c "WOKUtils_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 "WOKUtils_Replace:Execute" "No change in $source" + msgprint -i -c "WOKUtils_Replace::Execute" "No change in $source" } } return 0; -- 2.39.5