Changeset 1035 for trunk/plugins/en/output_REPEAT.tcl

Timestamp:

09/11/09 15:32:09 (3 years ago)

Author:

james

Message:

oops, left debug code in

File:

• trunk/plugins/en/output_REPEAT.tcl (modified) (2 diffs)

trunk/plugins/en/output_REPEAT.tcl

@@ -17 +17 @@
         if {[regexp -nocase "%REPEAT\{(.+?)\}" $line matches BOOM]} {
                 set replacement [bMotionMakeRepeat $BOOM]
-                putlog "replacement is $replacement"
                 set location [string first $matches $line]
                 if {$location == -1} {
@@ -23 +22 @@
                         return ""
                 }
-                putlog "location is $location"
-                putlog "matches is $matches"
                 set line [string replace $line $location [expr $location + [string length $matches] - 1] $replacement]
-                putlog "line is now $line"
         }
         return $line