skandinavien-wiki.net

Modul:Wikidata utilities: Unterschied zwischen den Versionen

Modul Diskussion

Modul:Wikidata utilities (Quelltext anzeigen)

Version vom 18. Mai 2019, 09:11 Uhr

562 Bytes hinzugefügt ,  vor 5 Jahren
überarbeitet
KKeine Bearbeitungszusammenfassung
(überarbeitet)
Zeile 67: Zeile 67:


function fw.getBestStatements( entity, p )
function fw.getBestStatements( entity, p )
local statements
if type( entity ) == 'string' then
if type( entity ) == 'string' then
statements = mw.wikibase.getBestStatements( entity, p )
return mw.wikibase.getBestStatements( entity, p )
else
else
statements = entity:getBestStatements( p )
return entity:getBestStatements( p )
end
end
return statements
end
end


Zeile 102: Zeile 100:


function fw.getValue( entity, p, catArray )
function fw.getValue( entity, p, catArray )
if ( not entity ) or ( entity == '' ) then
local value = ''
return ''
if entity and entity ~= '' and p and p ~= '' then
end
value = getFirstValue( fw.getBestStatements( entity, p ) )
 
if value and catArray then
local value = getFirstValue( fw.getBestStatements( entity, p ) )
catArray[ p ] = ''
if value then
end
if catArray then catArray[ p ] = '' end
value = value or ''
else
value = ''
end
end
if catArray then
if catArray then
Zeile 120: Zeile 116:


function fw.getId( entity, p, catArray )
function fw.getId( entity, p, catArray )
if ( not entity ) or ( entity == '' ) then
local value = ''
return ''
if entity and entity ~= '' and p and p ~= '' then
end
value = getFirstValue( fw.getBestStatements( entity, p ) )
if value then
local value = getFirstValue( fw.getBestStatements( entity, p ) )
if catArray then catArray[ p ] = '' end
if value then
value = value.id
if catArray then catArray[ p ] = '' end
else
value = value.id
value = ''
else
end
value = ''
end
end
if catArray then
if catArray then
Zeile 139: Zeile 134:


function fw.getValues( entity, p, count, catArray )
function fw.getValues( entity, p, count, catArray )
if ( not entity ) or ( entity == '' ) then
local values = '', statements
return ''
if entity and entity ~= '' and p and p ~= '' then
statements = fw.getBestStatements( entity, p )
values = getNValues( statements, count or #statements )
if catArray and #values > 0 then catArray[ p ] = '' end
end
end
local statements = fw.getBestStatements( entity, p )
local values = getNValues( statements, count or #statements )
if catArray then
if catArray then
if #values > 0 then catArray[ p ] = '' end
return values, catArray
return values, catArray
else
else
Zeile 154: Zeile 147:
end
end


function fw.getValuesByLang( entity, p, count, lang )
function fw.getValuesByLang( entity, p, count, lang, catArray )
if ( not entity ) or ( entity == '' ) then
local ar = '', statements, i, value
return ''
if entity and entity ~= '' and p and p ~= '' then
statements = fw.getBestStatements( entity, p )
ar = {}
count = count or #statements
if #statements > 0 and count > 0 then
i = 0
repeat
i = i + 1
if statements[ i ].mainsnak.snaktype == 'value' then
value = statements[ i ].mainsnak.datavalue.value
if value.language and lang == value.language then
table.insert( ar, statements[ i ].mainsnak.datavalue.value.text )
end
end
until ( i >= #statements ) or ( #ar >= count )
end
if catArray and #ar > 0 then catArray[ p ] = '' end
end
end
 
if catArray then
local statements = fw.getBestStatements( entity, p )
return ar, catArray
 
else
local ar = {}
count = count or #statements
if ( #statements == 0 ) or ( count <= 0 ) then
return ar
return ar
end
end
local i = 0, value
repeat
i = i + 1
if statements[i].mainsnak.snaktype == 'value' then
value = statements[i].mainsnak.datavalue.value
if lang == value.language then
table.insert( ar, statements[i].mainsnak.datavalue.value.text )
end
end
until ( i >= #statements ) or ( #ar >= count )
return ar
end
end


function fw.getValuesWithQualifierIds( entity, p, qualifierP, defaultId )
function fw.getValuesWithQualifierIds( entity, p, qualifierP, defaultId, catArray )
local result = {}
local result = {}, statements, value, id, i, j
local statements = fw.getStatements( entity, p, nil )
if entity and entity ~= '' and p and p ~= '' and qualifierP and qualifierP ~= '' then
if #statements == 0 then return result end
statements = fw.getStatements( entity, p, nil )
-- defaultId is used if a qualifier is missing
if #statements > 0 then
local default = defaultId
-- defaultId is used if a qualifier is missing
if ( default == nil ) or ( default == '' ) or type( default ) ~= 'string'
if not defaultId or defaultId == '' or type( defaultId ) ~= 'string' then
then default = 'unknown' end
defaultId = 'unknown'
end


local value, id, i, j
for i = 1, #statements, 1 do
for i = 1, #statements, 1 do
value = statements[ i ].mainsnak.datavalue.value
value = statements[i].mainsnak.datavalue.value
id = defaultId
id = default
if statements[ i ].qualifiers and statements[ i ].qualifiers[ qualifierP ]
if statements[i].qualifiers and statements[i].qualifiers[ qualifierP ]
and ( #statements[ i ].qualifiers[ qualifierP ] > 0 ) then
and ( #statements[i].qualifiers[ qualifierP ] > 0 ) then
for j = 1, #statements[ i ].qualifiers[ qualifierP ], 1 do
for j = 1, #statements[i].qualifiers[ qualifierP ], 1 do
if statements[ i ].qualifiers[ qualifierP ][ j ].snaktype == 'value' then
if statements[i].qualifiers[ qualifierP ][ j ].snaktype == 'value' then
id = statements[ i ].qualifiers[ qualifierP ][ j ].datavalue.value.id
id = statements[i].qualifiers[ qualifierP ][ j ].datavalue.value.id
if catArray then catArray[ p ] = '' end
break
break
end
end
end
end
result[ id ] = value
end
end
end
end
result[ id ] = value
end
end
 
if catArray then
return result
return result, catArray
else
return result
end
end
end


-- get values array for monolingual text
-- get values array for monolingual text
function fw.getValuesWithLanguages( entity, p )
function fw.getValuesWithLanguages( entity, p, catArray )
local result = {}
local result = {}, statements, hyphen, i, lng, value
local statements = fw.getStatements( entity, p, nil )
if entity and entity ~= '' and p and p ~= '' then
if #statements == 0 or statements[1].mainsnak.datatype ~= 'monolingualtext'
statements = fw.getStatements( entity, p, nil )
then return result end
if #statements > 0 and statements[ 1 ].mainsnak.datatype == 'monolingualtext' then
 
if catArray then catArray[ p ] = '' end
local hyphen, i, lng, value
for i = 1, #statements, 1 do
for i = 1, #statements, 1 do
value = statements[i].mainsnak.datavalue.value
value = statements[i].mainsnak.datavalue.value
lng = value.language
lng = value.language
hyphen = lng:find( '-' )
hyphen = lng:find( '-' )
if hyphen then
if hyphen then
lng = lng:sub( 1, hyphen - 1 )
lng = lng:sub( 1, hyphen - 1 )
end
if not result[ lng ] then result[ lng ] = value.text end
end
end
end
if not result[ lng ] then result[ lng ] = value.text end
end
end
 
if catArray then
return result
return result, catArray
else
return result
end
end
end


Zeile 317: Zeile 321:


function fw.getCategories( catArray, formatStr )
function fw.getCategories( catArray, formatStr )
if not formatStr then formatStr = '[[Category:%s]]' end
result = ''
result = ''
if not catArray then return result end
if catArray then
if not formatStr or formatStr == '' then
for key, value in pairs( catArray ) do
formatStr = '[[Category:%s]]'
result = result .. string.format( formatStr, key )
end
end
for key, value in pairs( catArray ) do
result = result .. string.format( formatStr, key )
end
end
return result
return result
end
end


return fw
return fw
Anonymer Benutzer
Abgerufen von „https://skandinavien-wiki.net/wiki/Spezial:Mobiler_Unterschied/16503“