Module:Wikidata

-- vim: set noexpandtab ft=lua ts=4 sw=4:require('Module:No globals')localp={}localdebug=false-------------------------------------------------------------------------------- module local variables and functionslocalwiki={langcode=mw.language.getContentLanguage().code}-- internationalisationlocali18n={["errors"]={["property-not-found"]="Property not found.",["entity-not-found"]="Wikidata entity not found.",["unknown-claim-type"]="Unknown claim type.",["unknown-entity-type"]="Unknown entity type.",["qualifier-not-found"]="Qualifier not found.",["site-not-found"]="Wikimedia project not found.",["unknown-datetime-format"]="Unknown datetime format.",["local-article-not-found"]="Article is not yet available in this wiki."},["datetime"]={-- $1 is a placeholder for the actual number[0]="yels $1000-balion",-- precision: billion years[1]="yels $100-balion",-- precision: hundred million years[2]="yels $10-balion",-- precision: ten million years[3]="yels $1-balion",-- precision: million years[4]="yels $100000",-- precision: hundred thousand years[5]="yels $10000",-- precision: ten thousand years[6]="milyel $1id",-- precision: millennium[7]="tumyel $1id",-- precision: century[8]="degyel $1id",-- precision: decade-- the following use the format of #time parser function[9]="Y",-- precision: year,[10]="F Y",-- precision: month[11]="F j, Y",-- precision: day[12]="F j, Y ga",-- precision: hour[13]="F j, Y g:ia",-- precision: minute[14]="F j, Y g:i:sa",-- precision: second["beforenow"]="$1 b.K.",-- how to format negative numbers for precisions 0 to 5["afternow"]="$1 p.K.",-- how to format positive numbers for precisions 0 to 5["bc"]='$1 "b.K."',-- how print negative years["ad"]="$1",-- how print positive years-- the following are for function getDateValue() and getQualifierDateValue()["default-format"]="dmy",-- default value of the #3 (getDateValue) or-- #4 (getQualifierDateValue) argument["default-addon"]="b.K.",-- default value of the #4 (getDateValue) or-- #5 (getQualifierDateValue) argument["prefix-addon"]=false,-- set to true for languages put "BC" in front of the-- datetime string; or the addon will be suffixed["addon-sep"]=" ",-- separator between datetime string and addon (or inverse)["format"]=-- options of the 3rd argument{["mdy"]="F j, Y",["my"]="F Y",["y"]="Y",["dmy"]="j F Y",["ymd"]="Y-m-d",["ym"]="Y-m"}},["monolingualtext"]='<span lang="%language">%text</span>',["warnDump"]="[[Klad:Called function 'Dump' from module Wikidata]]"}-- Credit to http://stackoverflow.com/a/1283608/2644759-- cc-by-sa 3.0localfunctiontableMerge(t1,t2)fork,vinpairs(t2)doiftype(v)=="table"theniftype(t1[k]orfalse)=="table"thentableMerge(t1[k]or{},t2[k]or{})elset1[k]=vendelset1[k]=vendendreturnt1endlocalfunctionloadI18n()localexist,res=pcall(require,"Module:Wikidata/i18n")ifexistandnext(res)~=nilthentableMerge(i18n,res.i18n)endendloadI18n()localfunctionprintError(code)return'<span class="error">'..(i18n.errors[code]orcode)..'</span>'endlocalfunctionparseDateValue(timestamp,date_format,date_addon)localprefix_addon=i18n["datetime"]["prefix-addon"]localaddon_sep=i18n["datetime"]["addon-sep"]localaddon=""-- check for negative dateifstring.sub(timestamp,1,1)=='-'thentimestamp='+'..string.sub(timestamp,2)addon=date_addonendlocalfunctiond(f)localyear_suffixlocaltstr=""locallang_obj=mw.language.new(wiki.langcode)localf_parts=mw.text.split(f,'Y',true)foridx,f_partinpairs(f_parts)doyear_suffix=''ifstring.match(f_part,"x[mijkot]$")then-- for non-Gregorian yearf_part=f_part..'Y'elseifidx<#f_partsthen-- supress leading zeros in yearyear_suffix=lang_obj:formatDate('Y',timestamp)year_suffix=string.gsub(year_suffix,'^0+','',1)endtstr=tstr..lang_obj:formatDate(f_part,timestamp)..year_suffixendifaddon~=""andprefix_addonthenreturnaddon..addon_sep..tstrelseifaddon~=""thenreturntstr..addon_sep..addonelsereturntstrendendlocal_date_format=i18n["datetime"]["format"][date_format]if_date_format~=nilthenreturnd(_date_format)elsereturnprintError("unknown-datetime-format")endend-- This local function combines the year/month/day/BC/BCE handling of parseDateValue{}-- with the millennium/century/decade handling of formatDate()localfunctionparseDateFull(timestamp,precision,date_format,date_addon)localprefix_addon=i18n["datetime"]["prefix-addon"]localaddon_sep=i18n["datetime"]["addon-sep"]localaddon=""-- check for negative dateifstring.sub(timestamp,1,1)=='-'thentimestamp='+'..string.sub(timestamp,2)addon=date_addonend-- get the next four characters after the + (should be the year now in all cases)-- ok, so this is dirty, but let's get it working firstlocalintyear=tonumber(string.sub(timestamp,2,5))ifintyear==0andprecision<=9thenreturn""end-- precision is 10000 years or moreifprecision<=5thenlocalfactor=10^((5-precision)+4)localy2=math.ceil(math.abs(intyear)/factor)localrelative=mw.ustring.gsub(i18n.datetime[precision],"$1",tostring(y2))ifaddon~=""then-- negative daterelative=mw.ustring.gsub(i18n.datetime.beforenow,"$1",relative)elserelative=mw.ustring.gsub(i18n.datetime.afternow,"$1",relative)endreturnrelativeend-- precision is decades (8), centuries (7) and millennia (6)localera,cardifprecision==6thenera=mw.ustring.gsub(i18n.datetime[6],"$1",tostring(math.floor((intyear-1)/1000)+1))endifprecision==7thenera=mw.ustring.gsub(i18n.datetime[7],"$1",tostring(math.floor((intyear-1)/100)+1))endifprecision==8thenera=mw.ustring.gsub(i18n.datetime[8],"$1",tostring(math.floor(math.abs(intyear)/10)*10))endiferathenifaddon~=""thenera=mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc,'"',""),"$1",era)elseera=mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad,'"',""),"$1",era)endreturneraendlocal_date_format=i18n["datetime"]["format"][date_format]if_date_format~=nilthen-- check for precision is year and override supplied date_formatifprecision==9then_date_format=i18n["datetime"][9]endlocalyear_suffixlocaltstr=""locallang_obj=mw.language.new(wiki.langcode)localf_parts=mw.text.split(_date_format,'Y',true)foridx,f_partinpairs(f_parts)doyear_suffix=''ifstring.match(f_part,"x[mijkot]$")then-- for non-Gregorian yearf_part=f_part..'Y'elseifidx<#f_partsthen-- supress leading zeros in yearyear_suffix=lang_obj:formatDate('Y',timestamp)year_suffix=string.gsub(year_suffix,'^0+','',1)endtstr=tstr..lang_obj:formatDate(f_part,timestamp)..year_suffixendlocalfdateifaddon~=""andprefix_addonthenfdate=addon..addon_sep..tstrelseifaddon~=""thenfdate=tstr..addon_sep..addonelsefdate=tstrendreturnfdateelsereturnprintError("unknown-datetime-format")endend-- the "qualifiers" and "snaks" field have a respective "qualifiers-order" and "snaks-order" field-- use these as the second parameter and this function instead of the built-in "pairs" function-- to iterate over all qualifiers and snaks in the intended order.localfunctionorderedpairs(array,order)ifnotorderthenreturnpairs(array)end-- return iterator functionlocali=0returnfunction()i=i+1iforder[i]thenreturnorder[i],array[order[i]]endendend-- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - secondlocalfunctionnormalizeDate(date)date=mw.text.trim(date,"+")-- extract yearlocalyearstr=mw.ustring.match(date,"^\-?%d+")localyear=tonumber(yearstr)-- remove leading zeros of yearreturnyear..mw.ustring.sub(date,#yearstr+1),yearendlocalfunctionformatDate(date,precision,timezone)precision=precisionor11localdate,year=normalizeDate(date)ifyear==0andprecision<=9thenreturn""end-- precision is 10000 years or moreifprecision<=5thenlocalfactor=10^((5-precision)+4)localy2=math.ceil(math.abs(year)/factor)localrelative=mw.ustring.gsub(i18n.datetime[precision],"$1",tostring(y2))ifyear<0thenrelative=mw.ustring.gsub(i18n.datetime.beforenow,"$1",relative)elserelative=mw.ustring.gsub(i18n.datetime.afternow,"$1",relative)endreturnrelativeend-- precision is decades, centuries and millennialocaleraifprecision==6thenera=mw.ustring.gsub(i18n.datetime[6],"$1",tostring(math.floor((math.abs(year)-1)/1000)+1))endifprecision==7thenera=mw.ustring.gsub(i18n.datetime[7],"$1",tostring(math.floor((math.abs(year)-1)/100)+1))endifprecision==8thenera=mw.ustring.gsub(i18n.datetime[8],"$1",tostring(math.floor(math.abs(year)/10)*10))endiferathenifyear<0thenera=mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc,'"',""),"$1",era)elseifyear>0thenera=mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad,'"',""),"$1",era)endreturneraend-- precision is yearifprecision==9thenreturnyearend-- precision is less than yearsifprecision>9then--[[ the following code replaces the UTC suffix with the given negated timezone to convert the global time to the given local time timezone = tonumber(timezone) if timezone and timezone ~= 0 then timezone = -timezone timezone = string.format("%.2d%.2d", timezone / 60, timezone % 60) if timezone[1] ~= '-' then timezone = "+" .. timezone end date = mw.text.trim(date, "Z") .. " " .. timezone end ]]--localformatstr=i18n.datetime[precision]ifyear==0thenformatstr=mw.ustring.gsub(formatstr,i18n.datetime[9],"")elseifyear<0then-- Mediawiki formatDate doesn't support negative yearsdate=mw.ustring.sub(date,2)formatstr=mw.ustring.gsub(formatstr,i18n.datetime[9],mw.ustring.gsub(i18n.datetime.bc,"$1",i18n.datetime[9]))elseifyear>0andi18n.datetime.ad~="$1"thenformatstr=mw.ustring.gsub(formatstr,i18n.datetime[9],mw.ustring.gsub(i18n.datetime.ad,"$1",i18n.datetime[9]))endreturnmw.language.new(wiki.langcode):formatDate(formatstr,date)endendlocalfunctionprintDatavalueEntity(data,parameter)-- data fields: entity-type [string], numeric-id [int, Wikidata id]localidifdata["entity-type"]=="item"thenid="Q"..data["numeric-id"]elseifdata["entity-type"]=="property"thenid="P"..data["numeric-id"]elsereturnprintError("unknown-entity-type")endifparameterthenifparameter=="link"thenlocallinkTarget=mw.wikibase.sitelink(id)locallinkName=mw.wikibase.label(id)iflinkTargetthen-- if there is a local Wikipedia article link to it using the label or the article titlereturn"[["..linkTarget.."|"..(linkNameorlinkTarget).."]]"else-- if there is no local Wikipedia article output the label or link to the Wikidata object to let the user input a proper labeliflinkNamethenreturnlinkNameelsereturn"[[:d:"..id.."|"..id.."]]"endendelsereturndata[parameter]endelsereturnmw.wikibase.label(id)oridendendlocalfunctionprintDatavalueTime(data,parameter)-- data fields: time [ISO 8601 time], timezone [int in minutes], before [int], after [int], precision [int], calendarmodel [wikidata URI]-- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second-- calendarmodel: e.g. http://www.wikidata.org/entity/Q1985727 for the proleptic Gregorian calendar or http://www.wikidata.org/wiki/Q11184 for the Julian calendar]ifparameterthenifparameter=="calendarmodel"thendata.calendarmodel=mw.ustring.match(data.calendarmodel,"Q%d+")-- extract entity id from the calendar model URIelseifparameter=="time"thendata.time=normalizeDate(data.time)endreturndata[parameter]elsereturnformatDate(data.time,data.precision,data.timezone)endendlocalfunctionprintDatavalueMonolingualText(data,parameter)-- data fields: language [string], text [string]ifparameterthenreturndata[parameter]elselocalresult=mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext,"%%language",data["language"]),"%%text",data["text"])returnresultendendlocalfunctionfindClaims(entity,property)ifnotpropertyornotentityornotentity.claimsthenreturnendifmw.ustring.match(property,"^P%d+$")then-- if the property is given by an id (P..) access the claim list by this idreturnentity.claims[property]elseproperty=mw.wikibase.resolvePropertyId(property)ifnotpropertythenreturnendreturnentity.claims[property]endendlocalfunctiongetSnakValue(snak,parameter)ifsnak.snaktype=="value"then-- call the respective snak parserifsnak.datavalue.type=="string"thenreturnsnak.datavalue.valueelseifsnak.datavalue.type=="globecoordinate"thenreturnprintDatavalueCoordinate(snak.datavalue.value,parameter)elseifsnak.datavalue.type=="quantity"thenreturnprintDatavalueQuantity(snak.datavalue.value,parameter)elseifsnak.datavalue.type=="time"thenreturnprintDatavalueTime(snak.datavalue.value,parameter)elseifsnak.datavalue.type=="wikibase-entityid"thenreturnprintDatavalueEntity(snak.datavalue.value,parameter)elseifsnak.datavalue.type=="monolingualtext"thenreturnprintDatavalueMonolingualText(snak.datavalue.value,parameter)endendreturnmw.wikibase.renderSnak(snak)endlocalfunctiongetQualifierSnak(claim,qualifierId)-- a "snak" is Wikidata terminology for a typed key/value pair-- a claim consists of a main snak holding the main information of this claim,-- as well as a list of attribute snaks and a list of references snaksifqualifierIdthen-- search the attribute snak with the given qualifier as keyifclaim.qualifiersthenlocalqualifier=claim.qualifiers[qualifierId]ifqualifierthenreturnqualifier[1]endendreturnnil,printError("qualifier-not-found")else-- otherwise return the main snakreturnclaim.mainsnakendendlocalfunctiongetValueOfClaim(claim,qualifierId,parameter)localerrorlocalsnaksnak,error=getQualifierSnak(claim,qualifierId)ifsnakthenreturngetSnakValue(snak,parameter)elsereturnnil,errorendendlocalfunctiongetReferences(frame,claim)localresult=""-- traverse through all referencesforrefinpairs(claim.referencesor{})dolocalrefparts-- traverse through all parts of the current referenceforsnakkey,snakvalinorderedpairs(claim.references[ref].snaksor{},claim.references[ref]["snaks-order"])doifrefpartsthenrefparts=refparts..", "elserefparts=""end-- output the label of the property of the reference part, e.g. "imported from" for P143refparts=refparts..tostring(mw.wikibase.label(snakkey))..": "-- output all values of this reference part, e.g. "German Wikipedia" and "English Wikipedia" if the referenced claim was imported from both sitesforsnakidx=1,#snakvaldoifsnakidx>1thenrefparts=refparts..", "endrefparts=refparts..getSnakValue(snakval[snakidx])endendifrefpartsthenresult=result..frame:extensionTag("ref",refparts)endendreturnresultend-------------------------------------------------------------------------------- module global functionsifdebugthenfunctionp.inspectI18n(frame)localval=i18nfor_,keyinpairs(frame.args)dokey=mw.text.trim(key)val=val[key]endreturnvalendendfunctionp.descriptionIn(frame)locallangcode=frame.args[1]localid=frame.args[2]-- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration-- return description of a Wikidata entity in the given language or the default language of this Wikipedia sitereturnmw.wikibase.getEntityObject(id).descriptions[langcodeorwiki.langcode].valueendfunctionp.labelIn(frame)locallangcode=frame.args[1]localid=frame.args[2]-- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration-- return label of a Wikidata entity in the given language or the default language of this Wikipedia sitereturnmw.wikibase.getEntityObject(id).labels[langcodeorwiki.langcode].valueend-- This is used to get a value, or a comma separated list of them if multiple values existp.getValue=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localinput_parm=mw.text.trim(frame.args[2]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()localclaimsifentityandentity.claimsthenclaims=entity.claims[propertyID]endifclaimsthen-- if wiki-linked value output as link if possibleif(claims[1]andclaims[1].mainsnak.snaktype=="value"andclaims[1].mainsnak.datavalue.type=="wikibase-entityid")thenlocalout={}fork,vinpairs(claims)dolocalsitelink=mw.wikibase.sitelink("Q"..v.mainsnak.datavalue.value["numeric-id"])locallabel=mw.wikibase.label("Q"..v.mainsnak.datavalue.value["numeric-id"])iflabel==nilthenlabel="Q"..v.mainsnak.datavalue.value["numeric-id"]end--begin gendered formsifpropertyID=="P106"then--occupationlocalgenderclaims=entity.claims["P21"]--sex or genderlocalgenderLabelifgenderclaimsandgenderclaims[1]thenifgenderclaims[1].mainsnak.datavalue.value["numeric-id"]==6581072then--femalegenderLabel="P2521"--female form of labelelseifgenderclaims[1].mainsnak.datavalue.value["numeric-id"]==6581097then--malegenderLabel="P3321"--male form of labelendendifgenderLabelthenlocaloccupationEntity=mw.wikibase.getEntityObject("Q"..v.mainsnak.datavalue.value["numeric-id"])localoccupationClaimsifoccupationEntityandoccupationEntity.claimsthenoccupationClaims=occupationEntity.claims[genderLabel]endifoccupationClaimsthenforgenderk,gendervinpairs(occupationClaims)do--loop trough all forms in all languagesifgenderv.mainsnak.datavalue.value.language==wiki.langcodethen--language of this wikilabel=genderv.mainsnak.datavalue.value.textbreak--found, stop searchingendendendendend--end gendered formsifsitelinkthenout[#out+1]="[["..sitelink.."|"..label.."]]"elseout[#out+1]="[[:d:Q"..v.mainsnak.datavalue.value["numeric-id"].."|"..label.."]]<abbr title='"..i18n["errors"]["local-article-not-found"].."'>[*]</abbr>"endendreturntable.concat(out,", ")else-- just return best valuesreturnentity:formatPropertyValues(propertyID).valueendelsereturn""endelsereturninput_parmendend-- Same as above, but uses the short name property for label if available.p.getValueShortName=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localinput_parm=mw.text.trim(frame.args[2]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()localclaimsifentityandentity.claimsthenclaims=entity.claims[propertyID]endifclaimsthen-- if wiki-linked value output as link if possibleif(claims[1]andclaims[1].mainsnak.snaktype=="value"andclaims[1].mainsnak.datavalue.type=="wikibase-entityid")thenlocalout={}fork,vinpairs(claims)dolocalsitelink=mw.wikibase.sitelink("Q"..v.mainsnak.datavalue.value["numeric-id"])locallabellocalclaimEntity=mw.wikibase.getEntity("Q"..v.mainsnak.datavalue.value["numeric-id"])ifclaimEntity~=nilthenifclaimEntity.claims.P1813thenfork2,v2inpairs(claimEntity.claims.P1813)doifv2.mainsnak.datavalue.value.language=="en"thenlabel=v2.mainsnak.datavalue.value.textendendendendiflabel==nilorlabel==""thenlabel=mw.wikibase.label("Q"..v.mainsnak.datavalue.value["numeric-id"])endiflabel==nilthenlabel="Q"..v.mainsnak.datavalue.value["numeric-id"]endifsitelinkthenout[#out+1]="[["..sitelink.."|"..label.."]]"elseout[#out+1]="[[:d:Q"..v.mainsnak.datavalue.value["numeric-id"].."|"..label.."]]<abbr title='"..i18n["errors"]["local-article-not-found"].."'>[*]</abbr>"endendreturntable.concat(out,", ")else-- just return best vakuesreturnentity:formatPropertyValues(propertyID).valueendelsereturn""endelsereturninput_parmendend-- This is used to get a value, or a comma separated list of them if multiple values exist-- from an arbitrary entry by using its QID.-- Use : {{#invoke:Wikidata|getValueFromID|<ID>|<Property>|FETCH_WIKIDATA}}-- E.g.: {{#invoke:Wikidata|getValueFromID|Q151973|P26|FETCH_WIKIDATA}} - to fetch value of 'spouse' (P26) from 'Richard Burton' (Q151973)-- Please use sparingly - this is an *expensive call*.p.getValueFromID=function(frame)localitemID=mw.text.trim(frame.args[1]or"")localpropertyID=mw.text.trim(frame.args[2]or"")localinput_parm=mw.text.trim(frame.args[3]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntity(itemID)localclaims=entity.claims[propertyID]ifclaimsthen-- if wiki-linked value output as link if possibleif(claims[1]andclaims[1].mainsnak.snaktype=="value"andclaims[1].mainsnak.datavalue.type=="wikibase-entityid")thenlocalout={}fork,vinpairs(claims)dolocalsitelink=mw.wikibase.sitelink("Q"..v.mainsnak.datavalue.value["numeric-id"])locallabel=mw.wikibase.label("Q"..v.mainsnak.datavalue.value["numeric-id"])iflabel==nilthenlabel="Q"..v.mainsnak.datavalue.value["numeric-id"]endifsitelinkthenout[#out+1]="[["..sitelink.."|"..label.."]]"elseout[#out+1]="[[:d:Q"..v.mainsnak.datavalue.value["numeric-id"].."|"..label.."]]<abbr title='"..i18n["errors"]["local-article-not-found"].."'>[*]</abbr>"endendreturntable.concat(out,", ")elsereturnentity:formatPropertyValues(propertyID).valueendelsereturn""endelsereturninput_parmendendp.getQualifierValue=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localqualifierID=mw.text.trim(frame.args[2]or"")localinput_parm=mw.text.trim(frame.args[3]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()ifentity.claims[propertyID]~=nilthenlocalout={}fork,vinpairs(entity.claims[propertyID])dofork2,v2inpairs(v.qualifiers[qualifierID])doifv2.snaktype=='value'thenif(mw.wikibase.sitelink("Q"..v2.datavalue.value["numeric-id"]))thenout[#out+1]="[["..mw.wikibase.sitelink("Q"..v2.datavalue.value["numeric-id"]).."]]"elseout[#out+1]="[[:d:Q"..v2.datavalue.value["numeric-id"].."|"..mw.wikibase.label("Q"..v2.datavalue.value["numeric-id"]).."]]<abbr title='"..i18n["errors"]["local-article-not-found"].."'>[*]</abbr>"endendendendreturntable.concat(out,", ")elsereturn""endelsereturninput_parmendend-- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separatorsp.getRawValue=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localinput_parm=mw.text.trim(frame.args[2]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()localclaimsifentityandentity.claimsthenclaims=entity.claims[propertyID]endifclaimsthenlocalresult=entity:formatPropertyValues(propertyID,mw.wikibase.entity.claimRanks).value-- if number type: remove thousand separators, bounds and unitsif(claims[1]andclaims[1].mainsnak.snaktype=="value"andclaims[1].mainsnak.datavalue.type=="quantity")thenresult=mw.ustring.gsub(result,"(%d),(%d)","%1%2")result=mw.ustring.gsub(result,"(%d)±.*","%1")endreturnresultelsereturn""endelsereturninput_parmendend-- This is used to get the unit name for the numeric value returned by getRawValuep.getUnits=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localinput_parm=mw.text.trim(frame.args[2]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()localclaimsifentityandentity.claimsthenclaims=entity.claims[propertyID]endifclaimsthenlocalresult=entity:formatPropertyValues(propertyID,mw.wikibase.entity.claimRanks).valueif(claims[1]andclaims[1].mainsnak.snaktype=="value"andclaims[1].mainsnak.datavalue.type=="quantity")thenresult=mw.ustring.sub(result,mw.ustring.find(result," ")+1,-1)endreturnresultelsereturn""endelsereturninput_parmendend-- This is used to get the unit's QID to use with the numeric value returned by getRawValuep.getUnitID=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localinput_parm=mw.text.trim(frame.args[2]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()localclaimsifentityandentity.claimsthenclaims=entity.claims[propertyID]endifclaimsthenlocalresultif(claims[1]andclaims[1].mainsnak.snaktype=="value"andclaims[1].mainsnak.datavalue.type=="quantity")then-- get the url for the unit entry on Wikidata:result=claims[1].mainsnak.datavalue.value.unit-- and just reurn the last bit from "Q" to the end (which is the QID):result=mw.ustring.sub(result,mw.ustring.find(result,"Q"),-1)endreturnresultelsereturn""endelsereturninput_parmendendp.getRawQualifierValue=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localqualifierID=mw.text.trim(frame.args[2]or"")localinput_parm=mw.text.trim(frame.args[3]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()ifentity.claims[propertyID]~=nilthenlocalout={}fork,vinpairs(entity.claims[propertyID])dofork2,v2inpairs(v.qualifiers[qualifierID])doifv2.snaktype=='value'thenifv2.datavalue.value["numeric-id"]thenout[#out+1]=mw.wikibase.label("Q"..v2.datavalue.value["numeric-id"])elseout[#out+1]=v2.datavalue.valueendendendendlocalret=table.concat(out,", ")returnstring.upper(string.sub(ret,1,1))..string.sub(ret,2)elsereturn""endelsereturninput_parmendend-- This is used to get a date value for date_of_birth (P569), etc. which won't be linked-- Dates and times are stored in ISO 8601 format (sort of).-- At present the local formatDate(date, precision, timezone) function doesn't handle timezone-- So I'll just supply "Z" in the call to formatDate below:p.getDateValue=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localinput_parm=mw.text.trim(frame.args[2]or"")localdate_format=mw.text.trim(frame.args[3]ori18n["datetime"]["default-format"])localdate_addon=mw.text.trim(frame.args[4]ori18n["datetime"]["default-addon"])ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()ifentity.claims[propertyID]~=nilthenlocalout={}fork,vinpairs(entity.claims[propertyID])doifv.mainsnak.datavalue.type=='time'thenlocaltimestamp=v.mainsnak.datavalue.value.timelocaldateprecision=v.mainsnak.datavalue.value.precisionout[#out+1]=parseDateFull(timestamp,dateprecision,date_format,date_addon)endendreturntable.concat(out,", ")elsereturn""endelsereturninput_parmendendp.getQualifierDateValue=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localqualifierID=mw.text.trim(frame.args[2]or"")localinput_parm=mw.text.trim(frame.args[3]or"")localdate_format=mw.text.trim(frame.args[4]ori18n["datetime"]["default-format"])localdate_addon=mw.text.trim(frame.args[5]ori18n["datetime"]["default-addon"])ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()ifentity.claims[propertyID]~=nilthenlocalout={}fork,vinpairs(entity.claims[propertyID])dofork2,v2inpairs(v.qualifiers[qualifierID])doifv2.snaktype=='value'thenlocaltimestamp=v2.datavalue.value.timeout[#out+1]=parseDateValue(timestamp,date_format,date_addon)endendendreturntable.concat(out,", ")elsereturn""endelsereturninput_parmendend-- This is used to fetch all of the images with a particular property, e.g. image (P18), Gene Atlas Image (P692), etc.-- Parameters are | propertyID | value / FETCH_WIKIDATA / nil | separator (default=space) | size (default=frameless)-- It will return a standard wiki-markup [[File:Filename | size]] for each image with a selectable size and separator (which may be html)-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA}}-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA|<br>|250px}}-- If a property is chosen that is not of type "commonsMedia", it will return empty text.p.getImages=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localinput_parm=mw.text.trim(frame.args[2]or"")localsep=mw.text.trim(frame.args[3]or" ")localimgsize=mw.text.trim(frame.args[4]or"frameless")ifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject()localclaimsifentityandentity.claimsthenclaims=entity.claims[propertyID]endifclaimsthenif(claims[1]andclaims[1].mainsnak.datatype=="commonsMedia")thenlocalout={}fork,vinpairs(claims)dolocalfilename=v.mainsnak.datavalue.valueout[#out+1]="[[File:"..filename.."|"..imgsize.."]]"endreturntable.concat(out,sep)elsereturn""endelsereturn""endelsereturninput_parmendend-- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323)-- which are then linked to http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/01.1.00.005%20Entity%20TA98%20EN.htm-- uses the newer mw.wikibase calls instead of directly using the snaks-- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return stringp.getTAValue=function(frame)localent=mw.wikibase.getEntityObject()localprops=ent:formatPropertyValues('P1323')localout={}localt={}fork,vinpairs(props)doifk=='value'thent=mw.text.split(v,", ")fork2,v2inpairs(t)doout[#out+1]="[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/"..string.sub(v2,2).."%20Entity%20TA98%20EN.htm "..v2.."]"endendendlocalret=table.concat(out,"<br> ")if#ret==0thenret="Invalid TA"endreturnretend--[[This is used to return an image legend from Wikidataimage is property P18image legend is property P2096Call as {{#invoke:Wikidata |getImageLegend | <PARAMETER> | lang=<ISO-639code> |id=<QID>}}Returns PARAMETER, unless it is equal to "FETCH_WIKIDATA", from Item QID (expensive call)If QID is omitted or blank, the current article is used (not an expensive call)If lang is omitted, it uses the local wiki language, otherwise it uses the provided ISO-639 language codeISO-639: https://docs.oracle.com/cd/E13214_01/wli/docs92/xref/xqisocodes.html#wp1252447Ranks are: 'preferred' > 'normal'This returns the label from the first image with 'preferred' rankOr the label from the first image with 'normal' rank if preferred returns nothingRanks: https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua]]p.getImageLegend=function(frame)-- look for named parameter id; if it's blank make it nillocalid=frame.args.idifidand(#id==0)thenid=nilend-- look for named parameter lang-- it should contain a two-character ISO-639 language code-- if it's blank fetch the language of the local wikilocallang=frame.args.langif(notlang)or(#lang<2)thenlang=mw.language.getContentLanguage().codeend-- first unnamed parameter is the local parameter, if suppliedlocalinput_parm=mw.text.trim(frame.args[1]or"")ifinput_parm=="FETCH_WIKIDATA"thenlocalent=mw.wikibase.getEntityObject(id)localimgsifentandent.claimsthenimgs=ent.claims.P18endlocalimglblifimgsthen-- look for an image with 'preferred' rankfork1,v1inpairs(imgs)doifv1.rank=="preferred"andv1.qualifiersandv1.qualifiers.P2096thenlocalimglbls=v1.qualifiers.P2096fork2,v2inpairs(imglbls)doifv2.datavalue.value.language==langthenimglbl=v2.datavalue.value.textbreakendendendend-- if we don't find one, look for an image with 'normal' rankif(notimglbl)thenfork1,v1inpairs(imgs)doifv1.rank=="normal"andv1.qualifiersandv1.qualifiers.P2096thenlocalimglbls=v1.qualifiers.P2096fork2,v2inpairs(imglbls)doifv2.datavalue.value.language==langthenimglbl=v2.datavalue.value.textbreakendendendendendendreturnimglblelsereturninput_parmendend-- This is used to get the QIDs of all of the values of a property, as a comma separated list if multiple values exist-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |FETCH_WIKIDATA}}-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |<InputParameter> |qid=<QID>}}p.getPropertyIDs=function(frame)localpropertyID=mw.text.trim(frame.args[1]or"")localinput_parm=mw.text.trim(frame.args[2]or"")-- can take a named parameter |qid which is the Wikidata ID for the article. This will not normally be used.localqid=frame.args.qidifqidand(#qid==0)thenqid=nilendifinput_parm=="FETCH_WIKIDATA"thenlocalentity=mw.wikibase.getEntityObject(qid)localpropclaimsifentityandentity.claimsthenpropclaims=entity.claims[propertyID]endifpropclaimsthen-- if wiki-linked value collect the QID in a tableif(propclaims[1]andpropclaims[1].mainsnak.snaktype=="value"andpropclaims[1].mainsnak.datavalue.type=="wikibase-entityid")thenlocalout={}fork,vinpairs(propclaims)doout[#out+1]="Q"..v.mainsnak.datavalue.value["numeric-id"]endreturntable.concat(out,", ")else-- not a wikibase-entityid, so return emptyreturn""endelse-- no claim, so return emptyreturn""endelsereturninput_parmendend-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidatafunctionp.pageId(frame)localentity=mw.wikibase.getEntityObject()ifnotentitythenreturnnilelsereturnentity.idendendfunctionp.claim(frame)localproperty=frame.args[1]or""localid=frame.args["id"]-- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configurationlocalqualifierId=frame.args["qualifier"]localparameter=frame.args["parameter"]locallist=frame.args["list"]localreferences=frame.args["references"]localshowerrors=frame.args["showerrors"]localdefault=frame.args["default"]ifdefaultthenshowerrors=nilend-- get wikidata entitylocalentity=mw.wikibase.getEntityObject(id)ifnotentitythenifshowerrorsthenreturnprintError("entity-not-found")elsereturndefaultendend-- fetch the first claim of satisfying the given propertylocalclaims=findClaims(entity,property)ifnotclaimsornotclaims[1]thenifshowerrorsthenreturnprintError("property-not-found")elsereturndefaultendend-- get initial sort indiceslocalsortindices={}foridxinpairs(claims)dosortindices[#sortindices+1]=idxend-- sort by claim ranklocalcomparator=function(a,b)localrankmap={deprecated=2,normal=1,preferred=0}localranka=rankmap[claims[a].rankor"normal"]..string.format("%08d",a)localrankb=rankmap[claims[b].rankor"normal"]..string.format("%08d",b)returnranka<rankbendtable.sort(sortindices,comparator)localresultlocalerroriflistthenlocalvalue-- iterate over all elements and return their value (if existing)result={}foridxinpairs(claims)dolocalclaim=claims[sortindices[idx]]value,error=getValueOfClaim(claim,qualifierId,parameter)ifnotvalueandshowerrorsthenvalue=errorendifvalueandreferencesthenvalue=value..getReferences(frame,claim)endresult[#result+1]=valueendresult=table.concat(result,list)else-- return first elementlocalclaim=claims[sortindices[1]]result,error=getValueOfClaim(claim,qualifierId,parameter)ifresultandreferencesthenresult=result..getReferences(frame,claim)endendifresultthenreturnresultelseifshowerrorsthenreturnerrorelsereturndefaultendendend-- look into entity objectfunctionp.ViewSomething(frame)localf=(frame.args[1]orframe.args.id)andframeorframe:getParent()localid=f.args.idifidand(#id==0)thenid=nilendlocaldata=mw.wikibase.getEntityObject(id)ifnotdatathenreturnnilendlocali=1whiletruedolocalindex=f.args[i]ifnotindextheniftype(data)=="table"thenreturnmw.text.jsonEncode(data,mw.text.JSON_PRESERVE_KEYS+mw.text.JSON_PRETTY)elsereturntostring(data)endenddata=data[index]ordata[tonumber(index)]ifnotdatathenreturnendi=i+1endend-- getting sitelink of a given wikifunctionp.getSiteLink(frame)localf=frame.args[1]localentity=mw.wikibase.getEntity()ifnotentitythenreturnendlocallink=entity:getSitelink(f)ifnotlinkthenreturnendreturnlinkendfunctionp.Dump(frame)localf=(frame.args[1]orframe.args.id)andframeorframe:getParent()localdata=mw.wikibase.getEntityObject(f.args.id)ifnotdatathenreturni18n.warnDumpendlocali=1whiletruedolocalindex=f.args[i]ifnotindexthenreturn"<pre>"..mw.dumpObject(data).."</pre>"..i18n.warnDumpenddata=data[index]ordata[tonumber(index)]ifnotdatathenreturni18n.warnDumpendi=i+1endendreturnp