From d34ff0c00863324f36c9cddf58fd403a8e5b9654 Mon Sep 17 00:00:00 2001
From: jensp <jensp@8810af33-2d31-482b-a856-94f89814c4df>
Date: Fri, 30 Jan 2015 13:17:42 +0000
Subject: [PATCH] Made log messages from Foundry configurable.

git-svn-id: https://svn.libreccm.org/ccm/trunk@3109 8810af33-2d31-482b-a856-94f89814c4df
---
 .../web/themes/foundry-base/conf/global.xml   |   2 +
 ccm-core/web/themes/foundry/conf/global.xml   |   2 +
 .../foundry/foundry/lib/bebop/table.xsl       |  33 +-
 .../foundry/foundry/lib/template-parser.xsl   |  32 +-
 .../lib/template-tags/content-items.xsl       |  30 +-
 .../lib/template-tags/foundry-doc-tags.xsl    |   4 -
 .../foundry/lib/template-tags/navigation.xsl  |  56 +---
 .../web/themes/foundry/foundry/lib/utils.xsl  | 312 +++++++++---------
 ccm-core/web/themes/foundry/foundry/main.xsl  |  33 +-
 9 files changed, 249 insertions(+), 255 deletions(-)

diff --git a/ccm-core/web/themes/foundry-base/conf/global.xml b/ccm-core/web/themes/foundry-base/conf/global.xml
index ec02b4c57..25ecdefd5 100644
--- a/ccm-core/web/themes/foundry-base/conf/global.xml
+++ b/ccm-core/web/themes/foundry-base/conf/global.xml
@@ -13,6 +13,8 @@
     -->
     <!--<setting id="parent-theme">foundry</setting>-->
     
+    <setting id="log-level">warn</setting>
+    
     <setting id="site-logo">images/cms-logo.png</setting>
     
 </foundry:configuration>
\ No newline at end of file
diff --git a/ccm-core/web/themes/foundry/conf/global.xml b/ccm-core/web/themes/foundry/conf/global.xml
index 0e37be814..a60ecc9e5 100644
--- a/ccm-core/web/themes/foundry/conf/global.xml
+++ b/ccm-core/web/themes/foundry/conf/global.xml
@@ -13,6 +13,8 @@
     -->
     <!--<setting id="parent-theme">foundry</setting>-->
     
+    <setting id="log-level">warn</setting>
+    
     <setting id="site-logo">images/scientificcms_logo.png</setting>
     
 </foundry:configuration>
\ No newline at end of file
diff --git a/ccm-core/web/themes/foundry/foundry/lib/bebop/table.xsl b/ccm-core/web/themes/foundry/foundry/lib/bebop/table.xsl
index 01451603d..fb7eb12a1 100644
--- a/ccm-core/web/themes/foundry/foundry/lib/bebop/table.xsl
+++ b/ccm-core/web/themes/foundry/foundry/lib/bebop/table.xsl
@@ -26,14 +26,13 @@
   Processing bebop tables
 -->
 
-<xsl:stylesheet
-    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-    xmlns:bebop="http://www.arsdigita.com/bebop/1.0"
-    xmlns:cms="http://www.arsdigita.com/cms/1.0" 
-    xmlns:foundry="http://foundry.libreccm.org" 
-    xmlns:nav="http://ccm.redhat.com/navigation"
-    exclude-result-prefixes="xsl bebop cms foundry nav" 
-    version="1.0">
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                xmlns:bebop="http://www.arsdigita.com/bebop/1.0"
+                xmlns:cms="http://www.arsdigita.com/cms/1.0" 
+                xmlns:foundry="http://foundry.libreccm.org" 
+                xmlns:nav="http://ccm.redhat.com/navigation"
+                exclude-result-prefixes="xsl bebop cms foundry nav" 
+                version="1.0">
   
     <!-- DE Erzeuge Tabelle. Da die einzelnen Bestandteile (thead, tbody und tfoot) nicht 
     in der von HTML vorgesehenen Reihenfolge im XML stehen, müssen diese hier in
@@ -151,10 +150,8 @@
             <xsl:with-param name="alt" select="'[ ]'"/>
             <xsl:with-param name="title" select="'[ ]'"/>
             <xsl:with-param name="src"
-                            select="foundry:parse-link(foundry:get-setting('bebop',
-                                                                           'table/setImage/checkbox-unchecked',
-                                                                           '/images/bebop/checkBox-unchecked.gif'),
-                                                       $theme-prefix)"/>
+                            select="foundry:gen-path('/images/bebop/checkBox-unchecked.gif',
+                                                       'internal')"/>
         </xsl:call-template>
     </xsl:template>
   
@@ -163,10 +160,8 @@
             <xsl:with-param name="alt" select="'{X}'"/>
             <xsl:with-param name="title" select="'{X}'"/>
             <xsl:with-param name="src" 
