Index: openacs-4/packages/ajaxhelper/www/doc/acs-integration-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/doc/acs-integration-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ajaxhelper/www/doc/acs-integration-procs.tcl 27 Oct 2014 16:40:53 -0000 1.3
+++ openacs-4/packages/ajaxhelper/www/doc/acs-integration-procs.tcl 7 Aug 2017 23:48:03 -0000 1.4
@@ -93,7 +93,7 @@
ad_proc adp_parse_ad_conn_file {} {
- handle a request for an adp and/or tcl file in the template system.
+ handle a request for an adp and/or Tcl file in the template system.
} {
namespace eval template variable parse_level ""
#ns_log debug "adp_parse_ad_conn_file => file '[file rootname [ad_conn file]]'"
@@ -110,15 +110,15 @@
if { [lang::util::translator_mode_p] } {
# Attempt to move all message keys outside of tags
- while { [regsub -all {(<[^>]*)(\x002\(\x001[^\x001]*\x001\)\x002)([^>]*>)} $parsed_template {\2\1\3} parsed_template] } {}
+ while { [regsub -all {(<[^>]*)(\x02\(\x01[^\x01]*\x01\)\x02)([^>]*>)} $parsed_template {\2\1\3} parsed_template] } {}
# Attempt to move all message keys outside of statements
- regsub -all -nocase {(]*>[^<]*)(\x002\(\x001[^\x001]*\x001\)\x002)([^<]*]*>)} $parsed_template {\2\1\3} parsed_template
+ regsub -all -nocase {(]*>[^<]*)(\x02\(\x01[^\x01]*\x01\)\x02)([^<]*]*>)} $parsed_template {\2\1\3} parsed_template
- while { [regsub -all -nocase {(]*>[^<]*)(\x002\(\x001[^\x001]*\x001\)\x002)} $parsed_template {\2\1} parsed_template] } {}
+ while { [regsub -all -nocase {(]*>[^<]*)(\x02\(\x01[^\x01]*\x01\)\x02)} $parsed_template {\2\1} parsed_template] } {}
set start 0
- while { [regexp -nocase -indices -start $start {(...
- while { [regexp -indices {\x002\(\x001([^\x001]*)\x001\)\x002} $parsed_template indices key] } {
+ while { [regexp -indices {\x02\(\x01([^\x01]*)\x01\)\x02} $parsed_template indices key] } {
set before [string range $parsed_template 0 [lindex $indices 0]-1]
set after [string range $parsed_template [lindex $indices 1]+1 end]