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 6ecf569865bb071ac6064aca39834f7305225d0a..86eb208495c6ab7732e7202780a24f62c621edde 100644 (file)
--- a/helm/on-line/xslt/ls2theory.xsl
+++ b/helm/on-line/xslt/ls2theory.xsl
@@ -34,18 +34,17 @@
        </head>
        <body>
         <ul>
+          <xsl:apply-templates select="object[@name='index.theory']"/>
           <!-- sorting: folders interleaved with theories, then objects-->
           <xsl:apply-templates
-           select="section|object[substring-after(@name,'.')='theory']">
-           <xsl:sort select="concat(@name,string(.))" />
+           select="section|object[substring-after(@name,'.')='theory' and
+                    not(@name='index.theory')]">
+           <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>