-                            select="foundry:parse-link(foundry:get-setting('bebop',
-                                                                           'table/setImage/checkbox-grey-checked',
-                                                                           '/images/bebop/checkbox-grey-checked.gif'),
-                                                       $theme-prefix)"/>
+                            select="foundry:gen-path('/images/bebop/checkbox-grey-checked.gif',
+                                                       'internal')"/>
         </xsl:apply-templates>
     </xsl:template>
   
@@ -175,10 +170,8 @@
             <xsl:with-param name="alt" select="'{ }'"/>
             <xsl:with-param name="title" select="'{ }'"/>
             <xsl:with-param name="src"
-                            select="foundry:parse-link(foundry:get-setting('bebop',
-                                                                           'table/setImage/checkbox-grey-unchecked',
-                                                                           '/images/bebop/checkbox-grey-unchecked.gif'),
-                                                       $theme-prefix)"/>
+                            select="foundry:gen-path('/images/bebop/checkbox-grey-unchecked.gif',
+                                                       'internal')"/>
         </xsl:apply-templates>
     </xsl:template>
   
diff --git a/ccm-core/web/themes/foundry/foundry/lib/template-parser.xsl b/ccm-core/web/themes/foundry/foundry/lib/template-parser.xsl
index c72353fbf..c4f4e762b 100644
--- a/ccm-core/web/themes/foundry/foundry/lib/template-parser.xsl
+++ b/ccm-core/web/themes/foundry/foundry/lib/template-parser.xsl
@@ -349,8 +349,8 @@
                     </xsl:attribute>
                     <img>
                         <xsl:attribute name="src">
-                            <xsl:value-of select="concat($context-prefix, 
-                                                         '/assets/gray-triangle-up.gif')"/>
+                            <xsl:value-of select="foundry:gen-path('images/gray-triangle-up.gif',
+                                                                   'internal')"/>
                         </xsl:attribute>
                         <xsl:attribute name="title">
                             <xsl:value-of select="'moveUp'"/>
@@ -370,8 +370,8 @@
                     </xsl:attribute>
                     <img>
                         <xsl:attribute name="src">
-                            <xsl:value-of select="concat($context-prefix, 
-                                                         '/assets/gray-triangle-down.gif')"/>
+                            <xsl:value-of select="foundry:gen-path('images/gray-triangle-down.gif',
+                                                                   'internal')"/>
                         </xsl:attribute>
                         <xsl:attribute name="title">
                             <xsl:value-of select="'moveDown'"/>
@@ -487,16 +487,22 @@
     <xsl:template name="foundry:process-template">
         <xsl:param name="template-file" as="xs:string"/>
         <xsl:param name="origin" as="xs:string" select="''"/>
+
+        <xsl:call-template name="foundry:message-debug">
+            <xsl:with-param name="message"
+                            select="concat('process-template called with template-file = ', 
+                                           $template-file, 
+                                           ' and origin = ', 
+                                           $origin)"/>
+        </xsl:call-template>
         
