wikivoyage>RolandUnger: Umrechnung in SI-Einheiten

2021-08-07T07:53:03Z

Umrechnung in SI-Einheiten

Neue Seite

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] = '' .. wdValue .. ''
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] = '' .. wdValue .. ''
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] = '' .. wdValue .. ''
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] = 'Wert auf Wikidata fehlt.'
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 ist ein(e)[[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 LabelByID: ' .. 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. Bitte auf [[:wikidata:' .. wdEntityId.id .. '|Wikidata]] nachtragen.[[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 = '' .. display .. '' .. ' – ' .. text
else
display = '' .. display .. '' .. ' – 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. Objekt bitte auf [[:wikidata:Wikidata:Main Page|Wikidata]] nachtragen.[[Kategorie:Artikel ohne Objekt auf Wikidata]]'
end

return category .. wdErrCategory .. check._testParams ( frame:getParent().args, cfgParams["getOfficialWebsite"], 'Wikidata2', 'lower' ) .. display
end

return wd

Modul:Wikidata2 - Versionsgeschichte

Xineohp1506: 1 Version von :wikivoyage:Modul:Wikidata2 importiert

wikivoyage>RolandUnger: Umrechnung in SI-Einheiten