ocaml 3.09 transition

[helm.git] / helm / on-line / xslt / ls2theory.xsl

diff --git a/helm/on-line/xslt/ls2theory.xsl b/helm/on-line/xslt/ls2theory.xsl
index 5d5186532379c3c62b07b388847a509327e5d48b..86eb208495c6ab7732e7202780a24f62c621edde 100644 (file)
--- a/helm/on-line/xslt/ls2theory.xsl
+++ b/helm/on-line/xslt/ls2theory.xsl
@@ -39,15 +39,12 @@
          <xsl:apply-templates
            select="section|object[substring-after(@name,'.')='theory' and
                     not(@name='index.theory')]">
-           <xsl:sort select="concat(@name,string(.))" />
+           <xsl:sort select="translate(concat(@name,string(.)),'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')" />
          </xsl:apply-templates>
          <xsl:apply-templates
-           select="object[not(substring-after(@name,'.')='theory')]" />
-         <!-- sorting: folders, theories, objects -->
-<!--
-         <xsl:apply-templates select="section" />
-         <xsl:apply-templates select="object" />
--->
+           select="object[not(substring-after(@name,'.')='theory')]" >
+           <xsl:sort select="translate(concat(@name,string(.)),'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')" />
+          </xsl:apply-templates>
        </ul>
       </body>
     </html>