-        <xsl:message>
-            <xsl:value-of select="concat('process-template called with template-file = ', $template-file, ' and origin = ', $origin)"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="concat('using template file: ', foundry:gen-path(
-                                              concat('templates/', 
-                                                     normalize-space($template-file)),
-                                                     $origin))"/>
-        </xsl:message>
+        <xsl:call-template name="foundry:message-debug">
+            <xsl:with-param name="message"
+                            select="concat('using template file: ', 
+                                           foundry:gen-path(concat('templates/', 
+                                                                   normalize-space($template-file)),
+                                                                   $origin))" />
+        </xsl:call-template>
         
         <xsl:apply-templates select="document(foundry:gen-path(
                                               concat('templates/', 
diff --git a/ccm-core/web/themes/foundry/foundry/lib/template-tags/content-items.xsl b/ccm-core/web/themes/foundry/foundry/lib/template-tags/content-items.xsl
index 4082684da..fcd44ca66 100644
--- a/ccm-core/web/themes/foundry/foundry/lib/template-tags/content-items.xsl
+++ b/ccm-core/web/themes/foundry/foundry/lib/template-tags/content-items.xsl
@@ -167,10 +167,11 @@
             
         <xsl:choose>
             <xsl:when test="$template-map/content-item[@oid = $oid]">
-                
-                <xsl:message>
-                    <xsl:value-of select="foundry:message-info('Found template for this special item.')"/>
-                </xsl:message>
+
+                <xsl:call-template name="foundry:message-info">
+                    <xsl:with-param name="message"
+                                    select="'Found template for this special item.'"/>
+                </xsl:call-template>
                     
                 <xsl:call-template name="foundry:process-contentitem-template">
                     <xsl:with-param name="template-file" 
@@ -272,9 +273,10 @@
             </xsl:when>
                 
             <xsl:when test="$template-map/default">
-                <xsl:message>
-                    <xsl:value-of select="foundry:message-info('No template for item found. Using default')"/>
-                </xsl:message>
+                <xsl:call-template name="foundry:message-warn">
+                    <xsl:with-param name="message"
+                                    select="'No layout template for item found. Using default'"/>
+                </xsl:call-template>
                     
                 <xsl:call-template name="foundry:process-contentitem-template">
                     <xsl:with-param name="template-file" 
@@ -285,9 +287,10 @@
             </xsl:when>
                 
             <xsl:otherwise>
-                <xsl:message>
-                    <xsl:value-of select="foundry:message-info('No template for item found and not default configured. Using internal default')"/>
-                </xsl:message>
+                <xsl:call-template name="foundry:message-warn">
+                    <xsl:with-param name="message"
+                                    select="'No template for item found and not default configured. Using internal default'"/>
+                </xsl:call-template>
                     
                 <xsl:call-template name="foundry:process-contentitem-template">
                     <xsl:with-param name="template-file" 
@@ -340,9 +343,10 @@
                 </xsl:call-template>
             </xsl:when>
             <xsl:otherwise>
-                <xsl:message>
-                    <xsl:value-of select="foundry:message-info('No template for item found and not default configured. Using internal default')"/>
-                </xsl:message>
+                <xsl:call-template name="foundry:message-warn">
+                    <xsl:with-param name="message"
+                                    select="'No template for item found and not default configured. Using internal default'"/>
+                </xsl:call-template>
                     
                 <xsl:call-template name="foundry:process-contentitem-template">
                     <xsl:with-param name="template-file" 
diff --git a/ccm-core/web/themes/foundry/foundry/lib/template-tags/foundry-doc-tags.xsl b/ccm-core/web/themes/foundry/foundry/lib/template-tags/foundry-doc-tags.xsl
index 73a70328c..1144ad9de 100644
--- a/ccm-core/web/themes/foundry/foundry/lib/template-tags/foundry-doc-tags.xsl
+++ b/ccm-core/web/themes/foundry/foundry/lib/template-tags/foundry-doc-tags.xsl
@@ -186,10 +186,6 @@
     <xsl:template match="xsl:import" mode="doc">
         <xsl:param name="section-generate" tunnel="yes"/>
         
-        <!--<xsl:message>
-            <xsl:value-of select="concat('parsing ', ./@href)"/>
-        </xsl:message>-->
-       
         <xsl:choose>
             <xsl:when test="count(document(./@href)//foundry:doc[@section=$section-generate]) &gt; 0">
                 <!-- Only generate a section for the file if there is document. -->
diff --git a/ccm-core/web/themes/foundry/foundry/lib/template-tags/navigation.xsl b/ccm-core/web/themes/foundry/foundry/lib/template-tags/navigation.xsl
index 2501ee783..d2d406d1e 100644
--- a/ccm-core/web/themes/foundry/foundry/lib/template-tags/navigation.xsl
+++ b/ccm-core/web/themes/foundry/foundry/lib/template-tags/navigation.xsl
@@ -294,51 +294,17 @@
         <xsl:param name="current-level-tree" 
                    select="$data-tree//nav:categoryMenu[@id=$navigation-id]/nav:category/nav:category"
                    tunnel="yes"/>
-        
-        <xsl:message>
-            <xsl:value-of select="'navigation-links template called with these parameters:'"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="concat('    navigation-id = ', $navigation-id)"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="concat('    with-colorset = ', $with-colorset)"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="concat('    min-level = ', $min-level)"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="concat('    max-level = ', $max-level)"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="concat('    current-level = ', $current-level)"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="concat('    count(category)', count($current-level-tree))"/>
-        </xsl:message>
-        
-        <!--<dl>
-            <dt>navigation-id</dt>
-            <dd>
-                <xsl:value-of select="$navigation-id"/>
-            </dd>
-            <dt>with-colorset</dt>
-            <dd>
-                <xsl:value-of select="$with-colorset"/>
-            </dd>
-            <dt>min-level</dt>            
-            <dd>
-                <xsl:value-of select="$min-level"/>
-            </dd>
-            <dt>max-level</dt>
-            <dd>
-                <xsl:value-of select="$max-level"/>
-            </dd>
-            <dt>current-level</dt>
-            <dd>
-                <xsl:value-of select="$current-level"/>
-            </dd>
-        </dl>-->
+
+        <xsl:call-template name="foundry:message-debug">
+            <xsl:with-param name="message"
+                            select="concat('navigation-links template called with these parameters:&#x0A;',
+                                           '      navigation-id = ', $navigation-id,              '&#x0a;',
+                                           '      with-colorset = ', $with-colorset,              '&#x0a;',
+                                           '          min-level = ', $min-level,                  '&#x0a;',
+                                           '          max-level = ', $max-level,     '             &#x0a;',
+                                           '      current-level = ', $current-level,              '&#x0a;',
+                                           '    count(category) = ', count($current-level-tree),  '&#x0a;')"/>
+        </xsl:call-template>
         
         <xsl:choose>
             <xsl:when test="($current-level &gt;= $min-level) and ($current-level &lt;= $max-level)">
