From b0f8b7eb9e9d458d36b39e5166a7e30636e1c5d5 Mon Sep 17 00:00:00 2001
From: Ian Young <ian@iay.org.uk>
Date: Wed, 8 Aug 2007 07:22:18 +0000
Subject: [PATCH] Detect entities with Location attributes that don't start
 with "http".

---
 build/statistics.xsl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/build/statistics.xsl b/build/statistics.xsl
index 3d89da9d..7958ac3b 100644
--- a/build/statistics.xsl
+++ b/build/statistics.xsl
@@ -91,6 +91,8 @@
         <xsl:variable name="prob.space.entityID" select="$entities[contains(@entityID, ' ')]"/>
         <!-- spaces in Locations -->
         <xsl:variable name="prob.space.location" select="$entities[descendant::*[contains(@Location,' ')]]"/>
+        <!-- Locations that don't start with http, at least -->
+        <xsl:variable name="prob.nohttp.location" select="$entities[descendant::*[@Location and not(starts-with(@Location,'http'))]]"/>
         <!-- duplicate entity IDs -->
         <xsl:variable name="prob.distinct.entityIDs" select="set:distinct($entities/@entityID)"/>
         <xsl:variable name="prob.dup.entityID"
@@ -101,6 +103,7 @@
         <xsl:variable name="prob.unowned.entities" select="set:difference($entities, $ownedEntities)"/>
         <!-- all problems, used as a conditional -->
         <xsl:variable name="prob.all" select="$prob.space.entityID | $prob.space.location |
+            $prob.nohttp.location |
             $prob.dup.entityID | $prob.unowned.entities"/>
         <xsl:variable name="prob.count" select="count($prob.all)"/>
 
@@ -155,6 +158,18 @@
                             </xsl:for-each>
                         </ul>
                     </xsl:if>
+                    <xsl:if test="count($prob.nohttp.location) != 0">
+                        <p>The following entities include elements with <code>Location</code> attributes
+                        that don't start with <code>http</code>:</p>
+                        <ul>
+                            <xsl:for-each select="$prob.nohttp.location">
+                                <li>
+                                    <xsl:value-of select="@ID"/>:
+                                    <code><xsl:value-of select="@entityID"/></code>
+                                </li>
+                            </xsl:for-each>
+                        </ul>
+                    </xsl:if>
                     <xsl:if test="count($prob.dup.entityID) != 0">
                         <p>The following entity names are used by more than one entity:</p>
                         <ul>