From 07ecfc2642d1a02489369bfe21919545a997a9f3 Mon Sep 17 00:00:00 2001 From: cas Date: Mon, 23 Jul 2001 18:21:58 +0000 Subject: [PATCH] No comments --- src/EDL/EDL_Replace.tcl | 21 ++++++--------------- 1 file changed, 6 insertions(+), 15 deletions(-) diff --git a/src/EDL/EDL_Replace.tcl b/src/EDL/EDL_Replace.tcl index 20529f8..5c080a1 100755 --- a/src/EDL/EDL_Replace.tcl +++ b/src/EDL/EDL_Replace.tcl @@ -44,23 +44,14 @@ proc EDL_Replace:Execute { unit args } { set source [woklocate -p EDL:source:$sourcename [wokinfo -N $unit]] set vistarget [woklocate -p EDL:privinclude:$name [wokinfo -N $unit]] # set target [wokinfo -p EDL:privinclude:$name [wokinfo -N $unit]] -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 "EDL_Replace::Execute" "Copy $source to $vistarget" - if { [file exist $vistarget] && [wokparam -e %Station ] != "wnt" } { + msgprint -i -c "$source " + regsub -all "/" " $source $vistarget" $replstr TheArgs + + msgprint -i -c "EDL_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 "EDL_Replace::Execute" "No change in $source" } + eval exec "$copycmd $TheArgs" return 0; } -- 2.39.5