diff --git a/ccm-core/web/themes/foundry/foundry/lib/utils.xsl b/ccm-core/web/themes/foundry/foundry/lib/utils.xsl
index eeaf87178..74562afc7 100644
--- a/ccm-core/web/themes/foundry/foundry/lib/utils.xsl
+++ b/ccm-core/web/themes/foundry/foundry/lib/utils.xsl
@@ -39,7 +39,7 @@
         <foundry:doc-file-title>Utility functions</foundry:doc-file-title>
         <foundry:doc-file-desc>
             <p>
-                Utility functions.
+                This file provides several utility functions and templates.
             </p>
         </foundry:doc-file-desc>
     </foundry:doc-file>
@@ -180,84 +180,85 @@
         <xsl:param name="path" as="xs:string"/>
         
         <xsl:sequence select="foundry:gen-path($path, '')"/>
-     </xsl:function>
+    </xsl:function>
      
-     <foundry:doc section="devel" type="function">
-         <foundry:doc-desc>
-             <p>
-                 Variant of <code>gen-path</code> with an additional <code>origin</code> 
-                 parameter. This parameter can have three values:
-                 If set to <code>true</code> the file is loaded from the 
-                 <code>foundry</code> directory.
-             </p>
-             <dl>
-                 <dt>empty string (<code>''</code>)</dt>
-                 <dd>
-                     The path points to a resource in the theme directory. The return value is the
-                     concatenation of the theme-prefix, a slash and the path provided as first 
-                     parameter. In XPath Syntax: <code>concat($theme-prefix, '/', $path</code>. 
-                 </dd>
-                 <dt>master</dt>
-                 <dd>
-                     If the theme mode (which is set in <code>conf/global.xml</code>) is set to 
-                     <code>master</code> the result is the same as for the empty string. If the
-                     the theme mode is set to <code>child</code> the generated path points to
-                     the parent/master theme. More exactly the result is the concatenation of the
-                     context-prefix environment variable, the string <code>/themes/</code>, the
-                     name of the master theme (set in <code>conf/global.xml</code>, 
-                     usally <code>foundry</code>), a slash the the path provided as first parameter.
-                     Or in XPath syntax: 
-                     <code>concat($content-prefix, '/themes/', $master-theme, '/', $path.)</code>.
-                 </dd>
-                 <dt>internal</dt>
-                 <dd>
-                     The path points to an internal resource which is provided by Foundry. If the 
-                     theme mode is <code>master</code> the generated path is the concatenation of
-                     the theme prefix, the string <code>/foundry/</code> and the path provided as
-                     first parameter (XPath: <code>concat($theme-prefix, '/foundry/', $path)</code>. 
-                     If the theme mode is <code>child</code> the generated path
-                     is the concatenation of the context prefix, the string 
-                     <code>/themes/foundry/foundry/</code> and the path provided as first parameter
-                     (XPath: <code>concat($context-prefix, '/themes/foundry/foundry/', $path)</code>).
-                 </dd>
-             </dl>
-         </foundry:doc-desc>
-     </foundry:doc>
-     <xsl:function name="foundry:gen-path" as="xs:string">
-         <xsl:param name="path" as="xs:string"/>
-         <xsl:param name="origin" as="xs:string"/>
+    <foundry:doc section="devel" type="function">
+        <foundry:doc-desc>
+            <p>
+                Variant of <code>gen-path</code> with an additional <code>origin</code> 
+                parameter. This parameter can have three values:
+                If set to <code>true</code> the file is loaded from the 
+                <code>foundry</code> directory.
+            </p>
+            <dl>
+                <dt>empty string (<code>''</code>)</dt>
+                <dd>
+                    The path points to a resource in the theme directory. The return value is the
+                    concatenation of the theme-prefix, a slash and the path provided as first 
+                    parameter. In XPath Syntax: <code>concat($theme-prefix, '/', $path</code>. 
+                </dd>
+                <dt>master</dt>
+                <dd>
+                    If the theme mode (which is set in <code>conf/global.xml</code>) is set to 
+                    <code>master</code> the result is the same as for the empty string. If the
+                    the theme mode is set to <code>child</code> the generated path points to
+                    the parent/master theme. More exactly the result is the concatenation of the
+                    context-prefix environment variable, the string <code>/themes/</code>, the
+                    name of the master theme (set in <code>conf/global.xml</code>, 
+                    usally <code>foundry</code>), a slash the the path provided as first parameter.
+                    Or in XPath syntax: 
+                    <code>concat($content-prefix, '/themes/', $master-theme, '/', $path.)</code>.
+                </dd>
+                <dt>internal</dt>
+                <dd>
+                    The path points to an internal resource which is provided by Foundry. If the 
+                    theme mode is <code>master</code> the generated path is the concatenation of
+                    the theme prefix, the string <code>/foundry/</code> and the path provided as
+                    first parameter (XPath: <code>concat($theme-prefix, '/foundry/', $path)</code>. 
+                    If the theme mode is <code>child</code> the generated path
+                    is the concatenation of the context prefix, the string 
+                    <code>/themes/foundry/foundry/</code> and the path provided as first parameter
+                    (XPath: <code>concat($context-prefix, '/themes/foundry/foundry/', $path)</code>).
+                </dd>
+            </dl>
+        </foundry:doc-desc>
+    </foundry:doc>
+    <xsl:function name="foundry:gen-path" as="xs:string">
+        <xsl:param name="path" as="xs:string"/>
+        <xsl:param name="origin" as="xs:string"/>
 
-         <xsl:choose>
-             <xsl:when test="$origin = ''">
-                 <xsl:sequence select="concat($theme-prefix, '/', $path)"/>
-             </xsl:when>
-             <xsl:when test="$origin = 'master' and $theme-mode = 'master'">
-                 <xsl:sequence select="concat($theme-prefix, '/', $path)"/>
-             </xsl:when>
-             <xsl:when test="$origin = 'master' and $theme-mode = 'child'">
-                 <xsl:sequence select="concat($context-prefix, 
+        <xsl:choose>
+            <xsl:when test="$origin = ''">
+                <xsl:sequence select="concat($theme-prefix, '/', $path)"/>
+            </xsl:when>
+            <xsl:when test="$origin = 'master' and $theme-mode = 'master'">
+                <xsl:sequence select="concat($theme-prefix, '/', $path)"/>
+            </xsl:when>
+            <xsl:when test="$origin = 'master' and $theme-mode = 'child'">
+                <xsl:sequence select="concat($context-prefix, 
                                               '/themes/', 
                                               $master-theme, 
                                               '/',
                                               $path)"/>
-             </xsl:when>
-             <xsl:when test="$origin = 'internal' and $theme-mode = 'master'">
-                 <xsl:sequence select="concat($theme-prefix, '/foundry/', $path)"/>
-             </xsl:when>
-             <xsl:when test="$origin = 'internal' and $theme-mode = 'child'">
-                 <xsl:sequence select="concat($context-prefix, 
+            </xsl:when>
+            <xsl:when test="$origin = 'internal' and $theme-mode = 'master'">
+                <xsl:sequence select="concat($theme-prefix, '/foundry/', $path)"/>
+            </xsl:when>
+            <xsl:when test="$origin = 'internal' and $theme-mode = 'child'">
+                <xsl:sequence select="concat($context-prefix, 
                                               '/themes/foundry/foundry/', 
                                               $path)"/>
-             </xsl:when>
-             <xsl:otherwise>
-                 <xsl:sequence select="concat($theme-prefix, '/',  $path)"/>
-             </xsl:otherwise>
-         </xsl:choose>
-     </xsl:function>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:sequence select="concat($theme-prefix, '/',  $path)"/>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:function>
     
-    <foundry:doc section="devel" type="function">
+    <!-- Templates for outputting log messages -->
+    <foundry:doc section="devel" type="function-template">
         <foundry:doc-params>
-            <foundry:doc-param name="level"
+            <foundry:doc-param name="msg-level"
                                mandatory="yes"
                                type="string">
                 The level of the message, indicating its severity 
@@ -277,13 +278,18 @@
         </foundry:doc-result>
         <foundry:doc-desc>
             <p>
-                A helper function used by the other message functions like 
-                <code>foundry:message-warn</code>. Concatenates the message level with the message. 
+                A helper template used by the other message templates like 
+                <code>foundry:message-warn</code>. Outputs a message (for example in the 
+                application servers log using <code>xsl:message</code>.
+                Concatenates the message level with the message. 
             </p>
             <p>
-                This function should not be used directly. Use the other message functions instead.
+                This template should not be used directly. Use the other message templates instead.
             </p>
         </foundry:doc-desc>
+        <foundry:doc-see-also>
+            #foundry-message-debug
+        </foundry:doc-see-also>
         <foundry:doc-see-also>
             #foundry-message-info
         </foundry:doc-see-also>
@@ -294,14 +300,29 @@
             #foundry-message-error
         </foundry:doc-see-also>
     </foundry:doc>
-    <xsl:function name="foundry:message" as="xs:string">
-        <xsl:param name="level" as="xs:string"/>
+    <xsl:template name="foundry:message">
+        <xsl:param name="msg-level" as="xs:string"/>
         <xsl:param name="message" as="xs:string"/>
         
-        <xsl:sequence select="concat('[Foundry ', $level, '] ', $message)"/>
-    </xsl:function>
+        <xsl:variable name="log-level" select="foundry:get-setting('', 'log-level')"/>
+        
+        <xsl:if test="foundry:log-level($log-level) &gt;= foundry:log-level($msg-level)">
+            <xsl:message>
+                <xsl:value-of select="concat('[Foundry ', upper-case($log-level), '] ', $message)"/>
+            </xsl:message>
+        </xsl:if>
+    </xsl:template>
     
-    <foundry:doc section="devel" type="function">
+    <xsl:template name="foundry:message-debug">
+        <xsl:param name="message" as="xs:string"/>
+        
+        <xsl:call-template name="foundry:message">
+            <xsl:with-param name="msg-level" select="'debug'"/>
+            <xsl:with-param name="message" select="$message"/>
+        </xsl:call-template>
+    </xsl:template>
+    
+    <foundry:doc section="devel" type="function-template">
         <foundry:doc-params>
             <foundry:doc-param name="message"
                                mandatory="yes"
@@ -317,15 +338,11 @@
         </foundry:doc-result>
         <foundry:doc-desc>
             <p>
-                Helper function to generate an info message. This function be used together with
-                <code>&lt;xsl:message&gt;</code> to output a message in the CCM log. Example:
+                Helper function to generate an info message. This template generates a 
+                <code>&lt;xsl:message&gt;</code> element which causes the XSL processor to output
+                a message in the application server log. The message will on shown if the log level
+                in the global configuration is set to <code>info</code> or <code>error</code>.
             </p>
-            <pre>
-                ...
-                &lt;xsl:message&gt;
-                    &lt;xsl:message select="foundry:message-info('Hello from Foundry')" /&gt;
-                &lt;/xsl:message&gt;
-            </pre>
         </foundry:doc-desc>
         <foundry:doc-see-also>
             #foundry-message-warn
@@ -334,11 +351,14 @@
             #foundry-message-error
         </foundry:doc-see-also>
     </foundry:doc>
-    <xsl:function name="foundry:message-info" as="xs:string">
+    <xsl:template name="foundry:message-info">
         <xsl:param name="message" as="xs:string"/>
         
-        <xsl:sequence select="foundry:message('INFO', $message)"/>
-    </xsl:function>
+        <xsl:call-template name="foundry:message">
+            <xsl:with-param name="msg-level" select="'info'"/>
+            <xsl:with-param name="message" select="$message"/>
+        </xsl:call-template>
+    </xsl:template>
     
     <foundry:doc section="devel" type="function">
         <foundry:doc-params>
@@ -374,11 +394,14 @@
             #foundry-message-error
         </foundry:doc-see-also>
     </foundry:doc>
-    <xsl:function name="foundry:message-warn" as="xs:string">
+    <xsl:template name="foundry:message-warn">
         <xsl:param name="message" as="xs:string"/>
         
-        <xsl:sequence select="foundry:message('WARNING', $message)"/>
-    </xsl:function>
+        <xsl:call-template name="foundry:message">
+            <xsl:with-param name="msg-level" select="'warn'"/>
+            <xsl:with-param name="message" select="$message"/>
+        </xsl:call-template>
+    </xsl:template>
     
     <foundry:doc section="devel" type="function">
         <foundry:doc-params>
@@ -415,12 +438,40 @@
             #foundry-message-warn
         </foundry:doc-see-also>
     </foundry:doc>
-    <xsl:function name="foundry:message-error" as="xs:string">
+    <xsl:template name="foundry:message-error">
         <xsl:param name="message" as="xs:string"/>
-       
-        <xsl:sequence select="foundry:message('ERROR', $message)"/>
+        
+        <xsl:call-template name="foundry:message">
+            <xsl:with-param name="msg-level" select="'error'"/>
+            <xsl:with-param name="message" select="$message"/>
+        </xsl:call-template>
+    </xsl:template>
+    
+    <xsl:function name="foundry:log-level" as="xs:integer">
+        <xsl:param name="level"/>
+                
+        <xsl:choose>
+            <xsl:when test="lower-case($level) = 'error'">
+                <xsl:sequence select="0"/>
+            </xsl:when>
+            <xsl:when test="lower-case($level) = 'warn'">
+                <xsl:sequence select="1"/>
+            </xsl:when>
+            <xsl:when test="lower-case($level) = 'info'">
+                <xsl:sequence select="2"/>
+            </xsl:when>
+            <xsl:when test="lower-case($level) = 'debug'">
+                <xsl:sequence select="3"/>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:sequence select="-1"/>
+            </xsl:otherwise>
+        </xsl:choose>
+        
     </xsl:function>
     
+    <!-- End templates for outputting log messages -->
+    
     <foundry:doc section="devel" type="function">
         <foundry:doc-params>
             <foundry:doc-param name="node">
@@ -604,16 +655,23 @@
                 <xsl:sequence select="document(foundry:gen-path(concat('conf/', $module, '.xml', '')))/foundry:configuration/setting[@id=$setting]"/>
             </xsl:when>
             <xsl:otherwise>
-                <xsl:message>
-                    <xsl:choose>
-                        <xsl:when test="$module=''">
-                            <xsl:sequence select="foundry:message-warn(concat('Setting &quot;', $setting, '&quot; not found in global.xml'))"/>
-                        </xsl:when>
-                        <xsl:otherwise>
-                            <xsl:sequence select="foundry:message-warn(concat('Setting &quot;', $setting, '&quot; not found in ', $module, '.xml'))"/>
-                        </xsl:otherwise>
-                    </xsl:choose>
-                </xsl:message>
+                <xsl:choose>
+                    <xsl:when test="$module = ''">
+                        <xsl:message>
+                            <xsl:value-of select="concat('[WARN] Setting &quot;', 
+                                                         $setting, 
+                                                         '&quot; not found in global.xml')"/>
+                        </xsl:message>
+                    </xsl:when>
+                    <xsl:otherwise>
+                        <xsl:message>
+                            <xsl:value-of select="concat('[WARN] Setting &quot;', 
+                                                         $setting, 
+                                                         '&quot; not found in ',
+                                                         $module, '.xml')"/>
+                        </xsl:message>
+                    </xsl:otherwise>
+                </xsl:choose>
                 
                 <xsl:sequence select="$default"/>
             </xsl:otherwise>
@@ -625,10 +683,6 @@
         <xsl:param name="module" as="xs:string"/>
         <xsl:param name="id" as="xs:string"/>
         
-        <xsl:message>
-            <xsl:value-of select="foundry:message-info('get-static-text(string, string) called...')"/>
-        </xsl:message>
-        
         <xsl:sequence select="foundry:get-static-text($module, $id, true(), $lang)"/>
     </xsl:function>
     
@@ -707,40 +761,19 @@
                       select="if ($internal)
                               then 'internal'
                               else ''"/>
-        
-        <xsl:message>
-            <xsl:value-of select="foundry:message-info('get-static-text(string, string, boolean, string) called')"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="foundry:message-info(concat('Trying to get ', 
-                                                       foundry:gen-path(concat('texts/', 
-                                                                               $module, 
-                                                                               '.xml')), 
-                                                       '/foundry:static-texts/text[@id=', $id, ']/translation[@lang = ', $lang, ']'))"/>
-        </xsl:message>
-        
-        
+
         <xsl:choose>
             <xsl:when test="$module = '' and document(foundry:gen-path('texts/global.xml', $origin))/foundry:static-texts/text[@id=$id]/translation[@lang=$lang]">
