Mercurial > hg > mpdl-group

comparison software/eXist/webapp/mpdl/interface/page-fragment.xql @ 17:7e883ce72fec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
diverse Fehlerbehebungen
author Josef Willenborg <jwillenborg@mpiwg-berlin.mpg.de>
date Tue, 27 Sep 2011 16:41:15 +0200
parents e99964f390e4
children
comparison
equal deleted inserted replaced
16:257f67be5c00 17:7e883ce72fec
32 then "reg,norm" 32 then "reg,norm"
33 else $tmpCharNorm 33 else $tmpCharNorm
34 let $reqExport := request:get-parameter("export", "") 34 let $reqExport := request:get-parameter("export", "")
35 let $options := string(request:get-parameter("options", "")) 35 let $options := string(request:get-parameter("options", ""))
36 36
37 let $presentationPath := "/db/mpdl/presentation" 37 let $presentationPath := "/mpdl/presentation"
38 (: e.g. mpdlCollectioName is derived from mpdlDocUri: /archimedes/la/yourDoc.xml :) 38 (: e.g. mpdlCollectioName is derived from mpdlDocUri: /archimedes/la/yourDoc.xml :)
39 let $documentName := substring-before(substring-after(substring-after(substring-after($mpdlDocUri, "/"), "/"), "/"), ".") 39 let $documentName := substring-before(substring-after(substring-after(substring-after($mpdlDocUri, "/"), "/"), "/"), ".")
40 let $language := substring-before(substring-after(substring-after($mpdlDocUri, "/"), "/"), "/") 40 let $language := substring-before(substring-after(substring-after($mpdlDocUri, "/"), "/"), "/")
41 let $docbase := substring-before(substring-after($mpdlDocUri, "/"), "/") 41 let $docbase := substring-before(substring-after($mpdlDocUri, "/"), "/")
42 let $fullDocumentUri := concat('/db/mpdl/documents/morph', $mpdlDocUri) 42 let $fullDocumentUri := concat('/db/mpdl/documents/morph', $mpdlDocUri)
48 then $document/archimedes/info 48 then $document/archimedes/info
49 else if ($docbase = 'echo') 49 else if ($docbase = 'echo')
50 then $document/echo:echo/echo:metadata 50 then $document/echo:echo/echo:metadata
51 else if ($docbase = 'tei') 51 else if ($docbase = 'tei')
52 then $document/TEI:TEI/TEI:teiHeader 52 then $document/TEI:TEI/TEI:teiHeader
53 else '' 53 else ()
54 54
55 let $pageBreaks := 55 let $pageBreaks :=
56 if ($docbase = 'archimedes') 56 if ($docbase = 'archimedes')
57 then $document//pb 57 then $document//pb
58 else if ($docbase = 'echo') 58 else if ($docbase = 'echo')
59 then $document//echo:pb 59 then $document//echo:pb
60 else if ($docbase = 'tei') 60 else if ($docbase = 'tei')
61 then $document//TEI:pb 61 then $document//TEI:pb
62 else $document//pb 62 else $document//*:pb
63 let $countPagesTemp := count($pageBreaks) 63 let $countPagesTemp := count($pageBreaks)
64 let $countPages := 64 let $countPages :=
65 if ($countPagesTemp > 0) 65 if ($countPagesTemp > 0)
66 then $countPagesTemp 66 then $countPagesTemp
67 else 1 67 else 1
244 if(not(empty($externalElements))) 244 if(not(empty($externalElements)))
245 then true() 245 then true()
246 else false() 246 else false()
247 let $returnPageFragmentWithExtObjects := 247 let $returnPageFragmentWithExtObjects :=
248 <result> 248 <result>
249 <options>{$options}</options>
249 <externalElements>{$externalElements}</externalElements> 250 <externalElements>{$externalElements}</externalElements>
250 <xpointer>{$xPointer}</xpointer> 251 <xpointer>{$xPointer}</xpointer>
251 <fragment>{$returnPageFragmentTmp}</fragment> 252 <fragment>{$returnPageFragmentTmp}</fragment>
252 </result> 253 </result>
253 let $returnPageFragment := 254 let $returnPageFragment :=
254 if (contains($options, "withXmlNodeId") or $containsExternalElements or $xPointer != '') 255 if (contains($options, "withXmlNodeId") or contains($options, "withIdentifier") or $containsExternalElements or $xPointer != '')
255 then mpdl-text:transform($returnPageFragmentWithExtObjects, concat($presentationPath, "/insertExternalElements.xsl")) 256 then mpdl-text:transform($returnPageFragmentWithExtObjects, concat($presentationPath, "/insertExternalElements.xsl"))
256 else $returnPageFragmentTmp 257 else $returnPageFragmentTmp
257 258
258 let $pageFigureAnchors := $returnPageFragment//anchor[@type = 'figure'] 259 let $pageFigureAnchors := $returnPageFragment//anchor[@type = 'figure']
259 let $pageFigures := 260 let $pageFigures :=
388 then <error><number>{$errorCode}</number><description>No result: Page {$pn} not found</description></error> 389 then <error><number>{$errorCode}</number><description>No result: Page {$pn} not found</description></error>
389 else if ($errorCode = 12) 390 else if ($errorCode = 12)
390 then <error><number>{$errorCode}</number><description>View mode {$mode} not available</description></error> 391 then <error><number>{$errorCode}</number><description>View mode {$mode} not available</description></error>
391 else <error><number>{$errorCode}</number><description>undefined error: {$errorCode}</description></error> 392 else <error><number>{$errorCode}</number><description>undefined error: {$errorCode}</description></error>
392 393
393 let $declare := 394 let $outputProperties :=
394 if ($errorCode > 9 or $mode = "text" or $mode = "textPollux" or $mode = "gis" or $mode = "image" or $mode = "xml") 395 if ($errorCode > 9 or $mode = "text" or $mode = "textPollux" or $mode = "gis" or $mode = "image" or $mode = "xml")
395 then util:declare-option("exist:serialize", "method=xhtml media-type=text/html omit-xml-declaration=no indent=no encoding=utf-8") 396 then "method=xhtml media-type=text/html omit-xml-declaration=no indent=no encoding=utf-8"
396 else if ($mode = "pureXml") 397 else if ($mode = "pureXml")
397 then util:declare-option("exist:serialize", "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8") 398 then "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8"
398 else util:declare-option("exist:serialize", "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8") 399 else "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8"
400 let $declare := util:declare-option("exist:serialize", $outputProperties)
399 let $xslFilePath := 401 let $xslFilePath :=
400 if($mode = "text" or $mode = "textPollux" or $mode = "gis" or $mode = "image" or $mode = "xml") 402 if($mode = "text" or $mode = "textPollux" or $mode = "gis" or $mode = "image" or $mode = "xml")
401 then concat($presentationPath, "/pageFragmentHtml.xsl") 403 then concat($presentationPath, "/pageFragmentHtml.xsl")
402 else concat($presentationPath, "/pageXml.xsl") 404 else concat($presentationPath, "/pageXml.xsl")
403 405