Schnittstelle für die Webseite des aDIS-Systems. Vollständige Internet-Adresse der Bibliothek (mit https:// und meistens mit aDISWeb/app) Alternative zur vollständigen Adresse: reiner Servername, (z.B.: ssl.muenchen.de) Alternative zur vollständigen Adresse: Parameter in der URL nach aDISWeb/app für Server, auf denen mehrere Bibliothekssysteme laufen $sessions-reconnects := 3, $fullurl := get("fullurl", ()) otherwise concat("https://", get("server"), "/aDISWeb/app", get('startparams')) error-login := () i := 1

{$error-login := ., i := 1000}

{$error-login := ., i := 1000}

{$error-login := ., i := 1000}

Keine Ausleiheni:=1000 i:=1000 Mein KontologinFormPost := .
{ $loginFormPost := form(., ( (.//input[@name="j_username"])[1]/{"j_username": $username, "j_password": $password}, (.//*[@name="_eventId_proceed"])[1] )) }
{$loginFormPost} {$loginFormPost}
{$loginFormPost := form(.)}
{$loginFormPost} $i := $i + 1 $loginFormPost := () connect-target := "account", connectPage := () vl:raise("Der Bibliothekskatalog ist momentan temporär nicht erreichbar. Vermutlich werden Wartungsarbeiten durchgeführt (insbesondere bei den VÖBB)") lf := $loginForm, loginForm := (), loginFormPost := () $sessions-reconnects := $sessions-reconnects - 1 if (exists($error-login)) then vl:raise-login($error-login) else $first-login := true() nextSplitTable := false(), $splitIndex := 1, $splitCount := 0, mode:="lend" $splitIndex := $splitIndex + 1, $nextSplitTable := () mode:="orderedMagazine" mode:="provided" mode:="ordered" mode:="requested" mode:="lend" string-join(for $book in $renew-books return x"{$book.extendid}=on", "&") $renew-splits := distinct-values($renew-books ! (.)._splitIndex) string-join(for $book in $renew-books[(.)._splitIndex = $splitIndex] return x"{$book.extendid}=on", "&") page := switch ($mode) case 'ordered' return $orderedPage case 'requested' return $requestedPage case 'orderedMagazine' return $orderedMagazinePage case 'provided' return $providedPage default return concat("unknown page ", $mode, "NEU AKTUALISIEREN")
{ cancelFormPost := form(., (.//input[@type = "submit" and contains(@value, "arkierte") and contains(@value, "schen")])[1]), cancelFormPost.post := replace($cancelFormPost.post, "[a-zA-Z0-9]+=on&", "") }
 string-join(for $book in $cancel-books[(.)._mode = $mode] return x"{$book.cancelid}=on", "&") connect-target := "search", connectPage := () searchPage := (), lastSearchedIndex := lastSearchedIndexWithNavigation := 0, search-result-count := (), search-next-page-available := (), gotDetails_GoBackPage := (), firstIndex := 1, lastIndex := 0, startSearch := form(//form, ({| { $search-basic-input-year: $book.year }, for $key in jn:keys($book) where $book($key) and $search-basic-options($key) count $i return {$search-basic-selects[$i]: $search-basic-options($key), $search-basic-inputs[$i]: $book($key)}, for $key in jn:keys($book) where $book($key) and $search-filter-map($key) return {$search-filter-map($key): $book($key)} |}, $search-start-button) ) targetIndex := $lastSearchedIndex + 1, $goback := get('goback', ()) $book._index * 1 form := request-combine($form, "selected=" || $book._searchId) $book._index * 1 form := request-combine($form, "selected=" || $book._searchId)
{form:=form(., (.//input[@type = "submit" and contains(@value, "Bestell")])[1])}
 subBookOnly := false(), error := (), internal-loggedin := true()
{backButtonName := uri-encode(@name)} {backButtonName := uri-encode(@name)} {goBackPage := form(., x"{$backButtonName}.x=0&{$backButtonName}.y=0")}
Band{vl:choose("internal-order-volume", "Welcher Band soll bestellt werden?", a/substring(normalize-space(.), 1, 75), a/@href)}
 error := $error-login
{$goBackPage}
 true() $loginFormPost error:=() vl:raise($error) form := $choose-result { "url": $form.url, "method": $form.method, "post": replace($form.post, "_DESTINATIONFILLER_", $choose-result) } oldmessage:=(), final-form := () if (empty($error)) then book.statusId := "ordered" else vl:raise($error)