From f394ecff8e047d13faf8a4e7bad8065cb0e51289 Mon Sep 17 00:00:00 2001
From: Michael Smith <xmldoc@users.sourceforge.net>
Date: Tue, 10 May 2005 15:49:32 +0000
Subject: [PATCH] Added template to uppercase strings (closes #1199123)

Given a string, this template does a language-aware conversion of
that string to all uppercase letters, based on the values of the
lowercase.alpha and uppercase.alpha gentext keys for the current
locale. It affects only those characters found in the values of
lowercase.alpha and uppercase.alpha. All other characters are left
unchanged.
---
 xsl/common/common.xsl | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/xsl/common/common.xsl b/xsl/common/common.xsl
index 98c43fad6..98aade23f 100644
--- a/xsl/common/common.xsl
+++ b/xsl/common/common.xsl
@@ -1767,5 +1767,46 @@ node location.</para>
   </xsl:if>
 </xsl:template>
 
+<!-- ===================================== -->
+
+<doc:template name="string.upper" xmlns="">
+<refpurpose>Converts a string to all uppercase letters.</refpurpose>
+
+<refdescription>
+<para>Given a string, this template does a language-aware conversion
+of that string to all uppercase letters, based on the values of the
+<code>lowercase.alpha</code> and <code>uppercase.alpha</code> gentext
+keys for the current locale. It affects only those characters found in
+the values of <code>lowercase.alpha</code> and
+<code>uppercase.alpha</code>. All other characters are left
+unchanged.</para>
+</refdescription>
+
+<refparameter>
+<variablelist>
+<varlistentry><term>string</term>
+<listitem>
+<para>The string to convert to uppercase.</para>
+</listitem>
+</varlistentry>
+</variablelist>
+</refparameter>
+</doc:template>
+
+<xsl:template name="string.upper">
+  <xsl:param name="string" select="''"/>
+  <xsl:variable name="lowercase.alpha">
+    <xsl:call-template name="gentext">
+      <xsl:with-param name="key" select="'lowercase.alpha'"/>
+    </xsl:call-template>
+  </xsl:variable>
+  <xsl:variable name="uppercase.alpha">
+    <xsl:call-template name="gentext">
+      <xsl:with-param name="key" select="'uppercase.alpha'"/>
+    </xsl:call-template>
+  </xsl:variable>
+  <xsl:value-of select="translate($string,$lowercase.alpha,$uppercase.alpha)"/>
+</xsl:template>
+
 </xsl:stylesheet>
 
-- 
2.40.0