added new script to list all book info from bookcodes.db

[project-aon.git] / common / xsl / dot.xsl

diff --git a/common/xsl/dot.xsl b/common/xsl/dot.xsl
index a0e5818..446b19d 100644 (file)
--- a/common/xsl/dot.xsl
+++ b/common/xsl/dot.xsl
@@ -12,7 +12,10 @@ TODO:
 
 -->
 
-<xsl:transform version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+<xsl:transform version="1.0" 
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  xmlns:str="http://exslt.org/strings"
+  extension-element-prefixes="str">
 
  <xsl:output method="text" encoding="UTF-8"/>
 
@@ -112,6 +115,27 @@ TODO:
     <xsl:value-of select="$newline"/>
    </xsl:if>
   </xsl:for-each>
+
+  <xsl:for-each select=".//puzzle">
+   <xsl:if test="@idref">
+    <xsl:value-of select="$indent"/>
+    <xsl:value-of select="$section"/>
+    <xsl:text> -&gt; </xsl:text>
+    <xsl:value-of select="format-number( substring( @idref, 5 ), '000' )"/>
+    <xsl:text> [label="puzzle",style=dashed];</xsl:text>
+    <xsl:value-of select="$newline"/>
+   </xsl:if>
+   <xsl:if test="@idrefs">
+    <xsl:for-each select="str:tokenize(@idrefs)">
+     <xsl:value-of select="$indent"/>
+     <xsl:value-of select="$section"/>
+     <xsl:text> -&gt; </xsl:text>
+     <xsl:value-of select="format-number( substring( ., 5 ), '000' )"/>
+     <xsl:text> [label="puzzle",style=dashed];</xsl:text>
+     <xsl:value-of select="$newline"/>
+    </xsl:for-each>
+   </xsl:if>
+  </xsl:for-each>
  </xsl:template>
 
  <xsl:template match="date">