sub CreateTableEntries()
{
   $ItemNo = 0;
   &FixedEntity;
   if  ( $EntityRec ne "" ) {
      if ($debug eq 2) { print "EntityRec: $EntityRec\n" };
      if ($count++ eq 25) { die; }   #debug only, limit to 25 XML documents   
   } else {
      print "Identifier missing for file $filename\n";
      return;
   }
   AddId("bookplateleaf");
   AddId("box");
}