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.1 -r1.2 --- openacs-4/packages/acs-developer-support/www/search.tcl 4 Feb 2005 13:34:40 -0000 1.1 +++ openacs-4/packages/acs-developer-support/www/search.tcl 4 Feb 2005 15:26:12 -0000 1.2 @@ -26,8 +26,9 @@ 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]]]]..." - multirow append matches $page "...[string trim [string range $content [expr [lindex $offset 0] - 50] [expr [lindex $offset 1] + 50]]]..." $file_links $size + multirow append matches $page $highlight $file_links $size } set matched($page) 1 }