Index: openacs-4/packages/acs-lang/acs-lang.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/acs-lang.info,v
diff -u -r1.62.2.12 -r1.62.2.13
--- openacs-4/packages/acs-lang/acs-lang.info 27 Feb 2017 07:42:02 -0000 1.62.2.12
+++ openacs-4/packages/acs-lang/acs-lang.info 19 May 2017 16:25:00 -0000 1.62.2.13
@@ -9,7 +9,7 @@
f
t
-
+
Peter Marklund
OpenACS Internationalization Support.
2017-02-27
@@ -20,7 +20,7 @@
GPL
3
-
+
Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.48.2.8 -r1.48.2.9
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl 22 Apr 2017 18:21:46 -0000 1.48.2.8
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl 19 May 2017 16:25:00 -0000 1.48.2.9
@@ -71,10 +71,19 @@
is the message key, and the third sub match is the message text in en_US locale.
@author Peter marklund (peter@collaboraid.biz)
+ @see lang::util::message_key_regexp
} {
return {(<#\s*?([-a-zA-Z0-9_:\.]+)\s+(.+?)\s*?#>)}
}
+ad_proc lang::util::message_key_regexp {} {
+ Regular expression for recongnizing message keys in the form #package_name.key#.
+ @see lang::util::message_tag_regexp
+} {
+ return {\#([-a-zA-Z0-9_]+[.][-a-zA-Z0-9_]+)\#}
+}
+
+
ad_proc lang::util::get_temporary_tags_indices { adp_file_string } {
Given the contents of an adp file return the indices of the
start and end chars of embedded message keys on the syntax:
Index: openacs-4/packages/acs-subsite/acs-subsite.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/acs-subsite.info,v
diff -u -r1.117.2.32 -r1.117.2.33
--- openacs-4/packages/acs-subsite/acs-subsite.info 10 May 2017 12:52:07 -0000 1.117.2.32
+++ openacs-4/packages/acs-subsite/acs-subsite.info 19 May 2017 16:25:00 -0000 1.117.2.33
@@ -9,7 +9,7 @@
t
t
-
+
OpenACS
Subsite
2017-02-27
@@ -18,12 +18,12 @@
GPL
3
-
+
-
+
Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.39.2.15 -r1.39.2.16
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl 12 May 2017 16:17:44 -0000 1.39.2.15
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl 19 May 2017 16:25:00 -0000 1.39.2.16
@@ -129,7 +129,7 @@
# In case, a pretty_name was already provided in form of a message
# key, there is no need to convert this a second time.
- if {![regexp [lang::util::message_tag_regexp] $pretty_name]} {
+ if {![regexp [lang::util::message_key_regexp] $pretty_name]} {
set pretty_name [lang::util::convert_to_i18n -message_key "group_title_${group_id}" -text "$pretty_name"]
}