| {lastIndex := if (. castable as xs:integer) then xs:integer(.) else get("lastIndex", 1) } |
{
book := {
"title": extract(., "^[^/]+"),
"author": extract(., "^[^/]+/([^-]+)", 1),
"publisher": extract(., "-([^-]+)$", 1),
"_searchId": encode-for-uri(concat("ZTEXT ", extract(@href, "\('(.*)'\)", 1))),
"_index": $lastIndex
}
}
Volltext |
{book.year := ., lastSearchedIndex := $lastIndex} |
- { let $props := .//div[contains(@class, "rList_")] return ( lastIndex := xs:integer($props[contains(@class, "rList_num") or contains(@class, "r_list_name" (:ulm only:) )][matches(., "^[0-9]+\s*$")][1] ), if ($lastIndex > $lastSearchedIndex) then ( lastSearchedIndex := $lastIndex, let $title := $props[contains(@class, "rList_titel")][1], $year := $props[contains(@class, "rList_jahr")][1], $name := normalize-space(translate(join($props[contains(@class, "rList_name")]), " ", " ")), $name := if ($name) then $name else $props[contains(@class, "r_list_name")][last()], (:ulm only:) $ava := $props[contains(@class, "rList_availability")]//img[1] return (book := { "title": $title, "_searchId": encode-for-uri(concat("ZTEXT ", extract($title//a/@href, "\('(.*)'\)", 1))), "_index": $lastIndex }, $year ! ($book.year := .), $name ! ( let $temp := tokenize(., " - ")!normalize-space(), $year := $temp[last()][. castable as xs:integer], $autpubcount := count($temp) - (if (exists($year)) then (1, $book.year := $year)[1] else 0) return switch ($autpubcount) case 0 return () case 1 return $book.author := $temp[1] default return ( $book.author := $temp[1], $book.publisher := $temp[$autpubcount] ) ), $ava ! ($book.statusId := local:img-to-status(.)) ) ) else () ) } +