<xsl:variable name="types-table">
  <types>
    <marcus-label primo-type="book">Manuskript</marcus-label>
    <marcus-label primo-type="text_resource">Brev</marcus-label>
    <!-- mer en samling enn dokument, ignorer? <marcus-label primo-type="">Album</marcus-label>-->
    <marcus-label primo-type="book">Bok</marcus-label>
    <marcus-label primo-type="book">Forhandlingsprotokoll</marcus-label>
    <marcus-label primo-type="book">Kopibok</marcus-label>
    <marcus-label primo-type="book">Kassebok</marcus-label>
    <marcus-label primo-type="text_resource">Diplom</marcus-label>
    <marcus-label primo-type="text_resource">Kontrakt</marcus-label>
    <marcus-label primo-type="book">Dagbok</marcus-label>
    <marcus-label primo-type="book">Dokument</marcus-label>
    <marcus-label primo-type="image">Tegning</marcus-label>
    <marcus-label primo-type="book">Fragment</marcus-label>
    <marcus-label primo-type="image">Grafikk</marcus-label>
    <marcus-label primo-type="book">Reisedagbok</marcus-label>
    <marcus-label primo-type="text_resource">Oppmålingsdokument</marcus-label>
    <marcus-label primo-type="map">Kart</marcus-label>
    <marcus-label primo-type="text_resource">Notat</marcus-label>
    <marcus-label primo-type="image">Fotografi</marcus-label>
    <marcus-label primo-type="image">Postkort</marcus-label>
    <marcus-label primo-type="image">Plakat</marcus-label>
    <marcus-label primo-type="book">Bønnebok</marcus-label>
    <marcus-label primo-type="book">Protokoll</marcus-label>
    <marcus-label primo-type="text_resource">Kvittering</marcus-label>
    <marcus-label primo-type="text_resource">Salgsskjøte</marcus-label>
    <marcus-label primo-type="text_resource">Tale</marcus-label>
    <marcus-label primo-type="text_resource">Telegram</marcus-label>
    <marcus-label primo-type="text_resource">Transkripsjon</marcus-label>
    <!-- <marcus-label primo-type="">Side</marcus-label>
            <marcus-label primo-type="">Segl</marcus-label>-->
  </types>
</xsl:variable>

<xsl:function name="flub:getPrimoTypeFromRdfTypeLabel">
  <xsl:param name="rdfTypeLabel"/>
  <xsl:variable name="oria-type" select="key('primo-type-from-marcus',$rdfTypeLabel,$types-table)"/>
  <xsl:if test="not($oria-type)">
    <xsl:message terminate="yes">flub:getPrimoTypeFromRdfTypeLabel():
      <xsl:value-of select="$rdfTypeLabel"/>er ikke mappet</xsl:message>
  </xsl:if>
  <xsl:value-of select="$oria-type"/>
</xsl:function>

<xsl:function name="flub:getRsrcTypeFromRdfTypeLabel">
  <xsl:param name="rdfTypeLabel"/>
  <xsl:variable name="primoType" select="flub:getPrimoTypeFromRdfTypeLabel($rdfTypeLabel)"/>
  <xsl:choose>
    <xsl:when test="$primoType = 'book'">
      <xsl:value-of select="'books'"/>
    </xsl:when>
    <xsl:when test="$primoType = 'journal'">
      <xsl:value-of select="'journals'"/>
    </xsl:when>
    <xsl:when test="$primoType = 'article'">
      <xsl:value-of select="'articles'"/>
    </xsl:when>
    <xsl:when test="$primoType = 'text_resource'">
      <xsl:value-of select="'text resources'"/>
    </xsl:when>
    <xsl:when test="$primoType = 'image'">
      <xsl:value-of select="'images'"/>
    </xsl:when>
    <xsl:when test="$primoType = 'audio'">
      <xsl:value-of select="'media'"/>
    </xsl:when>
    <xsl:when test="$primoType = 'video '">
      <xsl:value-of select="'media'"/>
    </xsl:when>
    <xsl:when test="$primoType = 'score'">
      <xsl:value-of select="' scores'"/>
    </xsl:when>
    <xsl:when test="$primoType ='map'">
      <xsl:value-of select="'maps'"/>
    </xsl:when>
    <xsl:otherwise>
      <xsl:value-of select="'others'"/>
    </xsl:otherwise>
  </xsl:choose>
</xsl:function>

<xsl:key name="primo-type-from-marcus" match="@primo-type" use="parent::marcus-label/text()"/>