Make the cache Spi aware (save name of document node)

diff --git a/xml-db/xml-db.pl b/xml-db/xml-db.pl
index b7807063b9f9b14934e8c1a6837c4460516386bb..c64c9f57361579f8e48d9b79ecc76fa48bc3a32b 100755 (executable)
--- a/xml-db/xml-db.pl
+++ b/xml-db/xml-db.pl
@@ -110,6 +110,10 @@ sub WorkOnDoc {
   my $doc = shift;
   my $db = {};
 
+  # add the name of the entity as some special key (starting with §)
+  # this is later on needed by get.pl to determine how to obtain data
+  $db->{'§EntityType'} = $doc->getDocumentElement->nodeName;
+
   # we populate first the db. then we can check when adding the
   # children that they exist, and we can also handle the special case
   # when a node has the same name as the single field it contains