From e3e085e8a6fc0bf9047576832768979a79eff1fe Mon Sep 17 00:00:00 2001
From: Clinton Graham <ctgraham@pitt.edu>
Date: Mon, 8 Nov 2021 10:40:13 -0500
Subject: [PATCH] Enhancements #66, #67, #70: render EAD to HTML more
 semantically.

---
 README.md                   |   1 +
 includes/blocks.inc         |  10 +
 includes/ead_html.inc       |  21 ++
 includes/jstreebuilder.inc  |   4 +-
 includes/link.inc           |  10 +
 transforms/ead_to_html.xslt | 416 ++++++++++++++++++++++++++++++++++--
 6 files changed, 441 insertions(+), 21 deletions(-)

diff --git a/README.md b/README.md
index 1917c91..961edd2 100644
--- a/README.md
+++ b/README.md
@@ -50,6 +50,7 @@ Having problems or solved a problem? Check out the Islandora google groups for a
 ### Q. What elements are necessary in finding aid EAD metadata?
 
 A. Components (`c`, `c01`, `c02`, `c03`, _etc_) *MUST* have `id` attributes unique to the given XML document in order to reliably produce links and relationships. Components *MUST* have a `level` as one of:
+* `subgrp`
 * `series`
 * `subseries`
 * `file`
diff --git a/includes/blocks.inc b/includes/blocks.inc
index 70cdbf7..512f557 100644
--- a/includes/blocks.inc
+++ b/includes/blocks.inc
@@ -66,6 +66,16 @@ function islandora_manuscript_container_list($object) {
                 'default' => array(
                   'select_node' => FALSE,
                 ),
+                'recordgrp' => array(
+                  'valid_children' => array(
+                    'subgrp',
+                  ),
+                ),
+                'subgrp' => array(
+                  'valid_children' => array(
+                    'series',
+                  ),
+                ),
                 'series' => array(
                   'valid_children' => array(
                     'subseries',
diff --git a/includes/ead_html.inc b/includes/ead_html.inc
index a5d97ba..a894180 100644
--- a/includes/ead_html.inc
+++ b/includes/ead_html.inc
@@ -23,8 +23,29 @@ define('ISLANDORA_MANUSCRIPT_CONTAINER_TAG_URI', 'http://islandora.ca/manuscript
  */
 function islandora_manuscript_preprocess_ead_display_variables(&$variables) {
   $variables['xslt_parameters'][''] = (isset($variables['xslt_parameters']['']) ? $variables['xslt_parameters'][''] : array()) + array(
+    "containerlist_string" => t('Container List'),
     "container_string" => t('Containers'),
+    "unitid_string" => t('Unit Id'),
+    "physdesc_string" => t('Extent'),
+    "physloc_string" => t('Physical Location'),
+    "langmaterial_string" => t('Language'),
+    "controlaccess_string" => t('Subjects'),
+    "corpname_string" => t('Corporate Names'),
+    "persname_string" => t('Personal Names'),
+    "famname_string" => t('Family Names'),
+    "geogname_string" => t('Geographic Names'),
+    "occupation_string" => t('Occupations'),
+    "subject_string" => t('Other Subjects'),
+    "genreform_string" => t('Genres'),
+    "recordgrp_string" => t('Record Group'),
+    "subgrp_string" => t('Subgroup'),
+    "series_string" => t('Series'),
+    "subseries_string" => t('Subseries'),
+    "subfonds" => t('Subfonds'),
+    "file_string" => t('File'),
+    "item_string" => t('Item'),
   );
+
   $variables['doc'] = $doc = new DOMDocument();
   $doc->loadXML($variables['object']['EAD']->content);
 
diff --git a/includes/jstreebuilder.inc b/includes/jstreebuilder.inc
index fa60e80..42685dc 100644
--- a/includes/jstreebuilder.inc
+++ b/includes/jstreebuilder.inc
@@ -214,12 +214,12 @@ class ContainerListJSTreeBuilder extends JSTreeBuilder {
   /**
    * Inherits.
    *
-   * Only return results for series and subseries, and make a couple
+   * Only return results for recordgrp, subgrp, series and subseries, and make a couple
    * adjustments to the data.
    */
   protected function getComponentTree(DOMElement $element) {
     $type = $element->getAttribute('level');
-    if (in_array($type, array('series', 'subseries'))) {
+    if (in_array($type, array('recordgrp', 'subgrp', 'series', 'subseries'))) {
       $to_return = parent::getComponentTree($element);
       $to_return['a_attr']['href'] = url("islandora/object/{$this->object->id}", array('fragment' => $to_return['id']));
       $to_return['id'] = "container_list_{$to_return['id']}";
diff --git a/includes/link.inc b/includes/link.inc
index 46d5ea8..6c9034c 100644
--- a/includes/link.inc
+++ b/includes/link.inc
@@ -210,6 +210,16 @@ function islandora_manuscript_link_to_finding_aid_form($form, &$form_state, Abst
                   'default' => array(
                     'select_node' => FALSE,
                   ),
+                  'recordgrp' => array(
+                    'valid_children' => array(
+                      'subgrp',
+                    ),
+                  ),
+                  'subgrp' => array(
+                    'valid_children' => array(
+                      'series',
+                    ),
+                  ),
                   'series' => array(
                     'valid_children' => array(
                       'subseries',
diff --git a/transforms/ead_to_html.xslt b/transforms/ead_to_html.xslt
index b1462f8..05d0d0a 100644
--- a/transforms/ead_to_html.xslt
+++ b/transforms/ead_to_html.xslt
@@ -6,8 +6,29 @@
   xmlns:xlink="http://www.w3.org/1999/xlink"
   xmlns:php="http://php.net/xsl"
   xsl:extension-element-prefixes="php"
+  exclude-result-prefixes="xsl ead xlink php"
 >
+  <xsl:param name="containerlist_string">Container List</xsl:param>
   <xsl:param name="container_string">Containers</xsl:param>
+  <xsl:param name="unitid_string">Unit ID</xsl:param>
+  <xsl:param name="physdesc_string">Extent</xsl:param>
+  <xsl:param name="physloc_string">Physical Location</xsl:param>
+  <xsl:param name="langmaterial_string">Language</xsl:param>
+  <xsl:param name="controlaccess_string">Subjects</xsl:param>
+  <xsl:param name="corpname_string">Corporate Names</xsl:param>
+  <xsl:param name="persname_string">Personal Names</xsl:param>
+  <xsl:param name="famname_string">Family Names</xsl:param>
+  <xsl:param name="geoname_string">Geographic Names</xsl:param>
+  <xsl:param name="occupation_string">Occupations</xsl:param>
+  <xsl:param name="subject_string">Other Subjects</xsl:param>
+  <xsl:param name="genreform_string">Genres</xsl:param>
+  <xsl:param name="recordgrp_string">Record Group</xsl:param>
+  <xsl:param name="subgrp_string">Subgroup</xsl:param>
+  <xsl:param name="series_string">Series</xsl:param>
+  <xsl:param name="subseries_string">Subseries</xsl:param>
+  <xsl:param name="subfonds_string">Subfonds</xsl:param>
+  <xsl:param name="file_string">File</xsl:param>
+  <xsl:param name="item_string">Item</xsl:param>
 
   <xsl:template match="/">
     <div class="ead">
@@ -16,12 +37,34 @@
   </xsl:template>
 
   <xsl:template match="ead:scopecontent">
-    <xsl:if test="ead:head">
-      <h3>
-        <xsl:apply-templates select="ead:head"/>
-      </h3>
-    </xsl:if>
-    <xsl:apply-templates select="ead:p"/>
+    <xsl:apply-templates select="ead:head">
+      <xsl:with-param name="heading_level">
+        <!-- if we are in the root archdesc, default to h2, otherwise h3 -->
+        <xsl:choose>
+          <xsl:when test="../../ead:archdesc">
+            <xsl:text>h2</xsl:text>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:text>h3</xsl:text>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:with-param>
+    </xsl:apply-templates>
+    <xsl:apply-templates select="ead:*[not(self::ead:head)]"/>
+  </xsl:template>
+
+  <!-- Render a heading with the passed in tag, or h3 as a default -->
+  <xsl:template match="ead:head">
+    <xsl:param name="heading_level" />
+    <xsl:variable name="effective_level">
+      <xsl:choose>
+        <xsl:when test="$heading_level"><xsl:value-of select="$heading_level" /></xsl:when>
+        <xsl:otherwise><xsl:text>h3</xsl:text></xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:element name="{$effective_level}">
+      <xsl:value-of select="." />
+    </xsl:element>
   </xsl:template>
 
   <xsl:template match="ead:processinfo"/>
@@ -44,8 +87,44 @@
     </xsl:choose>
   </xsl:template>
 
+  <!-- helper to transform a level attribute into a public-facing string -->
+  <xsl:template name="decode_level">
+    <xsl:param name="input" />
+    <xsl:choose>
+      <xsl:when test="$input = 'recordgrp'">
+        <xsl:value-of select="$recordgrp_string" />
+      </xsl:when>
+      <xsl:when test="$input = 'subgrp'">
+        <xsl:value-of select="$subgrp_string" />
+      </xsl:when>
+      <xsl:when test="$input = 'series'">
+        <xsl:value-of select="$series_string" />
+      </xsl:when>
+      <xsl:when test="$input = 'subseries'">
+        <xsl:value-of select="$subseries_string" />
+      </xsl:when>
+      <xsl:when test="$input = 'subfonds'">
+        <xsl:value-of select="$subfonds_string" />
+      </xsl:when>
+      <xsl:when test="$input = 'file'">
+        <xsl:value-of select="$file_string" />
+      </xsl:when>
+      <xsl:when test="$input = 'item'">
+        <xsl:value-of select="$item_string" />
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="capitalize">
+          <xsl:with-param name="input" select="$input" />
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
   <!-- General display -->
-  <xsl:template match="ead:c | ead:c01 | ead:c02 | ead:c03">
+  <xsl:template match="ead:c | ead:c01 | ead:c02 | ead:c03 | ead:c04 | ead:c05 | ead:c06">
+    <!-- use a fieldset for containers which have containers (or are direct decendents of archdesc's dsc, and a ul for top level container contents -->
+    <xsl:choose>
+    <xsl:when test="ead:c | ead:c01 | ead:c02 | ead:c03 | ead:c04 | ead:c05 | ead:c06 | ../../../ead:archdesc">
     <fieldset>
       <xsl:attribute name="class">
         <xsl:text>ead-component collapsible collapsed </xsl:text>
@@ -55,9 +134,23 @@
       </xsl:attribute>
       <legend>
         <span class="fieldset-legend">
-          <xsl:apply-templates select="ead:did/ead:unittitle"/>
-          <xsl:text> </xsl:text>
-          <xsl:value-of select="ead:did/ead:unitdate"/>
+          <xsl:if test="ead:did/ead:unitid">
+            <span class="ead-legend-level">
+              <xsl:if test="@level">
+                <xsl:call-template name="decode_level">
+                  <xsl:with-param name="input" select="@level" />
+                </xsl:call-template>
+                <xsl:text> </xsl:text>
+              </xsl:if>
+            </span>
+            <span class="ead-legend-unitid">
+              <xsl:value-of select="ead:did/ead:unitid" />
+              <xsl:text> </xsl:text>
+            </span>
+          </xsl:if>
+          <span class="ead-legend-title"><xsl:apply-templates select="ead:did/ead:unittitle"/></span>
+          <xsl:if test="normalize-space(ead:did/ead:unittitle) and normalize-space(ead:did/ead:unitdate)"><xsl:text>, </xsl:text></xsl:if>
+          <span class="ead-legend-date"><xsl:value-of select="ead:did/ead:unitdate"/></span>
         </span>
       </legend>
       <div class="fieldset-wrapper">
@@ -68,6 +161,44 @@
         <xsl:apply-templates/>
       </div>
     </fieldset>
+    </xsl:when>
+    <xsl:otherwise>
+      <ul>
+        <xsl:attribute name="id">
+          <xsl:call-template name="get_id"/>
+        </xsl:attribute>
+      <xsl:for-each select="ead:did">
+      <li class="ead-leaf-did">
+         <div class="ead-leaf-container">
+          <xsl:if test="ead:unitid">
+            <span class="ead-leaf-level">
+              <xsl:if test="../@level">
+                <xsl:call-template name="decode_level">
+                  <xsl:with-param name="input" select="../@level" />
+                </xsl:call-template>
+                <xsl:text> </xsl:text>
+              </xsl:if>
+            </span>
+            <span class="ead-leaf-unitid">
+              <xsl:value-of select="ead:unitid" />
+              <xsl:text> </xsl:text>
+            </span>
+          </xsl:if>
+          <span class="ead-leaf-title"><xsl:apply-templates select="ead:unittitle"/></span>
+          <xsl:if test="normalize-space(ead:unittitle) and normalize-space(ead:unitdate)"><xsl:text>, </xsl:text></xsl:if>
+          <span class="ead-leaf-date"><xsl:value-of select="ead:unitdate"/></span>
+        </div>
+       <xsl:apply-templates select="." />
+      </li>
+      </xsl:for-each>
+      <xsl:if test="ead:*[not(self::ead:did)]">
+        <li class="ead-leaf-notdid">
+          <xsl:apply-templates select="ead:*[not(self::ead:did)]" />
+        </li>
+      </xsl:if>
+      </ul>
+    </xsl:otherwise>
+    </xsl:choose>
   </xsl:template>
 
   <xsl:template match="ead:did">
@@ -76,19 +207,71 @@
       <xsl:call-template name="container"/>
     </xsl:variable>
     <xsl:if test="normalize-space($contents)">
-      <dl>
+      <dl class="ead-did-content">
         <xsl:copy-of select="$contents"/>
       </dl>
     </xsl:if>
   </xsl:template>
 
+  <!-- helper to translate root did elements into defintion list names -->
+  <xsl:template name="decode_did_child">
+    <xsl:param name="input" />
+    <xsl:choose>
+      <xsl:when test="local-name(.) = 'unitid'">
+        <xsl:value-of select="$unitid_string" />
+      </xsl:when>
+      <xsl:when test="local-name(.) = 'physdesc'">
+        <xsl:value-of select="$physdesc_string" />
+      </xsl:when>
+      <xsl:when test="local-name(.) = 'physloc'">
+        <xsl:value-of select="$physloc_string" />
+      </xsl:when>
+      <xsl:when test="local-name(.) = 'langmaterial'">
+        <xsl:value-of select="$langmaterial_string" />
+      </xsl:when>
+      <xsl:when test="substring(local-name(.), 1, 4) = 'unit'">
+        <xsl:call-template name="capitalize">
+          <xsl:with-param name="input" select="substring(local-name(.), 5)" />
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="capitalize">
+          <xsl:with-param name="input" select="local-name(.)" />
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
   <!-- Handle top level did. -->
   <xsl:template name="archdesc_did">
-    <xsl:if test="not(ead:container[@parent])">
-      <xsl:for-each select="*">
-        <p>
+    <xsl:if test="not(ead:container[@parent]) and ../../ead:archdesc">
+      <xsl:for-each select="*[normalize-space(.)]">
+        <dt>
+          <xsl:attribute name="class">
+            <xsl:text>ead-</xsl:text><xsl:value-of select="local-name(.)" />
+          </xsl:attribute>
+          <xsl:choose>
+            <xsl:when test="@label">
+              <xsl:value-of select="@label" />
+            </xsl:when>
+            <xsl:when test="local-name(.) = 'unitid' and normalize-space(../../@level)">
+              <xsl:call-template name="decode_level">
+                <xsl:with-param name="input" select="../../@level" />
+              </xsl:call-template>
+            </xsl:when>
+            <xsl:otherwise>
+              <xsl:call-template name="decode_did_child">
+                <xsl:with-param name="input" select="local-name(.)" />
+              </xsl:call-template>
+            </xsl:otherwise>
+          </xsl:choose>
+        </dt>
+        <dd>
+          <xsl:attribute name="class">
+            <xsl:text>ead-</xsl:text><xsl:value-of select="local-name(.)" />
+          </xsl:attribute>
           <xsl:apply-templates select="."/>
-        </p>
+        </dd>
       </xsl:for-each>
     </xsl:if>
   </xsl:template>
@@ -106,7 +289,7 @@
       </xsl:choose>
     </xsl:variable>
     <xsl:if test="normalize-space($contents)">
-      <dt>
+      <dt class="ead-container">
         <xsl:value-of select="$container_string"/>
       </dt>
       <xsl:copy-of select="$contents"/>
@@ -114,7 +297,7 @@
   </xsl:template>
 
   <xsl:template name="flat_container">
-    <dd>
+    <dd class="ead-container ead-container-flat">
       <a>
         <xsl:attribute name="href">
           <xsl:copy-of select="php:function('islandora_manuscript_build_flat_query_url', ead:container)"/>
@@ -123,10 +306,16 @@
       </a>
     </dd>
   </xsl:template>
+
   <xsl:template match="ead:container" mode="flat_text">
+    <span>
+    <xsl:attribute name="class">
+      <xsl:text>container-target container-type-</xsl:text><xsl:value-of select="@type" />
+    </xsl:attribute>
     <xsl:value-of select="@type"/>
     <xsl:text> </xsl:text>
     <xsl:apply-templates/>
+    </span>
     <xsl:variable name="sibling_content">
       <xsl:apply-templates select="following-sibling::ead:container[1]" mode="flat_text"/>
     </xsl:variable>
@@ -138,7 +327,7 @@
 
   <xsl:template match="ead:container" mode="parent">
     <xsl:variable name="containers" select="//ead:container"/>
-    <dd>
+    <dd class="ead-container ead-container-nested">
       <a>
         <xsl:attribute name="href">
           <xsl:copy-of select="php:function('islandora_manuscript_build_parented_query_url', current(), $containers)"/>
@@ -153,17 +342,198 @@
       <xsl:apply-templates select="//ead:container[$parent = @id]" mode="parent_text"/>
     </xsl:variable>
     <xsl:if test="normalize-space($parents) != ''">
-      <xsl:value-of select="$parents"/>
+      <xsl:copy-of select="$parents"/>
       <xsl:text>, </xsl:text>
     </xsl:if>
+    <span>
+    <xsl:attribute name="class">
+      <xsl:text>container-target container-type-</xsl:text><xsl:value-of select="@type" />
+    </xsl:attribute>
     <xsl:value-of select="@type"/>
     <xsl:text> </xsl:text>
     <xsl:apply-templates/>
+    </span>
   </xsl:template>
 
   <xsl:template match="text()" mode="did_list"/>
   <!-- end of did/definition list stuff -->
 
+  <xsl:template match="ead:dsc">
+    <xsl:choose>
+      <xsl:when test="normalize-space(ead:head)">
+        <xsl:apply-templates select="ead:head">
+          <xsl:with-param name="heading_level"><xsl:text>h2</xsl:text></xsl:with-param>
+        </xsl:apply-templates>
+      </xsl:when>
+      <xsl:otherwise>
+        <h2><xsl:value-of select="$containerlist_string" /></h2>
+      </xsl:otherwise>
+    </xsl:choose>
+    <xsl:apply-templates select="ead:*[not(self::ead:head)]" />
+  </xsl:template>
+
+  <!-- Structure controlled vocabularies as lists, but necessarily ignores non-list content -->
+  <xsl:template match="ead:controlaccess">
+    <xsl:if test="ead:corpname|ead:persname|ead:famname|ead:geogname|ead:occupation|ead:genreform|ead:cronlist|ead:function|ead:list|ead:name|ead:subject|ead:title|ead:controllaccess">
+      <section>
+      <xsl:choose>
+        <xsl:when test="normalize-space(ead:head)">
+          <xsl:apply-templates select="ead:head">
+            <xsl:with-param name="heading_level"><xsl:text>h1</xsl:text></xsl:with-param>
+          </xsl:apply-templates>
+        </xsl:when>
+        <xsl:otherwise>
+          <h1><xsl:value-of select="$controlaccess_string" /></h1>
+        </xsl:otherwise>
+      </xsl:choose>
+      <ul>
+        <xsl:if test="ead:corpname">
+          <xsl:call-template name="corpnames" />
+        </xsl:if>
+        <xsl:if test="ead:persname">
+          <xsl:call-template name="persnames" />
+        </xsl:if>
+        <xsl:if test="ead:famname">
+          <xsl:call-template name="famnames" />
+        </xsl:if>
+        <xsl:if test="ead:geogname">
+          <xsl:call-template name="geognames" />
+        </xsl:if>
+        <xsl:if test="ead:occupation">
+          <xsl:call-template name="occupations" />
+        </xsl:if>
+        <xsl:if test="ead:genreform">
+          <xsl:call-template name="genreforms" />
+        </xsl:if>
+        <xsl:if test="ead:cronlist|ead:function|ead:list|ead:name|ead:subject|ead:title">
+          <xsl:call-template name="subjects" />
+        </xsl:if>
+      </ul>
+      </section>
+      <xsl:if test="ead:controlaccess">
+        <xsl:apply-templates select="ead:controlaccess" />
+      </xsl:if>
+    </xsl:if>
+  </xsl:template>
+
+  <!-- List each controlled vocabulary by type -->
+  <xsl:template name="corpnames">
+    <section>
+    <h2><xsl:value-of select="$corpname_string" /></h2>
+    <ul>
+    <xsl:for-each select="ead:corpname">
+      <li><xsl:apply-templates /></li>
+    </xsl:for-each>
+    </ul>
+    </section>
+  </xsl:template>
+
+  <xsl:template name="persnames">
+    <section>
+    <h2><xsl:value-of select="$persname_string" /></h2>
+    <ul>
+    <xsl:for-each select="ead:persname">
+      <li><xsl:apply-templates /></li>
+    </xsl:for-each>
+    </ul>
+    </section>
+  </xsl:template>
+
+  <xsl:template name="famnames">
+    <section>
+    <h2><xsl:value-of select="$famname_string" /></h2>
+    <ul>
+    <xsl:for-each select="ead:famname">
+      <li><xsl:apply-templates /></li>
+    </xsl:for-each>
+    </ul>
+    </section>
+  </xsl:template>
+
+  <xsl:template name="geognames">
+    <section>
+    <h2><xsl:value-of select="$geogname_string" /></h2>
+    <ul>
+    <xsl:for-each select="ead:geogname">
+      <li><xsl:apply-templates /></li>
+    </xsl:for-each>
+    </ul>
+    </section>
+  </xsl:template>
+
+  <xsl:template name="occupations">
+    <section>
+    <h2><xsl:value-of select="$occupation_string" /></h2>
+    <ul>
+    <xsl:for-each select="ead:occupation">
+      <li><xsl:apply-templates /></li>
+    </xsl:for-each>
+    </ul>
+    </section>
+  </xsl:template>
+
+  <xsl:template name="genreforms">
+    <section>
+    <h2><xsl:value-of select="$genreform_string" /></h2>
+    <ul>
+    <xsl:for-each select="ead:genreform">
+      <li><xsl:apply-templates /></li>
+    </xsl:for-each>
+    </ul>
+    </section>
+  </xsl:template>
+
+  <xsl:template name="subjects">
+    <section>
+    <h2><xsl:value-of select="$subject_string" /></h2>
+    <ul>
+    <xsl:for-each select="ead:cronlist|ead:function|ead:list|ead:name|ead:subject|ead:title">
+      <li><xsl:apply-templates /></li>
+    </xsl:for-each>
+    </ul>
+    </section>
+  </xsl:template>
+
+  <xsl:template match="ead:bibliography">
+    <xsl:if test="count(ead:bibref)">
+    <section>
+      <xsl:apply-templates select="ead:head">
+        <xsl:with-param name="heading_level" select="h2" />
+      </xsl:apply-templates>
+      <ul>
+        <xsl:for-each select="ead:bibref">
+        <li>
+          <xsl:apply-templates select="." />
+        </li>
+        </xsl:for-each>
+      </ul>
+    </section>
+    </xsl:if>
+  </xsl:template>
+
+  <xsl:template match="ead:list">
+    <xsl:variable name="listtype">
+      <xsl:choose>
+        <xsl:when test="@type = 'ordered'">
+          <xsl:text>ol</xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text>ul</xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <section>
+    <xsl:if test="ead:head">
+      <h1><xsl:value-of select="ead:head" /></h1>
+    </xsl:if>
+    <xsl:element name="{$listtype}">
+      <xsl:for-each select="ead:item">
+        <li><xsl:apply-templates select="." /></li>
+      </xsl:for-each>
+    </xsl:element>
+    </section>
+  </xsl:template>
+
   <xsl:template match="ead:p">
     <p>
       <xsl:apply-templates/>
@@ -179,4 +549,12 @@
     </a>
   </xsl:template>
   <!-- end of general display stuff -->
+
+  <xsl:template name="capitalize">
+    <xsl:param name="input" />
+    <xsl:variable name="lowerchars" select="'abcdefghijklmnopqrstuvwxyz'" />
+    <xsl:variable name="upperchars" select="'ABCDEFGHIJKLMNOPQRSTUVWXYZ'" />
+    <xsl:value-of select="concat(translate(substring($input, 1, 1), $lowerchars, $upperchars), substring($input, 2))" />
+  </xsl:template>
+
 </xsl:stylesheet>