Modul:Wikidata2: Unterschied zwischen den Versionen
(Umrechnung in SI-Einheiten) |
K (1 Version von wikivoyage:Modul:Wikidata2 importiert) |
Aktuelle Version vom 23. Januar 2023, 11:43 Uhr
Die Dokumentation für dieses Modul kann unter Modul:Wikidata2/doc erstellt werden
local check = require('Modul:Check2')
local yesno = require('Modul:Yesno')
local languages = require('Modul:Languages')
local cfgI18 = mw.loadData('Modul:Wikidata2/i18n')
local cfgParams = mw.loadData('Modul:Wikidata2/Params')
local cfgDelimiters = mw.loadData('Modul:Wikidata2/Delimiters')
local cfgFormats = mw.loadData('Modul:Wikidata2/Formats')
local cfgPOITypes = mw.loadData('Modul:Wikidata2/POITypes')
local cfgGeography = mw.loadData('Modul:Wikidata2/Geography')
local cfgUnits = mw.loadData('Modul:Wikidata2/Units')
local lang = mw.language.getContentLanguage()
-- Auswertung und Prüfung von übergebenen Parametern
local function wdGetParameter ( Frame, Params, Parameter )
local argsParent = Frame:getParent().args
local argsFrame = Frame.args
for key,value in pairs ( argsParent ) do
argsParent[string.lower(key)] = value
end
for key,value in pairs ( argsFrame ) do
argsParent[string.lower(key)] = value
end
return argsParent[Parameter] or argsFrame[Parameter] or Params[Parameter]
end
local function getEntityId ()
local pageID = mw.wikibase.getEntityIdForCurrentPage()
local result = {}
if ( pageID ~= nil ) then
result = {
["id"] = pageID,
["hasID"] = true,
["errCode"] = 1,
["errMsg"] = cfgI18["getEntityId"]["1"]
}
else
result = {
["id"] = "",
["hasID"] = false,
["errCode"] = 0,
["errMsg"] = cfgI18["getEntityId"]["0"]
}
end
return result
end
local wdEntityId = getEntityId()
local wdErrCategory = ''
local wd = {}
function wd.formatNumberT ( number )
local decimalPosition = mw.ustring.find( number, ".", 1, true)
local minus = mw.ustring.find( number, "-", 1, true)
number = mw.ustring.gsub ( number, '%.', ',' )
if ( minus ) then number = mw.ustring.sub( number, 2) end
if (not decimalPosition) then
decimalPosition = mw.ustring.len ( number ) + 1;
end
if (decimalPosition > 4 ) then
local i = decimalPosition - 3;
while (i > 1) do
number = mw.ustring.sub(number, 1, i - 1) .. '.' .. mw.ustring.sub( number, i );
decimalPosition = decimalPosition + 1;
i = i - 3;
end
end
if ( minus ) then number = '−' .. number end
return number;
end
function wd.getLabel ( id )
if ( id == nil or id == "" or id == "self" ) then
if ( wdEntityId.hasID ) then
id = wdEntityId.id
else
return {
["label"] = '',
["errCode"] = 2,
["errMsg"] = cfgI18["getLabel"]["2"]
}
end
end
local result = {}
local label = mw.wikibase.label ( id )
if ( label ~= nil ) then
result = {
["label"] = label,
["errCode"] = 1,
["errMsg"] = cfgI18["getLabel"]["1"]
}
else
result = {
["label"] = "",
["errCode"] = 2,
["errMsg"] = cfgI18["getLabel"]["2"]
}
end
return result
end
function wd.getLabelLang ( id, lang )
if ( id == nil or id == "" or id == "self" ) then
if ( wdEntityId.hasID ) then
id = wdEntityId.id
else
return {
["label"] = "",
["errCode"] = 2,
["errMsg"] = cfgI18["getLabelLang"]["2"]
}
end
end
local result = {}
local entityLabel = mw.wikibase.getLabelByLang( id, lang )
if ( entityLabel ~= nil ) then
result = {
["label"] = entityLabel,
["errCode"] = 1,
["errMsg"] = cfgI18["getLabelLang"]["1"]
}
else
result = {
["label"] = "",
["errCode"] = 0,
["errMsg"] = cfgI18["getLabelLang"]["0"]
}
end
return result
end
function wd.getSiteLink ( id, wiki )
if ( wiki == nil ) then wiki = 'dewikivoyage' end
if ( id == nil or id == "" or id == "self" ) then
if ( wdEntityId.hasID ) then
id = wdEntityId.id
else
return {
["sitelink"] = '',
["errCode"] = 2,
["errMsg"] = cfgI18["getSiteLink"]["2"]
}
end
end
local result = {}
local sitelink = mw.wikibase.getSitelink ( id, wiki )
if ( sitelink == nil ) then
result = {
["sitelink"] = '',
["errCode"] = 0,
["errMsg"] = cfgI18["getSiteLink"]["0"]
}
else
result = {
["sitelink"] = sitelink,
["errCode"] = 1,
["errMsg"] = cfgI18["getSiteLink"]["1"]
}
end
return result
end
-- zählt die Einträge einer Eigenschaft
function wd.getPropertyCount ( claim )
return #claim
end
function wd.getBestStatement ( id, property )
if ( id == nil or id == "" or id == "self" ) then
if ( wdEntityId.hasID ) then
id = wdEntityId.id
else
return {
["statement"] = {},
["errCode"] = 2,
["errMsg"] = cfgI18["getStatement"]["2"],
["count"] = 0
}
end
end
local result = {}
local statement = mw.wikibase.getBestStatements( id, property )
if ( next(statement) == nil ) then
result = {
["statement"] = {},
["errCode"] = 0,
["errMsg"] = cfgI18["getStatement"]["0"],
["count"] = 0
}
else
result = {
["statement"] = statement,
["errCode"] = 1,
["errMsg"] = cfgI18["getStatement"]["1"],
["count"] = wd.getPropertyCount ( statement )
}
end
return result
end
function wd.getStatementAll ( id, property )
if ( id == nil or id == "" or id == "self" ) then
if ( wdEntityId.hasID ) then
id = wdEntityId.id
else
return {
["statement"] = {},
["errCode"] = 2,
["errMsg"] = cfgI18["getStatement"]["2"],
["count"] = 0
}
end
end
local result = {}
local statement = mw.wikibase.getAllStatements( id, property )
if ( next(statement) == nil ) then
result = {
["statement"] = {},
["errCode"] = 0,
["errMsg"] = cfgI18["getStatement"]["0"],
["count"] = 0
}
else
result = {
["statement"] = statement,
["errCode"] = 1,
["errMsg"] = cfgI18["getStatement"]["1"],
["count"] = wd.getPropertyCount ( statement )
}
end
return result
end
function wd.getPlainWikidataId (id)
if (( id == nil or id == "" or id == "self" ) and wdEntityId.hasID) then
return wdEntityId.id
else
return id
end
end
function wd.getWikidataLink (id, property)
local uri = 'wikidata:' .. wd.getPlainWikidataId(id)
if (property ~= nil) then
uri = uri .. '#' .. property
end
return uri
end
function wd.Entity ()
return wdEntityId
end
function wd.EntityId ()
return wdEntityId.id
end
function wd.hasEntity ()
return wdEntityId.hasID
end
function wd.EntityIdErrCode ()
return wdEntityId.errCode
end
function wd.EntityIdErrText ()
return wdEntityId.errMsg
end
function wd.Label ()
return wd.getLabel().label
end
function wd.getQualifier ( property, qualifier, formatting, delimiter )
local formatString = formatting or ''
local delimiterString = delimiter or ','
local result = {
["errCode"] = 0,
["errText"] = '',
["qualifier"] = ''
}
local wdValue
if property.qualifiers ~= nil then
if property.qualifiers[qualifier] ~= nil then
local out = {}
for k,v in pairs(property.qualifiers[qualifier]) do
if ( v.datavalue.type == 'time' ) then
wdValue = v.datavalue.value.time
-- Workaround für Timestamps, die nur ein Jahr repräsentieren
wdValue = mw.ustring.gsub ( wdValue, '%-00%-00T00:00:00Z', '-01-01T00:00:00Z' )
if ( formatString ~= '' ) then
wdValue = lang:formatDate ( formatString, wdValue )
end
out[#out + 1] = wdValue
end
if ( v.datavalue.type == 'wikibase-entityid' ) then
wdValue = v.datavalue.value.id
out[#out + 1] = wdValue
end
end
result.errCode = 1
result.errText = cfgI18["getQualifier"]["1"]
result.qualifier = table.concat(out, delimiterString)
else
result.errText = cfgI18["getQualifier"]["0"]
end
else
result.errText = cfgI18["getQualifier"]["0"]
end
return result
end
function wd.getLangQualifier ( property )
local result = ''
if property.qualifiers ~= nil then
if property.qualifiers.P407 ~= nil then
if property.qualifiers.P407[1] ~= nil then
if property.qualifiers.P407[1].datavalue ~= nil then
if property.qualifiers.P407[1].datavalue.value ~= nil then
if property.qualifiers.P407[1].datavalue.value.id ~= nil then
local langID = property.qualifiers.P407[1].datavalue.value.id
result = languages.id2code[langID] or 'no_lang'
if languages.id2code[langID] == nil then
wdErrCategory = wdErrCategory .. '[[Kategorie:Wikidata:Unbekannter Sprachcode]]'
end
else
result = 'no_lang'
end
else
result = 'no_lang'
end
else
result = 'no_lang'
end
else
result = 'no_lang'
end
else
result = 'no_lang'
end
else
result = 'no_lang'
end
return result
end
-- helper function round
-- n: value to round
-- idp: number of digits after the decimal point
local function round( n, idp )
local m = 10^( idp or 0 )
if n >= 0 then
return math.floor( n * m + 0.5 ) / m
else
return math.ceil( n * m - 0.5 ) / m
end
end
function wd.getProperty ( claim, formatting, showRanking, label, parameters )
if ( claim[1] ~= nil ) then
if ( claim[1].mainsnak.snaktype == 'novalue' ) then return '' end
local wdValue = ''
local unit
local delimiter = cfgDelimiters[claim[1].mainsnak.property]
if ( delimiter == nil ) then delimiter = cfgDelimiters["default"] end
if ( formatting == nil ) then formatting = 'default' end
local formatString = cfgFormats[formatting] or cfgFormats["default"]
local formatStringParameters = mw.ustring.match ( formatString, '//.-#' )
if ( formatStringParameters ~= nil ) then
formatString = string.sub ( formatString, 1 , string.find ( formatString, formatStringParameters ) - 1 ) .. '#'
end
local qualifierParameters = mw.ustring.match ( formatString, '#QUALIFIER:.-#' ) or ''
local qualifierParameter = mw.ustring.gsub( qualifierParameters, '#QUALIFIER:(.-):(.-)#', '%1' ) or ''
local qualifierFormat = mw.ustring.gsub( qualifierParameters, '#QUALIFIER:(.-):(.-)#', '%2' ) or ''
local qualifierResult = {}
if ( showRanking == nil ) then showRanking = false end
if ( label == nil ) then label = wd.getLabel().label end
local out = {}
if ( claim[1].mainsnak.datatype == 'wikibase-item' ) then
for k,v in pairs ( claim ) do
wdValue = wd.getLabel( v.mainsnak.datavalue.value.id ).label
if ( wdValue == '' ) then
wdValue = wd.getLabelLang( v.mainsnak.datavalue.value.id, 'en' ).label
end
if ( formatStringParameters ~= nil ) then
local tmpFormatStringParameters = string.sub ( formatStringParameters, 3 )
if ( string.sub ( tmpFormatStringParameters, 1, 9 ) == 'sitelink:' ) then
local interwiki = string.sub ( tmpFormatStringParameters, 10 )
interwiki = mw.ustring.gsub( interwiki, '#', '' )
if ( interwiki ~= 'no' ) then
local Link = wd.getSiteLink (v.mainsnak.datavalue.value.id, interwiki )
if ( Link.errCode == 1 ) then
if ( interwiki == 'dewiki' ) then
wdValue = '[[w:' .. Link.sitelink .. '|' .. wdValue .. ']]'
elseif ( interwiki == 'dewikivoyage' ) then
wdValue = '[[' .. Link.sitelink .. '|' .. Link.sitelink:gsub ( '%(.*%)', '' ) .. ']]'
end
end
end
end
else
local deLink = wd.getSiteLink ( v.mainsnak.datavalue.value.id )
if ( deLink.errCode == 1 ) then wdValue = '[[' .. deLink.sitelink .. '|' .. wdValue .. ']]' end
end
wdValue = mw.ustring.gsub ( mw.ustring.gsub ( mw.ustring.gsub ( formatString, '#ID#', v.mainsnak.datavalue.value.id ), '#LABEL#', label ), '#PROPERTY#', wdValue )
if showRanking then
out[#out + 1] = '<span class="wd-rank-' .. v.rank .. '">' .. wdValue .. '</span>'
else
out[#out + 1] = wdValue
end
end
elseif ( claim[1].mainsnak.datatype == 'commonsMedia' ) then
for k,v in pairs ( claim ) do
wdValue = v.mainsnak.datavalue.value
wdValue = mw.ustring.gsub ( formatString, '#PROPERTY#', wdValue )
out[#out + 1] = wdValue
end
elseif ( claim[1].mainsnak.datatype == 'quantity' ) then
for k,v in pairs ( claim ) do
if v.mainsnak.datavalue then
unit = cfgUnits[ v.mainsnak.datavalue.value.unit:gsub( 'https?://www.wikidata.org/entity/', '' ) ] or ''
wdValue = tonumber( v.mainsnak.datavalue.value.amount )
if unit ~= '' then
if unit.factor ~= 1 then
wdValue = round( wdValue * unit.factor, 1 )
end
unit = unit.si
end
wdValue = tostring ( wdValue )
wdValue = mw.ustring.gsub ( mw.ustring.gsub ( formatString, '#FORMAT:T#', wd.formatNumberT ( wdValue ) ), '#PROPERTY#', wdValue )
if ( qualifierParameters ~= '' ) then
qualifierResult = wd.getQualifier ( v, qualifierParameter, qualifierFormat )
wdValue = mw.ustring.gsub ( wdValue, qualifierParameters, qualifierResult.qualifier )
end
wdValue = mw.ustring.gsub ( wdValue, '#UNIT#', unit )
if showRanking then
out[#out + 1] = '<span class="wd-rank-' .. v.rank .. '">' .. wdValue .. '</span>'
else
out[#out + 1] = wdValue
end
end
end
elseif ( claim[1].mainsnak.datatype == 'globe-coordinate' ) then
local lat = ''
local long = ''
local precision = ''
for k,v in pairs ( claim ) do
lat = tonumber ( v.mainsnak.datavalue.value.latitude )
long = tonumber ( v.mainsnak.datavalue.value.longitude )
precision = tonumber ( v.mainsnak.datavalue.value.precision )
wdValue = mw.ustring.gsub ( mw.ustring.gsub ( mw.ustring.gsub ( formatString, '#LAT#', lat ), '#LONG#', long ), '#PRECISION#', precision )
if showRanking then
out[#out + 1] = '<span class="wd-rank-' .. v.rank .. '">' .. wdValue .. '</span>'
else
out[#out + 1] = wdValue
end
end
elseif ( claim[1].mainsnak.datatype == 'url' ) then
if ( claim[1].mainsnak.datavalue ~= nil ) then
local qualifierLang = mw.ustring.match ( formatString, '#PROPERTY:LANG:.-#' ) or ''
local qualifierLangPlus = mw.ustring.match ( formatString, '#PROPERTY:LANG%+:.-#' ) or ''
if ( qualifierLang ~= '' ) then
local qLang = string.lower ( mw.ustring.gsub( qualifierLang, '#PROPERTY:LANG:(.-)#', '%1' ) ) or ''
local urlList = {}
local langCode = ''
for k,v in pairs ( claim ) do
langCode = wd.getLangQualifier(v)
urlList[langCode] = mw.ustring.gsub ( formatString, '#PROPERTY:LANG:(.-)#', v.mainsnak.datavalue.value )
if ( ( langCode ~= qLang ) and ( langCode ~= 'en' ) and ( langCode ~= 'no_lang' ) ) then
urlList['xxx'] = mw.ustring.gsub ( formatString, '#PROPERTY:LANG:(.-)#', v.mainsnak.datavalue.value )
end
end
out[#out + 1] = urlList[qLang] or urlList['en'] or urlList['xxx'] or urlList['no_lang']
elseif ( qualifierLangPlus ~= '' ) then
local qLang = string.lower ( mw.ustring.gsub( qualifierLangPlus, '#PROPERTY:LANG%+:(.-)#', '%1' ) ) or ''
local urlList = {}
local langCode = ''
for k,v in pairs ( claim ) do
langCode = wd.getLangQualifier(v)
if ( ( langCode == 'no_lang' ) or ( langCode == qLang ) ) then
urlList[langCode] = mw.ustring.gsub ( formatString, '#PROPERTY:LANG%+:(.-)#', v.mainsnak.datavalue.value )
else
urlList[langCode] = mw.ustring.gsub ( formatString, '#PROPERTY:LANG%+:(.-)#', v.mainsnak.datavalue.value ) .. ' (' .. langCode .. ')'
if ( ( langCode ~= qLang ) and ( langCode ~= 'en' ) ) then
urlList['xxx'] = mw.ustring.gsub ( formatString, '#PROPERTY:LANG%+:(.-)#', v.mainsnak.datavalue.value ) .. ' (' .. langCode .. ')'
end
end
end
out[#out + 1] = urlList[qLang] or urlList['en'] or urlList['xxx'] or urlList['no_lang']
else
for k,v in pairs ( claim ) do
out[#out + 1] = mw.ustring.gsub ( mw.ustring.gsub ( mw.ustring.gsub ( formatString, '#PROPERTY#', v.mainsnak.datavalue.value ), '#PROPERTY_NO_HTTP#', v.mainsnak.datavalue.value:gsub ( 'https?://', '' ) ), '#LABEL#', label )
end
end
else
out[#out + 1] = '<em>Wert auf Wikidata fehlt.</em>'
end
elseif ( claim[1].mainsnak.datatype == 'string' or claim[1].mainsnak.datatype == 'external-id' ) then
for k,v in pairs ( claim ) do
out[#out + 1] = mw.ustring.gsub ( formatString, '#PROPERTY#', v.mainsnak.datavalue.value )
end
end
local propertyValue = table.concat(out, delimiter)
if ( parameters ~= nil ) then
for k,v in pairs ( parameters ) do
propertyValue = mw.ustring.gsub ( propertyValue , '#PARAMETER' .. k .. '#', v )
end
end
return propertyValue
else
return ''
end
end
-- Funktionen für spezielle Properties zur Verwendung in anderen Modulen
function wd.getDomain ( id )
local result = wd.getBestStatement ( id, 'P17' )
if ( result.errCode == 1 ) then
if ( result.statement[1].mainsnak.datavalue ~= nil ) then
local country = result.statement[1].mainsnak.datavalue.value["id"]
result = wd.getBestStatement ( country, 'P78' )
if ( result.errCode == 1 ) then
if ( result.statement[1].mainsnak.datavalue ~= nil ) then
return mw.wikibase.label ( result.statement[1].mainsnak.datavalue.value["id"] ) or ''
else
return ''
end
else
return ''
end
else
return ''
end
else
return ''
end
end
function wd.getCoordinates ( id )
local item = wd.getBestStatement ( id, 'P625' )
local result = {
["errCode"] = 0,
["lat"] = 0,
["long"] = 0,
["precision"] = 0
}
result.errCode = item.errCode
if ( item.errCode == 1 ) then
result.lat = tonumber ( item.statement[1].mainsnak.datavalue.value.latitude )
result.long = tonumber ( item.statement[1].mainsnak.datavalue.value.longitude )
result.precision = tonumber ( item.statement[1].mainsnak.datavalue.value.precision )
end
return result
end
function wd.getProvince ( id )
local newSearch = true
local provinceID = id
local provinceLabelID = ''
local labelProvince = wd.getLabel().label
local labelProvinceLink = ''
local labelProvinceLabel = ''
local isAn = {}
local result = {
["errCode"] = 0,
["errTxt"] = '',
["errTxtShort"] = '',
["provinceID"] = '',
["provinceCode"] = '',
["province"] = '',
["provinceLink"] = '',
["provinceLabel"] = 'Provinz'
}
local item = wd.getBestStatement ( id, 'P131' )
result.errCode = item.errCode
while newSearch do
if ( item.errCode == 1 and item.statement[1].mainsnak.datavalue ~= nil ) then
provinceID = 'Q' .. item.statement[1].mainsnak.datavalue.value["numeric-id"]
-- Prüfung ob das or irgendwann mal wieder auf das originale Objekt verwiesen wird (Schleife)
if ( provinceID == id ) then
result.errCode = 4
result.errTxt = cfgI18["getProvince"]["4"]
result.errTxtShort = '[[:wikidata:' .. id .. '|' .. labelProvince .. ']] bildet eine Schleife (Selbstreferenz). [[Kategorie:Artikel mit selbstreferenzierenden Verwaltungseinheiten]]'
newSearch = false
else
isAn = wd.getBestStatement ( provinceID, 'P31' )
if ( isAn.errCode == 1 ) then
provinceLabelID = 'Q' .. isAn.statement[1].mainsnak.datavalue.value["numeric-id"]
labelProvince = wd.getLabel ( provinceID ).label
labelProvinceLabel = wd.getLabel ( provinceLabelID ).label
if ( cfgGeography["provinces"][provinceLabelID] ) then
result.errCode = 1
result.errTxt = cfgI18["getProvince"]["1"]
result.provinceID = provinceID
result.province = labelProvince
local itemCode = wd.getBestStatement ( provinceID, 'P300' )
if ( itemCode.errCode == 1 and itemCode.statement[1].mainsnak.datavalue ~= nil ) then
result.provinceCode = wd.getProperty ( itemCode.statement )
end
labelProvinceLink = wd.getSiteLink ( provinceID ).sitelink
if ( labelProvinceLink == '' ) then
result.provinceLink = labelProvince
else
result.provinceLink = '[[' .. labelProvinceLink .. '|' .. mw.ustring.gsub( labelProvinceLink, '%s%(.*%)', '' ) .. ']]'
end
-- derzeit eigenes Label. Wenn Wikidata gewünscht: labelProvinceLabel benutzen
result.provinceLabel = cfgGeography["provinces"][provinceLabelID]
newSearch = false
if ( cfgGeography["countries"][provinceLabelID] ) then
result.errTxtShort = result.errTxtShort .. 'Provinzsuche endet beim Staat[[Kategorie:Artikel mit unbekannter Verwaltungseinheit auf Wikidata]]'
end
else
item = wd.getBestStatement ( provinceID, 'P131' )
end
else
result.errCode = 2
result.errTxt = cfgI18["getProvince"]["2"] .. wd.getLabel ( provinceID ).label
result.errTxtShort = 'Verwaltungseinheit [[:wikidata:' .. provinceID .. '|' .. provinceID .. ']] hat kein <em>ist ein(e)</em>[[Kategorie:Artikel mit unbekannter Verwaltungseinheit auf Wikidata]]'
newSearch = false
end
end
else
if ( provinceID == 'self' ) then provinceID = wd.EntityId() end
result.errCode = 0
result.errTxt = cfgI18["getProvince"]["0"]
result.errTxtShort = '[[:wikidata:' .. provinceID .. '|' .. labelProvince .. ']] hat keine übergeordnete Region.[[Kategorie:Artikel ohne übergeordnete Verwaltungseinheit auf Wikidata]]'
newSearch = false
end
end
return result
end
-- Funktionen zur Verwendung in Vorlagen
function wd.LabelByID ( frame )
local display = ''
local errorStr = ''
local id = wdGetParameter ( frame, cfgParams["LabelByID"], "id" )
local result = wd.getLabel(id)
display = result.label
if ( result.errCode ~= 1 ) then
errorStr = errorStr .. check._error ( 'Funktion <span style="font-weight: bold; font-style:italic">LabelByID</span>: ' .. result.errMsg .. "ID: " .. id, 'Wikidata2' )
end
return errorStr .. check._testParams ( frame:getParent().args, cfgParams["LabelByID"], 'Wikidata2', 'lower' ) .. display
end
function wd.LabelLang ( frame )
local display = ''
local lang= wdGetParameter ( frame, cfgParams["LabelLang"], "lang" )
local result = wd.getLabelLang ( 'self', lang )
if ( result.label ~= nil ) then
display = result.label
end
return check._testParams ( frame:getParent().args, cfgParams["LabelLang"], "Wikidata2", 'lower' ) .. display
end
function wd.LabelLangByID ( frame )
local display = ''
local id= wdGetParameter ( frame, cfgParams["LabelLang"], "id" )
local lang= wdGetParameter ( frame, cfgParams["LabelLang"], "lang" )
local result = wd.getLabelLang ( id, lang )
if ( result.label ~= nil ) then
display = result.label
end
return check._testParams ( frame:getParent().args, cfgParams["LabelLangByID"], 'Wikidata2', 'lower' ) .. display
end
function wd.LabelLangByIDRaw ( id, lang )
return wd.getLabelLang ( id, lang )
end
function wd.siteLink ( frame )
local display = ''
local id = wdGetParameter ( frame, cfgParams["siteLink"], "id" )
local wiki= wdGetParameter ( frame, cfgParams["siteLink"], "wiki" )
local result = wd.getSiteLink ( id, wiki )
if ( result.sitelink ~= nil ) then
display = result.sitelink
end
return check._testParams ( frame:getParent().args, cfgParams["siteLink"], "Wikidata2", 'lower' ) .. display
end
function wd.dumpEntity ( frame )
local vd = require('Modul:VarDump')
local display = ''
local id = wdGetParameter ( frame, cfgParams["dumpEntity"], "id" )
local property = mw.ustring.gsub ( wdGetParameter ( frame, cfgParams["dumpEntity"], "p" ), 'p', 'P' )
if ( property == '' ) then
display = display .. vd.dump ( mw.wikibase.getEntityObject(id) )
else
display = display .. vd.dump ( wd.getStatementAll ( id, property ).statement )
end
return check._testParams ( frame:getParent().args, cfgParams["dumpEntity"], "Wikidata2", 'lower' ) .. display
end
function wd.getValue ( frame )
local errorStr = ''
local display = ''
local category = ''
local result = {}
local id = wdGetParameter ( frame, cfgParams["getValue"], "id" )
if ( id == 'self' ) then id = wdEntityId.id end
local property = mw.ustring.gsub ( wdGetParameter ( frame, cfgParams["getValue"], "p" ), 'p', 'P' )
local category = '[[Kategorie:Seiten, die die Wikidata-Eigenschaft '.. property .. ' benutzen]]'
local ranking = wdGetParameter ( frame, cfgParams["getValue"], "ranking" )
local formatting = wdGetParameter ( frame, cfgParams["getValue"], "format" )
if (formatting == '' ) then formatting = property end
local showRanking = wdGetParameter ( frame, cfgParams["getValue"], "showRanking" )
if ( ranking == 'all' ) then
result = wd.getStatementAll ( id, property )
else
result = wd.getBestStatement ( id, property )
end
if ( result.errCode == 1 ) then
display = display .. wd.getProperty ( result.statement, formatting, yesno ( showRanking ), wd.getLabel(id).label )
else
errorStr = errorStr .. check._error ( 'FEHLER (Code: ' .. result.errCode .. '): ' .. result.errMsg .. '(ID= ' .. id .. ', Property= ' .. property .. ')', 'Wikidata2' )
if ( result.errCode == 2 ) then display = display .. '[[Kategorie:Artikel ohne Objekt auf Wikidata]]' end
end
return category .. errorStr .. check._testParams ( frame:getParent().args, cfgParams["getValue"], 'Wikidata2', 'lower' ) .. display
end
function wd.getPOIType ( frame )
local errorStr = ''
local display = ''
local poiType = ''
local result = {}
local id = wdGetParameter ( frame, cfgParams["getValue"], "id" )
result = wd.getBestStatement ( id, 'P31' )
if ( result.errCode == 0 ) then
-- Property nicht befüllt > Standard
display = display .. cfgPOITypes["default"]
elseif ( result.errCode == 1 ) then
-- was gefunden, ersten Eintrag holen, wenn nichts brauchbares da, dann Standard
poiType = cfgPOITypes["Q" .. result.statement[1].mainsnak.datavalue.value["numeric-id"]]
if ( poiType == nil ) then poiType = cfgPOITypes["default"] end
display = display .. poiType
else
-- kein Objekt mit der ID vorhanden: Fehlermeldung und Standardtyp
display = display .. cfgPOITypes["default"]
errorStr = errorStr .. check._error ( 'FEHLER (Code: ' .. result.errCode .. '): ' .. result.errMsg .. '(ID= ' .. id .. ')', 'Wikidata2' ) .. '[[Kategorie:Artikel ohne Objekt auf Wikidata]]'
end
return errorStr .. check._testParams ( frame:getParent().args, cfgParams["getPOIType"], 'Wikidata2', 'lower' ) .. display
end
function wd.getPOITypeDefault ()
return cfgPOITypes["default"]
end
function wd.getOfficialWebsite ( frame )
local display = ''
local category = ''
local result = {}
local text = wdGetParameter ( frame, cfgParams["getValue"], "text" ) or ''
local id = wdGetParameter ( frame, cfgParams["getValue"], "id" ) or wdEntityId
local vd = require('Modul:VarDump')
result = wd.getBestStatement ( id, 'P856' )
local i
local url
local statements
if ( result.errCode == 0 ) then
-- Property nicht befüllt > Standard
display = 'Eine offizielle Webseite ist nicht bekannt.<span class="wd-tools-message-inline"> Bitte auf [[:wikidata:' .. wdEntityId.id .. '|Wikidata]] nachtragen.</span>[[Kategorie:Artikel ohne offizielle Webseite auf Wikidata]]'
elseif ( result.errCode == 1 ) then
-- was gefunden, ersten Eintrag holen, wenn nichts brauchbares da, dann Standard
-- display = display .. wd.getProperty ( result.statement, 'P856-link+site' )
-- urls can contain percent signs
category = category .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P856 benutzen]]'
display = wd.getProperty ( result.statement, 'P856-lang+:de' )
if ( text ~= '' ) then
display = '<span class="wikidata-content">' .. display .. '</span>' .. ' – ' .. text
else
display = '<span class="wikidata-content">' .. display .. '</span>' .. ' – Offizielle Webseite von ' .. wd.getLabel(id).label
end
else
-- kein Objekt mit der ID vorhanden: Fehlermeldung und Standardtyp
display = 'Eine offizielle Webseite ist nicht bekannt.<span class="wd-tools-message-inline"> Objekt bitte auf [[:wikidata:Wikidata:Main Page|Wikidata]] nachtragen.</span>[[Kategorie:Artikel ohne Objekt auf Wikidata]]'
end
return category .. wdErrCategory .. check._testParams ( frame:getParent().args, cfgParams["getOfficialWebsite"], 'Wikidata2', 'lower' ) .. display
end
return wd