-                <xsl:message>
-                    <xsl:value-of select="'using global.xml for texts...'"/>
-                </xsl:message>
                 <xsl:sequence select="document(foundry:gen-path('texts/global.xml', $origin))/foundry:static-texts/text[@id=$id]/translation[@lang=$lang]"/>
             </xsl:when>
             <xsl:when test="not($module = '') and document(foundry:gen-path(concat('texts/', $module, '.xml'), $origin))/foundry:static-texts/text[@id=$id]/translation[@lang=$lang]">
                 <xsl:sequence select="document(foundry:gen-path(concat('texts/', $module, '.xml'), $origin))/foundry:static-texts/text[@id=$id]/translation[@lang=$lang]"/>
             </xsl:when>
             <xsl:otherwise>
-                <xsl:message>
-                    <xsl:value-of select="foundry:message-info('get-static-text otherwise')"/>
-                </xsl:message>
                 <xsl:choose>
                     <xsl:when test="foundry:debug-enabled()">
                         <xsl:choose>
                             <xsl:when test="$html">
-                                <xsl:message>
-                                    <xsl:value-of select="'Otherwise w/ html'"/>
-                                </xsl:message>
                                 <span class="foundry-debug-missing-translation">
                                     <span class="foundry-placeholder">
                                         <xsl:value-of select="$id"/>
