Commit 1b7c198f authored by mrodzis's avatar mrodzis 🌿 Committed by Mathias Goebel
Browse files

Closes #130, minor formatting

parent b0fd83d5
...@@ -174,6 +174,7 @@ return ...@@ -174,6 +174,7 @@ return
</div> </div>
}; };
declare function local:textref($text as node()*) as node()*{ declare function local:textref($text as node()*) as node()*{
for $item in $text return for $item in $text return
if($item/parent::tei:ref) if($item/parent::tei:ref)
...@@ -200,6 +201,7 @@ for $item in $text return ...@@ -200,6 +201,7 @@ for $item in $text return
else $item else $item
}; };
declare function f-ueberblickskommentar:row($pos, $title, $path, $content){ declare function f-ueberblickskommentar:row($pos, $title, $path, $content){
<tr class="teiHeaderRow{if(replace(string-join($content), "\s", "") = 'Keine') then ' OutOfOrder' else ''}"> <tr class="teiHeaderRow{if(replace(string-join($content), "\s", "") = 'Keine') then ' OutOfOrder' else ''}">
<th scope="row"> <th scope="row">
...@@ -215,6 +217,7 @@ declare function f-ueberblickskommentar:row($pos, $title, $path, $content){ ...@@ -215,6 +217,7 @@ declare function f-ueberblickskommentar:row($pos, $title, $path, $content){
</tr> </tr>
}; };
declare function f-ueberblickskommentar:signatur($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:signatur($tei as element(tei:teiHeader)){
<ul> <ul>
<li>{$tei/tei:fileDesc/tei:sourceDesc/tei:msDesc/tei:msIdentifier/repository/text()} <li>{$tei/tei:fileDesc/tei:sourceDesc/tei:msDesc/tei:msIdentifier/repository/text()}
...@@ -230,12 +233,16 @@ declare function f-ueberblickskommentar:signatur($tei as element(tei:teiHeader)) ...@@ -230,12 +233,16 @@ declare function f-ueberblickskommentar:signatur($tei as element(tei:teiHeader))
</li> </li>
</ul> </ul>
}; };
declare function f-ueberblickskommentar:druckgeschichte($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:druckgeschichte($tei as element(tei:teiHeader)){
<ul>{ <ul>{
for $listBibl in $tei/tei:fileDesc/publicationStmt/ab/listBibl/listBibl[1] for $listBibl in $tei/tei:fileDesc/publicationStmt/ab/listBibl/listBibl[1]
return <li>{$listBibl/head/text()}<ul>{for $item in $listBibl/bibl return <li>{for $text in $item//text()[not(parent::tei:hi)] return local:textref($text)}</li>}</ul></li> return <li>{$listBibl/head/text()}<ul>{for $item in $listBibl/bibl return <li>{for $text in $item//text()[not(parent::tei:hi)] return local:textref($text)}</li>}</ul></li>
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:inhalt($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:inhalt($tei as element(tei:teiHeader)){
<ul> <ul>
<li>Herausgeber-Inhaltsverzeichnis <li>Herausgeber-Inhaltsverzeichnis
...@@ -245,6 +252,8 @@ declare function f-ueberblickskommentar:inhalt($tei as element(tei:teiHeader)){ ...@@ -245,6 +252,8 @@ declare function f-ueberblickskommentar:inhalt($tei as element(tei:teiHeader)){
</li> </li>
</ul> </ul>
}; };
declare function f-ueberblickskommentar:textsorten($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:textsorten($tei as element(tei:teiHeader)){
let $keywordsCat := $tei/profileDesc/textClass/keywords[@scheme] let $keywordsCat := $tei/profileDesc/textClass/keywords[@scheme]
return return
...@@ -267,34 +276,75 @@ declare function f-ueberblickskommentar:textsorten($tei as element(tei:teiHeader ...@@ -267,34 +276,75 @@ declare function f-ueberblickskommentar:textsorten($tei as element(tei:teiHeader
} }
</xhtml:ul> </xhtml:ul>
}; };
declare function f-ueberblickskommentar:fontanes-quellen($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:fontanes-quellen($tei as element(tei:teiHeader)){
if( not($tei//profileDesc/textDesc/derivation/*) ) then "Keine" else if( not($tei//profileDesc/textDesc/derivation/*) ) then "Keine" else
<ul>{for $type in distinct-values($tei//profileDesc/textDesc/derivation/linkGrp/link/string(@type)) <ul>{for $type in distinct-values($tei//profileDesc/textDesc/derivation/linkGrp/link/string(@type))
return return
<li>{switch($type) <li>
case 'mentioned' return 'Im Notizbuch von Fontane genannte Quellen' {
case 'ascertained' return 'Ermittelte Quellen' switch($type)
case 'ascertained' return 'Weitere ermittelte Quellen' case 'mentioned' return 'Im Notizbuch von Fontane genannte Quellen'
default return 'TODO @type' case 'ascertained' return 'Ermittelte Quellen'
} <ul> {for $link in $tei//profileDesc/textDesc/derivation/linkGrp/link[@type = $type] case 'ascertained' return 'Weitere ermittelte Quellen'
default return 'TODO @type'
}
<ul> {for $link in $tei//profileDesc/textDesc/derivation/linkGrp/link[@type = $type]
let $target := substring-after(substring-after($link/@target, ' '), ':') let $target := substring-after(substring-after($link/@target, ' '), ':')
let $litVZ := doc('/db/sade-projects/textgrid/data/xml/data/25547.xml')/tei:TEI let $litVZ := doc('/db/sade-projects/textgrid/data/xml/data/25547.xml')/tei:TEI
let $page := substring-after($link/@target, "_") => substring-before("_") let $page := substring-after($link/@target, "_") => substring-before("_")
return return
if(starts-with($link/@target, "http://textgridrep.org/")) if(starts-with($link/@target, "http://textgridrep.org/")) then
then
<xhtml:li> <xhtml:li>
<xhtml:a href="literaturvz.html?id={$target}">{ $litVZ//bibl[@xml:id = $target]//abbr/text() => replace("\.$", "")}</xhtml:a>; <xhtml:a href="literaturvz.html?id={$target}">
{if($link/@resp) then (' vgl. ', <xhtml:a href="literaturvz.html?id={substring-after($link/@resp, ':')}">{$litVZ//bibl[@xml:id = substring-after($link/@resp, ':')]//abbr/text()}</xhtml:a>, '.') else ()} {
if(exists($litVZ//bibl[@xml:id = $target]//bibl)) then
$litVZ//bibl[@xml:id = $target]/descendant::abbr[1]/text() => replace("\.$", "")
else
$litVZ//bibl[@xml:id = $target]//abbr/text() => replace("\.$", "")
}
</xhtml:a>;
{
if($link/@resp) then
(' vgl. ',
<xhtml:a href="literaturvz.html?id={substring-after($link/@resp, ':')}">
{$litVZ//bibl[@xml:id = substring-after($link/@resp, ':')]//abbr/text()}
</xhtml:a>, '.')
else
()
}
</xhtml:li> </xhtml:li>
else else
<xhtml:li> <xhtml:li>
<xhtml:a href="literaturvz.html?id={$target}">{ $litVZ//bibl[@xml:id = $target]//abbr/text() => replace("\.$", "")}</xhtml:a>; <xhtml:a href="literaturvz.html?id={$target}">
<xhtml:a href="edition.html?id={request:get-parameter("id", "")}&amp;page={$page}&amp;target={substring-before($link/@target, " ") => substring-after("#")}">Blatt {$page}</xhtml:a>. {
{if($link/@resp) then (' [Vgl. ', <xhtml:a href="literaturvz.html?id={substring-after($link/@resp, ':')}">{$litVZ//bibl[@xml:id = substring-after($link/@resp, ':')]//abbr/text()}</xhtml:a>, '.]') else ()} if(exists($litVZ//bibl[@xml:id = $target]//bibl)) then
$litVZ//bibl[@xml:id = $target]/descendant::abbr[1]/text() => replace("\.$", "")
else
$litVZ//bibl[@xml:id = $target]//abbr/text() => replace("\.$", "")
}
</xhtml:a>;
<xhtml:a href="edition.html?id={request:get-parameter("id", "")}&amp;page={$page}&amp;target={substring-before($link/@target, " ") => substring-after("#")}">
Blatt {$page}
</xhtml:a>.
{
if($link/@resp) then
(' [Vgl. ',
<xhtml:a href="literaturvz.html?id={substring-after($link/@resp, ':')}">
{
$litVZ//bibl[@xml:id = substring-after($link/@resp, ':')]//abbr/text()
}
</xhtml:a>, '.]')
else
()
}
</xhtml:li> </xhtml:li>
} </ul></li>}</ul> } </ul></li>}</ul>
}; };
declare function f-ueberblickskommentar:beilagen($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:beilagen($tei as element(tei:teiHeader)){
if(not($tei//msPart/*)) then "Keine" else if(not($tei//msPart/*)) then "Keine" else
<div> <div>
...@@ -319,6 +369,8 @@ declare function f-ueberblickskommentar:beilagen($tei as element(tei:teiHeader)) ...@@ -319,6 +369,8 @@ declare function f-ueberblickskommentar:beilagen($tei as element(tei:teiHeader))
</div> </div>
}; };
declare function f-ueberblickskommentar:entstehungszeit($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:entstehungszeit($tei as element(tei:teiHeader)){
let $lis := (<li>{if (exists($tei/profileDesc/creation/date[@type = 'authorial']//text()))then () else attribute class {'OutOfOrder'} }Fontanes Angabe: {if(exists($tei/profileDesc/creation/date[@type = 'authorial']//text())) then $tei/profileDesc/creation/date[@type = 'authorial']//text() else 'Keine'}</li>, let $lis := (<li>{if (exists($tei/profileDesc/creation/date[@type = 'authorial']//text()))then () else attribute class {'OutOfOrder'} }Fontanes Angabe: {if(exists($tei/profileDesc/creation/date[@type = 'authorial']//text())) then $tei/profileDesc/creation/date[@type = 'authorial']//text() else 'Keine'}</li>,
<li>{if (exists($tei/profileDesc/creation/date[@type = 'Friedrich_Fontane']//text()))then () else attribute class {'OutOfOrder'} }Friedrich Fontanes Angabe: {if(exists($tei/profileDesc/creation/date[@type = 'Friedrich_Fontane']//text())) then $tei/profileDesc/creation/date[@type = 'Friedrich_Fontane']//text() else 'Keine'}</li>, <li>{if (exists($tei/profileDesc/creation/date[@type = 'Friedrich_Fontane']//text()))then () else attribute class {'OutOfOrder'} }Friedrich Fontanes Angabe: {if(exists($tei/profileDesc/creation/date[@type = 'Friedrich_Fontane']//text())) then $tei/profileDesc/creation/date[@type = 'Friedrich_Fontane']//text() else 'Keine'}</li>,
...@@ -326,9 +378,13 @@ declare function f-ueberblickskommentar:entstehungszeit($tei as element(tei:teiH ...@@ -326,9 +378,13 @@ declare function f-ueberblickskommentar:entstehungszeit($tei as element(tei:teiH
return return
<ul>{$lis}</ul> <ul>{$lis}</ul>
}; };
declare function f-ueberblickskommentar:sprachen($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:sprachen($tei as element(tei:teiHeader)){
<ul>{for $lang in $tei/profileDesc/langUsage/language return <li>{$lang/text()}</li>}</ul> <ul>{for $lang in $tei/profileDesc/langUsage/language return <li>{$lang/text()}</li>}</ul>
}; };
declare function f-ueberblickskommentar:schreiberhaende($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:schreiberhaende($tei as element(tei:teiHeader)){
<ul>{for $hand in $tei/profileDesc/handNotes return <ul>{for $hand in $tei/profileDesc/handNotes return
switch($hand/number(@n)) switch($hand/number(@n))
...@@ -341,6 +397,8 @@ declare function f-ueberblickskommentar:schreiberhaende($tei as element(tei:teiH ...@@ -341,6 +397,8 @@ declare function f-ueberblickskommentar:schreiberhaende($tei as element(tei:teiH
default return () default return ()
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:schreibstoffe($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:schreibstoffe($tei as element(tei:teiHeader)){
<ul>{ <ul>{
for $hand in $tei/profileDesc/handNotes[@n = ("7", "8")] for $hand in $tei/profileDesc/handNotes[@n = ("7", "8")]
...@@ -351,6 +409,8 @@ declare function f-ueberblickskommentar:schreibstoffe($tei as element(tei:teiHea ...@@ -351,6 +409,8 @@ declare function f-ueberblickskommentar:schreibstoffe($tei as element(tei:teiHea
<li>{$h//text()}</li> <li>{$h//text()}</li>
)}</ul> )}</ul>
}; };
declare function f-ueberblickskommentar:duktus($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:duktus($tei as element(tei:teiHeader)){
<ul>{ <ul>{
for $h in $tei/profileDesc/handNotes[@n = "9"]/handNote for $h in $tei/profileDesc/handNotes[@n = "9"]/handNote
...@@ -368,6 +428,8 @@ declare function f-ueberblickskommentar:duktus($tei as element(tei:teiHeader)){ ...@@ -368,6 +428,8 @@ declare function f-ueberblickskommentar:duktus($tei as element(tei:teiHeader)){
</li> </li>
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:druckschriften($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:druckschriften($tei as element(tei:teiHeader)){
<ul>{ <ul>{
for $item in $tei//sourceDesc/msDesc/physDesc/typeDesc/ab for $item in $tei//sourceDesc/msDesc/physDesc/typeDesc/ab
...@@ -375,6 +437,8 @@ declare function f-ueberblickskommentar:druckschriften($tei as element(tei:teiHe ...@@ -375,6 +437,8 @@ declare function f-ueberblickskommentar:druckschriften($tei as element(tei:teiHe
<li>{local:textref($item//text()[not(parent::tei:hi)])}</li> <li>{local:textref($item//text()[not(parent::tei:hi)])}</li>
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:layout($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:layout($tei as element(tei:teiHeader)){
<ul>{ <ul>{
for $layout in $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/layoutDesc/layout for $layout in $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/layoutDesc/layout
...@@ -382,6 +446,8 @@ declare function f-ueberblickskommentar:layout($tei as element(tei:teiHeader)){ ...@@ -382,6 +446,8 @@ declare function f-ueberblickskommentar:layout($tei as element(tei:teiHeader)){
<li>{$layout//text() ! local:textref(.)}</li> <li>{$layout//text() ! local:textref(.)}</li>
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:umfang($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:umfang($tei as element(tei:teiHeader)){
let $unit := string($tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/extent/measure/@unit) let $unit := string($tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/extent/measure/@unit)
let $quantity := $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/extent/measure/@quantity let $quantity := $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/extent/measure/@quantity
...@@ -390,6 +456,8 @@ declare function f-ueberblickskommentar:umfang($tei as element(tei:teiHeader)){ ...@@ -390,6 +456,8 @@ declare function f-ueberblickskommentar:umfang($tei as element(tei:teiHeader)){
|| ' ' || ' '
|| (switch($unit) case 'leaf' return 'Blatt' default return 'TODO: Einheit übersetzen!!!') || (switch($unit) case 'leaf' return 'Blatt' default return 'TODO: Einheit übersetzen!!!')
}; };
declare function f-ueberblickskommentar:format($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:format($tei as element(tei:teiHeader)){
<ul>{ <ul>{
for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/extent/dimensions for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/extent/dimensions
...@@ -400,7 +468,8 @@ declare function f-ueberblickskommentar:format($tei as element(tei:teiHeader)){ ...@@ -400,7 +468,8 @@ declare function f-ueberblickskommentar:format($tei as element(tei:teiHeader)){
for $i in $item/* for $i in $item/*
return return
<li>{ <li>{
switch($i/local-name()) case 'width' return 'Breite' case 'height' return 'Höhe' case 'depth' return 'Tiefe' default return 'TODO: ' || $i/local-name() || ' übersetzen!!!'} switch($i/local-name()) case 'width' return 'Breite' case 'height' return 'Höhe' case 'depth' return 'Tiefe'
default return 'TODO: ' || $i/local-name() || ' übersetzen!!!'}
&#x20; &#x20;
{string($i/@quantity)} {string($i/@quantity)}
{string($i/@unit) {string($i/@unit)
...@@ -409,9 +478,11 @@ declare function f-ueberblickskommentar:format($tei as element(tei:teiHeader)){ ...@@ -409,9 +478,11 @@ declare function f-ueberblickskommentar:format($tei as element(tei:teiHeader)){
}</li> }</li>
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:einband($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:einband($tei as element(tei:teiHeader)){
<p>{$tei/fileDesc/sourceDesc/msDesc/physDesc/bindingDesc//text()}</p> <p>{$tei/fileDesc/sourceDesc/msDesc/physDesc/bindingDesc//text()}</p>
}; };
declare function f-ueberblickskommentar:anklebungen($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:anklebungen($tei as element(tei:teiHeader)){
let $types := distinct-values( $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/support/ab/hi/string(.) ) let $types := distinct-values( $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/support/ab/hi/string(.) )
let $out := let $out :=
...@@ -429,6 +500,7 @@ declare function f-ueberblickskommentar:anklebungen($tei as element(tei:teiHeade ...@@ -429,6 +500,7 @@ declare function f-ueberblickskommentar:anklebungen($tei as element(tei:teiHeade
</ul> </ul>
return if(not($out//li)) then 'Keine' else $out return if(not($out//li)) then 'Keine' else $out
}; };
declare function f-ueberblickskommentar:blattfragmente($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:blattfragmente($tei as element(tei:teiHeader)){
<ul>{for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/support/ab[hi/string(.) = 'Blattfragmente:'] <ul>{for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/support/ab[hi/string(.) = 'Blattfragmente:']
let $empty := starts-with(($item//text())[2], ' Keine') let $empty := starts-with(($item//text())[2], ' Keine')
...@@ -447,6 +519,7 @@ declare function f-ueberblickskommentar:blattfragmente($tei as element(tei:teiHe ...@@ -447,6 +519,7 @@ declare function f-ueberblickskommentar:blattfragmente($tei as element(tei:teiHe
}</ul></li> }</ul></li>
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:vakat-seiten($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:vakat-seiten($tei as element(tei:teiHeader)){
<ul>{ <ul>{
for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/support/ab[hi/string(.) = 'Vakat-Seiten:'] for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/support/ab[hi/string(.) = 'Vakat-Seiten:']
...@@ -455,6 +528,7 @@ declare function f-ueberblickskommentar:vakat-seiten($tei as element(tei:teiHead ...@@ -455,6 +528,7 @@ declare function f-ueberblickskommentar:vakat-seiten($tei as element(tei:teiHead
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:skizzen($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:skizzen($tei as element(tei:teiHeader)){
<ul>{ <ul>{
for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/decoDesc/ab[hi/string(.) = 'Skizzen:'] for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/decoDesc/ab[hi/string(.) = 'Skizzen:']
...@@ -464,12 +538,15 @@ declare function f-ueberblickskommentar:skizzen($tei as element(tei:teiHeader)){ ...@@ -464,12 +538,15 @@ declare function f-ueberblickskommentar:skizzen($tei as element(tei:teiHeader)){
}</li> }</li>
}</ul> }</ul>
}; };
declare function f-ueberblickskommentar:stempel($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:stempel($tei as element(tei:teiHeader)){
<ul>{for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/additions/ab[hi/string(.) = 'Stempel:'] return <li>{for $text in $item//text()[not(parent::tei:hi)] return local:textref($text)}</li>}</ul> <ul>{for $item in $tei/fileDesc/sourceDesc/msDesc/physDesc/additions/ab[hi/string(.) = 'Stempel:'] return <li>{for $text in $item//text()[not(parent::tei:hi)] return local:textref($text)}</li>}</ul>
}; };
declare function f-ueberblickskommentar:foliierung($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:foliierung($tei as element(tei:teiHeader)){
$tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/foliation//text() $tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/foliation//text()
}; };
declare function f-ueberblickskommentar:besonderheiten($tei as element(tei:teiHeader)){ declare function f-ueberblickskommentar:besonderheiten($tei as element(tei:teiHeader)){
let $items := $tei//sourceDesc/msDesc/physDesc/handDesc/ab let $items := $tei//sourceDesc/msDesc/physDesc/handDesc/ab
(: Do we find only entries with "Keine" in our sequence of Elements? :) (: Do we find only entries with "Keine" in our sequence of Elements? :)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment