Open Library

01 return JSON from Open Library.xq

xquery version "3.1";

let $uri := "http://openlibrary.org/search.json?title=digital+humanities"
let $json := fetch:text($uri)

return $json

02 return XML from JSON.xq

xquery version "3.1";

let $uri := "http://openlibrary.org/search.json?title=digital+humanities"
let $json := fetch:text($uri)
let $xml := fn:json-to-xml($json)

return $xml

03 return ISBNs as XML.xq

xquery version "3.1";

declare namespace xf = "http://www.w3.org/2005/xpath-functions";

let $uri := "http://openlibrary.org/search.json?title=digital+humanities"
let $json := fetch:text($uri)
let $xml := fn:json-to-xml($json)
let $isbns :=
  for $isbn in $xml//xf:array[@key="isbn"]/xf:string/text()
  return element isbn {$isbn}
  
return $isbns

04 return ISBNs as XML function.xq

xquery version "3.1";

declare namespace xf = "http://www.w3.org/2005/xpath-functions";
  
declare function local:get-isbn-by-title($book-title as xs:string) as element()* {
  let $url := "http://openlibrary.org/search.json?title=" || fn:translate($book-title, " ", "+")
  let $json := fetch:text($url)
  let $isbn-data := fn:json-to-xml($json)
  for $isbn in $isbn-data//xf:array[@key="isbn"]/xf:string/text()
  return element isbn {$isbn}
};

let $book := "Digital Humanities"
let $isbns := local:get-isbn-by-title($book)

return $isbns

05 return volume from ISBN function.xq

xquery version "3.1";

declare function local:get-volume-by-isbn($isbn as xs:string) as element()* {
  let $url := "http://openlibrary.org/api/volumes/brief/isbn/" || $isbn || ".json"
  let $json := fetch:text($url)
  let $volume-data := fn:json-to-xml($json)
  for $volume in $volume-data
  return element volume {$volume}
};

let $isbn := "0262018470"
let $volume := local:get-volume-by-isbn($isbn)

return $volume

06 return volumes as XML from ISBN from title function.xq

xquery version "3.1";

declare namespace xf = "http://www.w3.org/2005/xpath-functions";
  
declare function local:get-isbn-by-title($book-title as xs:string) as element()* {
  let $url := "http://openlibrary.org/search.json?title=" || fn:translate($book-title, " ", "+")
  let $json := fetch:text($url)
  let $isbn-data := fn:json-to-xml($json)
  for $isbn in $isbn-data//xf:array[@key="isbn"]/xf:string/text()
  return element isbn {$isbn}
};

declare function local:get-volume-by-isbn($isbn as xs:string) as element()* {
  let $url := "http://openlibrary.org/api/volumes/brief/isbn/" || $isbn || ".json"
  let $json := fetch:text($url)
  let $volume-data := fn:json-to-xml($json)
  for $volume in $volume-data
  return element volume {$volume}
};

let $book := "Digital Humanities"
let $records := local:get-isbn-by-title($book)
let $volumes :=
  for $record in $records
  return local:get-volume-by-isbn($record)
  
return $volumes

07 return record URIs as XML from volumes from ISBN from title function.xq

xquery version "3.1";

declare namespace xf = "http://www.w3.org/2005/xpath-functions";
  
declare function local:get-isbn-by-title($book-title as xs:string) as element()* {
  let $url := "http://openlibrary.org/search.json?title=" || fn:translate($book-title, " ", "+")
  let $json := fetch:text($url)
  let $isbn-data := fn:json-to-xml($json)
  for $isbn in $isbn-data//xf:array[@key="isbn"]/xf:string/text()
  return element isbn {$isbn}
};

declare function local:get-recorduri-by-isbn($isbn as xs:string) as element()* {
  let $url := "http://openlibrary.org/api/volumes/brief/isbn/" || $isbn || ".json"
  let $json := fetch:text($url)
  let $volume-data := fn:json-to-xml($json)
  for $record-uri in $volume-data//xf:string[@key="recordURL"]/text()
  return element record_uri {$record-uri}
};

let $book := "Digital Humanities"
let $records := local:get-isbn-by-title($book)
let $uris :=
  for $record in $records
  return local:get-recorduri-by-isbn($record)

return $uris