@@ -759,9 +792,6 @@
                                 
                             </xsl:when>
                             <xsl:otherwise>
-                                <xsl:message>
-                                    <xsl:value-of select="'Otherwise w/o html'"/>
-                                </xsl:message>
                                 <xsl:sequence select="$id"/>
                             </xsl:otherwise>
                         </xsl:choose>
@@ -790,15 +820,9 @@
     <xsl:function name="foundry:debug-enabled" as="xs:boolean">
         <xsl:choose>
             <xsl:when test="contains($theme-prefix, 'devel-themedir')">
-                <xsl:message>
-                    debug mode active
-                </xsl:message>
                 <xsl:sequence select="true()"/>
             </xsl:when>
             <xsl:otherwise>
-                <xsl:message>
-                    debug mode NOT active
-                </xsl:message>
                 <xsl:sequence select="false()"/>
             </xsl:otherwise>
         </xsl:choose>
@@ -835,7 +859,7 @@
         <xsl:param name="prefix"/>
         
         <xsl:choose>
-             <xsl:when test="starts-with($link, 'http://')">
+            <xsl:when test="starts-with($link, 'http://')">
                 <xsl:sequence select="$link"/>
             </xsl:when>
 
@@ -918,13 +942,6 @@
     <xsl:function name="foundry:shying" as="xs:string">
         <xsl:param name="text" as="xs:string"/>
         
