ADAPL for sketchfab

sfab.txt

* Before screen ADAPL for web links
 
integer occ, linkocc, urlok
text testurl[0]
 
x1 = null
 
linkocc = 1
urlok = 0
testurl = ''
 
if zL = 'OPACN' or zL = 'Do NOT Display on OPAC' or zL = 'TEMPR' or zL = 'Temporary record' {
} else {
  urlok = 0
  testurl = ''
  testurl = 'http://data.fitzmuseum.cam.ac.uk/id/object/' + %0
  urlok = openurl(testurl, 0)
  if urlok = 200 {
    linkocc = repcnt(x1) + 1
    x1[linkocc] = testurl
    x2[linkocc] = 'Collections Explorer'
  }   
}
 
occ = 1
while occ <= repcnt(I3) {
  if I4[occ] = 'Sketchfab' {
   urlok = 0
    testurl = ''
    testurl = 'https://sketchfab.com/3d-models/' + I3[occ]
    urlok = openurl(testurl, 0)
    if urlok = 200 {
      linkocc = repcnt(x1) + 1
      x1[linkocc] = testurl
      x2[linkocc] = 'Sketchfab'
    }
  }
  occ = occ + 1
}