Index: openacs-4/packages/acs-developer-support/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/search.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/acs-developer-support/www/search.tcl 5 Dec 2010 13:45:21 -0000 1.3
+++ openacs-4/packages/acs-developer-support/www/search.tcl 30 Sep 2013 11:09:27 -0000 1.3.2.1
@@ -28,7 +28,7 @@
append file_links " c"
append file_links " o"
set size [string length $content]
- set highlight "...[ad_quotehtml [string trimleft [string range $content [expr [lindex $offset 0] - 50] [expr [lindex $offset 0] - 1]]]][ad_quotehtml [string range $content [lindex $offset 0] [lindex $offset 1]]][ad_quotehtml [string trimright [string range $content [expr [lindex $offset 1] + 1] [expr [lindex $offset 1] + 50]]]]..."
+ set highlight "...[ad_quotehtml [string trimleft [string range $content [expr {[lindex $offset 0] - 50}] [expr {[lindex $offset 0] - 1}]]]][ad_quotehtml [string range $content [lindex $offset 0] [lindex $offset 1]]][ad_quotehtml [string trimright [string range $content [expr {[lindex $offset 1] + 1}] [expr {[lindex $offset 1] + 50}]]]]..."
multirow append matches $page $highlight $file_links $size
}