(Lianja) SCIS Search

See more SCiS Schools Catalogue Examples

Demonstrates the SCIS (Schools Catalogue Information Service) search API call.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loHttp = createobject("CkHttp")

// Implements the following CURL command:

// curl -i -X GET --url 'https://api.scisdata.com/catalogue/api/search?query=titleSearch%3Adogs%20AND%20publicationYear%3A2015&from=0&size=20&sort=author&order=asc' -H 'Authorization: Basic ****'

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

// This causes the "Authorization: Basic ****" to be added to each request.
loHttp.Login = "myLogin"
loHttp.Password = "myPassword"
loHttp.BasicAuth = .T.

loSbQuery = createobject("CkStringBuilder")
loSbQuery.Append("titleSearch:dogs AND publicationYear:2015")

loSbUrl = createobject("CkStringBuilder")
loSbUrl.Append("https://api.scisdata.com/catalogue/api/search?query=")
// If non-usascii chars are included in the search, we don't know if utf-8 or windows-1252 is desired by the server.  You'll need to find out..
loSbUrl.Append(loSbQuery.GetEncoded("url","utf-8"))
loSbUrl.Append("&from=0&size=20&sort=author&order=asc")

loSbResponseBody = createobject("CkStringBuilder")
llSuccess = loHttp.QuickGetSb(loSbUrl.GetAsString(),loSbResponseBody)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loSbQuery
    release loSbUrl
    release loSbResponseBody
    return
endif

loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loHttp.LastStatus
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loHttp.LastHeader
    ? "Failed."
    release loHttp
    release loSbQuery
    release loSbUrl
    release loSbResponseBody
    release loJResp
    return
endif

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "data": {
//     "hits": {
//       "hits": [
//         {
//           "_index": "scisdata2",
//           "_type": "bibdatatype",
//           "_source": {
//             "isbn": [
//               "9781517638160"
//             ],
//             "languageTermCode": [
//               "eng"
//             ],
//             "mainAuthor": {
//               "namePersonalPrimary": [
//                 "Abbott, Eleanor Hallowell."
//               ]
//             },
//             "title": {
//               "titlePrimary": [
//                 "Peace on Earth, good-will to dogs"
//               ],
//               "noteStmOfResponsibility": [
//                 "by Eleanor Hallowell Abbott."
//               ]
//             },
//             "scisType": [
//               "Book"
//             ],
//             "dateIssuedMarc": 2015,
//             "languageTermValue": [
//               "English"
//             ],
//             "contributor": {},
//             "isbn13": "9781517638160",
//             "imageFileName": "9781517638160.jpg",
//             "publicationDetails": "United States, Create Space Independent Publishing Platform, 2015",
//             "isbn10": "151763816X",
//             "id": "1867852"
//           },
//           "_id": "1867852",
//           "sort": [
//             "abbott, eleanor hallowell."
//           ],
//           "_score": null
//         },
//         {
//           "_index": "scisdata2",
//           "_type": "bibdatatype",
//           "_source": {
//             "isbn": [
//               "9781780747910"
//             ],
//             "languageTermCode": [
//               "eng"
//             ],
//             "mainAuthor": {
//               "namePersonalPrimary": [
//                 "Adams, Richard."
//               ]
//             },
//             "title": {
//               "titlePrimary": [
//                 "The plague dogs"
//               ],
//               "noteStmOfResponsibility": [
//                 "Richard Adams."
//               ]
//             },
//             "scisType": [
//               "Book"
//             ],
//             "dateIssuedMarc": 2015,
//             "languageTermValue": [
//               "English"
//             ],
//             "contributor": {},
//             "isbn13": "9781780747910",
//             "imageFileName": "9781780747910.jpg",
//             "publicationDetails": "New York, Rock the Boat, 2015",
//             "isbn10": "1780747918",
//             "id": "1749228"
//           },
//           "_id": "1749228",
//           "sort": [
//             "adams, richard."
//           ],
//           "_score": null
//         },
//          ...
//       ],
//       "total": 84,
//       "max_score": null
//     },
//     "took": 585,
//     "timed_out": false
//   },
//   "subscriptionStatus": {}
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

lnDataHitsTotal = loJResp.IntOf("data.hits.total")
lcDataHitsMax_score = loJResp.StringOf("data.hits.max_score")
lnDataTook = loJResp.IntOf("data.took")
llDataTimed_out = loJResp.BoolOf("data.timed_out")
i = 0
lnCount_i = loJResp.SizeOfArray("data.hits.hits")
do while i < lnCount_i
    loJResp.I = i
    lcV_index = loJResp.StringOf("data.hits.hits[i]._index")
    lcV_type = loJResp.StringOf("data.hits.hits[i]._type")
    lnV_sourceDateIssuedMarc = loJResp.IntOf("data.hits.hits[i]._source.dateIssuedMarc")
    lcV_sourceIsbn13 = loJResp.StringOf("data.hits.hits[i]._source.isbn13")
    lcV_sourceImageFileName = loJResp.StringOf("data.hits.hits[i]._source.imageFileName")
    lcV_sourcePublicationDetails = loJResp.StringOf("data.hits.hits[i]._source.publicationDetails")
    lcV_sourceIsbn10 = loJResp.StringOf("data.hits.hits[i]._source.isbn10")
    lcV_sourceId = loJResp.StringOf("data.hits.hits[i]._source.id")
    lcV_id = loJResp.StringOf("data.hits.hits[i]._id")
    lcV_score = loJResp.StringOf("data.hits.hits[i]._score")
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.isbn")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.isbn[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.languageTermCode")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.languageTermCode[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.mainAuthor.namePersonalPrimary")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.mainAuthor.namePersonalPrimary[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.title.titlePrimary")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.title.titlePrimary[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.title.noteStmOfResponsibility")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.title.noteStmOfResponsibility[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.scisType")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.scisType[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.languageTermValue")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.languageTermValue[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i].sort")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i].sort[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.contributor.namePersonalOther")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.contributor.namePersonalOther[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJResp.SizeOfArray("data.hits.hits[i]._source.contributor.nameCorporateOther")
    do while j < lnCount_j
        loJResp.J = j
        lcStrVal = loJResp.StringOf("data.hits.hits[i]._source.contributor.nameCorporateOther[j]")
        j = j + 1
    enddo
    i = i + 1
enddo


release loHttp
release loSbQuery
release loSbUrl
release loSbResponseBody
release loJResp