Commit 7b68c7d8 authored by Mathias Goebel's avatar Mathias Goebel 🎠
Browse files

Merge branch 'bugfix/#130-ueberblickskommentar' into 'develop'

Closes #130, minor formatting

Closes #130

See merge request !55
parents b0fd83d5 1b7c198f
......@@ -174,6 +174,7 @@ return
</div>
};
declare function local:textref($text as node()*) as node()*{
for $item in $text return
if($item/parent::tei:ref)
......@@ -200,6 +201,7 @@ for $item in $text return
else $item
};
declare function f-ueberblickskommentar:row($pos, $title, $path, $content){
<tr class="teiHeaderRow{if(replace(string-join($content), "\s", "") = 'Keine') then ' OutOfOrder' else ''}">
<th scope="row">
......@@ -215,6 +217,7 @@ declare function f-ueberblickskommentar:row($pos, $title, $path, $content){
</tr>
};
declare function f-ueberblickskommentar:signatur($tei as element(tei:teiHeader)){
<ul>
<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))
</li>
</ul>
};
declare function f-ueberblickskommentar:druckgeschichte($tei as element(tei:teiHeader)){
<ul>{
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>
}</ul>
};
declare function f-ueberblickskommentar:inhalt($tei as element(tei:teiHeader)){
<ul>
<li>Herausgeber-Inhaltsverzeichnis
......@@ -245,6 +252,8 @@ declare function f-ueberblickskommentar:inhalt($tei as element(tei:teiHeader)){
</li>
</ul>
};
declare function f-ueberblickskommentar:textsorten($tei as element(tei:teiHeader)){
let $keywordsCat := $tei/profileDesc/textClass/keywords[@scheme]
return
......@@ -267,34 +276,75 @@ declare function f-ueberblickskommentar:textsorten($tei as element(tei:teiHeader
}
</xhtml:ul>
};
declare function f-ueberblickskommentar:fontanes-quellen($tei as element(tei:teiHeader)){
if( not($tei//profileDesc/textDesc/derivation/*) ) then "Keine" else
<ul>{for $type in distinct-values($tei//profileDesc/textDesc/derivation/linkGrp/link/string(@type))
return
<li>{switch($type)
case 'mentioned' return 'Im Notizbuch von Fontane genannte Quellen'
case 'ascertained' return 'Ermittelte Quellen'
case 'ascertained' return 'Weitere ermittelte Quellen'
default return 'TODO @type'
} <ul> {for $link in $tei//profileDesc/textDesc/derivation/linkGrp/link[@type = $type]
<li>
{
switch($type)
case 'mentioned' return 'Im Notizbuch von Fontane genannte Quellen'
case 'ascertained' return 'Ermittelte Quellen'
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 $litVZ := doc('/db/sade-projects/textgrid/data/xml/data/25547.xml')/tei:TEI
let $page := substring-after($link/@target, "_") => substring-before("_")
return
if(starts-with($link/@target, "http://textgridrep.org/"))
then
if(starts-with($link/@target, "http://textgridrep.org/")) then
<xhtml:li>
<xhtml:a href="literaturvz.html?id={$target}">{ $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:a href="literaturvz.html?id={$target}">
{
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>
else
<xhtml:li>
<xhtml:a href="literaturvz.html?id={$target}">{ $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:a href="literaturvz.html?id={$target}">
{
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>
} </ul></li>}</ul>
};
declare function f-ueberblickskommentar:beilagen($tei as element(tei:teiHeader)){
if(not($tei//msPart/*)) then "Keine" else
<div>
......@@ -319,6 +369,8 @@ declare function f-ueberblickskommentar:beilagen($tei as element(tei:teiHeader))
</div>
};
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>,
<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
return
<ul>{$lis}</ul>
};
declare function f-ueberblickskommentar:sprachen($tei as element(tei:teiHeader)){
<ul>{for $lang in $tei/profileDesc/langUsage/language return <li>{$lang/text()}</li>}</ul>
};
declare function f-ueberblickskommentar:schreiberhaende($tei as element(tei:teiHeader)){
<ul>{for $hand in $tei/profileDesc/handNotes return
switch($hand/number(@n))
......@@ -341,6 +397,8 @@ declare function f-ueberblickskommentar:schreiberhaende($tei as element(tei:teiH
default return ()
}</ul>
};
declare function f-ueberblickskommentar:schreibstoffe($tei as element(tei:teiHeader)){
<ul>{
for $hand in $tei/profileDesc/handNotes[@n = ("7", "8")]
......@@ -351,6 +409,8 @@ declare function f-ueberblickskommentar:schreibstoffe($tei as element(tei:teiHea
<li>{$h//text()}</li>
)}</ul>
};
declare function f-ueberblickskommentar:duktus($tei as element(tei:teiHeader)){
<ul>{
for $h in $tei/profileDesc/handNotes[@n = "9"]/handNote
......@@ -368,6 +428,8 @@ declare function f-ueberblickskommentar:duktus($tei as element(tei:teiHeader)){
</li>
}</ul>
};
declare function f-ueberblickskommentar:druckschriften($tei as element(tei:teiHeader)){
<ul>{
for $item in $tei//sourceDesc/msDesc/physDesc/typeDesc/ab
......@@ -375,6 +437,8 @@ declare function f-ueberblickskommentar:druckschriften($tei as element(tei:teiHe
<li>{local:textref($item//text()[not(parent::tei:hi)])}</li>
}</ul>
};
declare function f-ueberblickskommentar:layout($tei as element(tei:teiHeader)){
<ul>{
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)){
<li>{$layout//text() ! local:textref(.)}</li>
}</ul>
};
declare function f-ueberblickskommentar:umfang($tei as element(tei:teiHeader)){
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
......@@ -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!!!')
};
declare function f-ueberblickskommentar:format($tei as element(tei:teiHeader)){
<ul>{
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)){
for $i in $item/*
return
<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;
{string($i/@quantity)}
{string($i/@unit)
......@@ -409,9 +478,11 @@ declare function f-ueberblickskommentar:format($tei as element(tei:teiHeader)){
}</li>
}</ul>
};
declare function f-ueberblickskommentar:einband($tei as element(tei:teiHeader)){
<p>{$tei/fileDesc/sourceDesc/msDesc/physDesc/bindingDesc//text()}</p>
};
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 $out :=
......@@ -429,6 +500,7 @@ declare function f-ueberblickskommentar:anklebungen($tei as element(tei:teiHeade
</ul>
return if(not($out//li)) then 'Keine' else $out
};
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:']
let $empty := starts-with(($item//text())[2], ' Keine')
......@@ -447,6 +519,7 @@ declare function f-ueberblickskommentar:blattfragmente($tei as element(tei:teiHe
}</ul></li>
}</ul>
};
declare function f-ueberblickskommentar:vakat-seiten($tei as element(tei:teiHeader)){
<ul>{
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
}</ul>
};
declare function f-ueberblickskommentar:skizzen($tei as element(tei:teiHeader)){
<ul>{
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)){
}</li>
}</ul>
};
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>
};
declare function f-ueberblickskommentar:foliierung($tei as element(tei:teiHeader)){
$tei/fileDesc/sourceDesc/msDesc/physDesc/objectDesc/supportDesc/foliation//text()
};
declare function f-ueberblickskommentar:besonderheiten($tei as element(tei:teiHeader)){
let $items := $tei//sourceDesc/msDesc/physDesc/handDesc/ab
(: 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