Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 16 Jul 2007 00:47:25 -0000 1.51
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 25 Sep 2007 15:22:38 -0000 1.52
@@ -1231,10 +1231,10 @@
set match_p 1
}
[0-9] {
- regexp -indices -start [expr {$i+2}] {[0-9]*} $html dec_idx
- set dec [string range $html [lindex $dec_idx 0] [lindex $dec_idx 1]]
+ regexp -indices -start [expr $i+2] {[0-9]*} $html dec_idx
+ set dec [string range $html [lindex $dec_idx 0] [lindex $dec_idx 1]]
# $dec might contain leading 0s. Since format evaluates $dec as expr
- # leading 0s causing octal interpretation, causing errors on e.g. &
+ # leading 0s cause octal interpretation and therefore errors on e.g. &
set dec [string trimleft $dec 0]
if {$dec eq ""} {set dec 0}
set html [string replace $html $i [lindex $dec_idx 1] \