-        <xsl:message>
-            <xsl:sequence select="concat('foundry:shying called with ', $text)"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:sequence select="concat('Result: ', translate($text, '\-', '&shy;'))"/>
-        </xsl:message>
-        
         <xsl:sequence select="translate($text, '\-', '&shy;')"/>
     </xsl:function>
     
@@ -1120,7 +1137,6 @@
                     </xsl:when>
                     <xsl:when test="$length - $limit > $min-length">
                         <!-- Truncate to length - limit -->
-                        <xsl:message>truncate length - limit</xsl:message> 
                         <xsl:variable name="part-length">
                             <xsl:value-of select="(($limit - 3) div 2) - 1"/>
                         </xsl:variable>
diff --git a/ccm-core/web/themes/foundry/foundry/main.xsl b/ccm-core/web/themes/foundry/foundry/main.xsl
index aa3f86f88..a16d674b0 100644
--- a/ccm-core/web/themes/foundry/foundry/main.xsl
+++ b/ccm-core/web/themes/foundry/foundry/main.xsl
@@ -45,9 +45,10 @@
                       select="foundry:get-app-layout-template(foundry:get-current-application(), 
                                                               foundry:get-current-application-class())"/>
         
-        <xsl:message>
-            <xsl:value-of select="concat('app-layout-template-file = ', $app-layout-template-file)"/>
-        </xsl:message>
+        <xsl:call-template name="foundry:message-debug">
+            <xsl:with-param name="message" 
+                            select="concat('app-layout-template-file = ', $app-layout-template-file)"/>
+        </xsl:call-template>
         
         <xsl:choose>
             <xsl:when test="$app-layout-template-file = ''">
