Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
ADAPL for sketchfab
* 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
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment