Mercurial > hg > mpdl-group

comparison software/eXist/webapp/mpdl/page-query-result.xql @ 13:469d927b9ca7

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, 19 Apr 2011 16:51:59 +0200
parents d6f528ad5d96
children e99964f390e4
comparison
equal deleted inserted replaced
12:fba5577e49d9 13:469d927b9ca7
19 let $queryType := request:get-parameter("query-type", "") 19 let $queryType := request:get-parameter("query-type", "")
20 let $mode := request:get-parameter("mode", "image") 20 let $mode := request:get-parameter("mode", "image")
21 let $reqPN := number(request:get-parameter("pn", "-1")) 21 let $reqPN := number(request:get-parameter("pn", "-1"))
22 let $reqPF := request:get-parameter("pf", "") 22 let $reqPF := request:get-parameter("pf", "")
23 let $reqSN := number(request:get-parameter("sn", "-1")) 23 let $reqSN := number(request:get-parameter("sn", "-1"))
24 let $xPointer := request:get-parameter("xpointer", "")
24 let $query := request:get-parameter("query", "") 25 let $query := request:get-parameter("query", "")
25 let $reqQueryResultPN := request:get-parameter("query-result-pn", "") 26 let $reqQueryResultPN := request:get-parameter("query-result-pn", "")
26 let $queryResultPN := 27 let $queryResultPN :=
27 if ($reqQueryResultPN = '' or $reqQueryResultPN = '0') 28 if ($reqQueryResultPN = '' or $reqQueryResultPN = '0')
28 then 1 29 then 1
271 else if ($mode = "textPollux") 272 else if ($mode = "textPollux")
272 then mpdltext:dictionarize($pageFragmentNormalized, $language) 273 then mpdltext:dictionarize($pageFragmentNormalized, $language)
273 else () 274 else ()
274 let $returnPageFragmentTmp := util:parse($retPageFragment) (: returns a valid xml document for that string :) 275 let $returnPageFragmentTmp := util:parse($retPageFragment) (: returns a valid xml document for that string :)
275 276
276 let $externalElementsTmpTmp := mpdltext:externalObject("read", "element", concat("<object uid='joe' documentId='", $mpdlDocUri, "' pageNumber='", $pn, "'></object>")) 277 let $externalElementsTmpTmp := mpdltext:externalObject("read", "element", concat("<object uid=&quot;joe&quot; documentId=&quot;", $mpdlDocUri, "&quot; xpointer=&quot;", "#xpointer(id(", "'page", $pn, "'", "))&quot;></object>"))
277 let $externalElementsTmp := 278 let $externalElementsTmp :=
278 if(not($externalElementsTmpTmp = "")) 279 if(not($externalElementsTmpTmp = ""))
279 then util:parse($externalElementsTmpTmp) 280 then util:parse($externalElementsTmpTmp)
280 else () 281 else ()
281 let $externalElements := $externalElementsTmp/result/object 282 let $externalElements := $externalElementsTmp/result/object
284 then true() 285 then true()
285 else false() 286 else false()
286 let $returnPageFragmentWithExtObjects := 287 let $returnPageFragmentWithExtObjects :=
287 <result> 288 <result>
288 <externalElements>{$externalElements}</externalElements> 289 <externalElements>{$externalElements}</externalElements>
290 <xpointer>{$xPointer}</xpointer>
289 <fragment>{$returnPageFragmentTmp}</fragment> 291 <fragment>{$returnPageFragmentTmp}</fragment>
290 </result> 292 </result>
291 let $returnPageFragment := 293 let $returnPageFragment :=
292 if (contains($options, "withXmlNodeId") or $containsExternalElements) 294 if (contains($options, "withXmlNodeId") or $containsExternalElements or $xPointer != '')
293 then mpdl-text:transform($returnPageFragmentWithExtObjects, concat($presentationPath, "/insertExternalElements.xsl")) 295 then mpdl-text:transform($returnPageFragmentWithExtObjects, concat($presentationPath, "/insertExternalElements.xsl"))
294 else $returnPageFragmentTmp 296 else $returnPageFragmentTmp
295 297
296 let $pageFigureAnchors := $returnPageFragment//anchor[@type = 'figure'] 298 let $pageFigureAnchors := $returnPageFragment//anchor[@type = 'figure']
297 let $pageFigures := 299 let $pageFigures :=
397 {$queryResult} 399 {$queryResult}
398 </query> 400 </query>
399 <performance>{$neededTime}</performance> 401 <performance>{$neededTime}</performance>
400 </result> 402 </result>
401 else if ($errorCode = 10) 403 else if ($errorCode = 10)
402 then <error><number>{$errorCode}</number><description>Fulltext document: {$mpdlDocUri} is not available yet</description></error> 404 then <error><number>{$errorCode}</number><description>Can't find fulltext document: {$mpdlDocUri} </description></error>
403 else if ($errorCode = 11) 405 else if ($errorCode = 11)
404 then <error><number>{$errorCode}</number><description>No result: Page {$pn} not found</description></error> 406 then <error><number>{$errorCode}</number><description>No result: Page {$pn} not found</description></error>
405 else if ($errorCode = 12) 407 else if ($errorCode = 12)
406 then <error><number>{$errorCode}</number><description>View mode {$mode} not available</description></error> 408 then <error><number>{$errorCode}</number><description>View mode {$mode} not available</description></error>
407 else <error><number>{$errorCode}</number><description>undefined error: {$errorCode}</description></error> 409 else <error><number>{$errorCode}</number><description>undefined error: {$errorCode}</description></error>
408 410
409 let $declare := 411 let $declare :=
410 if ($errorCode > 9 or $mode = "text" or $mode = "textPollux" or $mode = "gis" or $mode = "image" or $mode = "xml") 412 if ($errorCode > 9 or $mode = "text" or $mode = "textPollux" or $mode = "gis" or $mode = "image" or $mode = "xml")
411 then util:declare-option("exist:serialize", "method=xhtml media-type=text/html omit-xml-declaration=no indent=yes encoding=utf-8") 413 then util:declare-option("exist:serialize", "method=xhtml media-type=text/html omit-xml-declaration=no indent=no encoding=utf-8")
412 else if ($mode = "pureXml") 414 else if ($mode = "pureXml")
413 then util:declare-option("exist:serialize", "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8") 415 then util:declare-option("exist:serialize", "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8")
414 else util:declare-option("exist:serialize", "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8") 416 else util:declare-option("exist:serialize", "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8")
415 let $xslFilePath := 417 let $xslFilePath :=
416 if($reqExport = "pdf") 418 if($reqExport = "pdf")