@@ -95,9 +96,11 @@
         <xsl:param name="application" as="xs:string"/>
         <xsl:param name="class" as="xs:string"/>
         
-        <xsl:message>
-            <xsl:value-of select="concat('templates.xml path: ', foundry:gen-path('conf/templates.xml'))"/>
-        </xsl:message>
+        <xsl:call-template name="foundry:message-debug">
+            <xsl:with-param name="message"
+                            select="concat('templates.xml path: ', 
+                                           foundry:gen-path('conf/templates.xml'))"/>
+        </xsl:call-template>
         
         <xsl:choose>
             <xsl:when test="document(foundry:gen-path('conf/templates.xml'))/templates/applications/application[@name=$application and @class=$class]">
@@ -123,12 +126,18 @@
         <xsl:param name="application" as="xs:string"/>
         <xsl:param name="class" as="xs:string"/>
         
-        <xsl:message>
-            <xsl:value-of select="concat('trying to determine origin for template file for application = ', $application, ' and class = ', $class)"/>
-        </xsl:message>
-        <xsl:message>
-            <xsl:value-of select="concat('using templates file: ', foundry:gen-path('conf/templates.xml'))"/>
-        </xsl:message>
+        <xsl:call-template name="foundry:message-debug">
+            <xsl:with-param name="message"
+                            select="concat('trying to determine origin for template file for application = ', 
+                                           $application, 
+                                           ' and class = ', 
+                                           $class)"/>
+        </xsl:call-template>
+        <xsl:call-template name="foundry:message-debug">
+            <xsl:with-param name="message"
+                            select="concat('using template configuration file: ', 
+                                           foundry:gen-path('conf/templates.xml'))"/>
+        </xsl:call-template>
         
         <xsl:choose>
             <xsl:when test="document(foundry:gen-path('conf/templates.xml'))/templates/applications/application[@name=$application and @class=$class]