Modul:GetNumber
Dieses Modul ist getestet und für den projektweiten Gebrauch geeignet. Es kann in Vorlagen benutzt und auf Hilfeseiten erläutert werden. Entwicklungen an dem Modul sollten auf GetNumber/Test und die Anwendung auf der Spielwiese getestet werden, da wiederholte Trial-and-Error-Edits die Resourcen stark belasten können. |
Dieses Modul benutzt die Wikidata-Eigenschaften:
|
Funktion
Das Modul bietet einige Funktionen, um numerische Wikidata-Eigenschaften (Datentyp quantity
) inklusive ihren Einheiten und Zeitpunkten anzuzeigen.
Abfrage mit Einheit: Sind gewünschte Einheiten nicht auf Wikidata am Objekt erfasst, kann vom Modul eine gewünschte Umrechung vorgenommen werden. Die abzurufenden Eigenschaften müssen dem Modul und dessen Submodul Modul:GetNumber/Units bekannt gemacht werden. Derzeit sind folgende Eigenschaften implementiert:
- Breite (P2049) standardmäßig in Kilometern
- Fläche (P2046) standardmäßig in Quadratkilometern
- Höhe eines Objektes (P2048) standardmäßig in Metern
- Höhe (geografisch) (P2044) standardmäßig in Metern
- Länge (P2043) standardmäßig in Kilometern
- Netzspannung (P2884) standardmäßig in Volt. Zusätzlich wird die Frequenz durch ein Komma getrennt angegeben.
- Preis (P2284) standardmäßig in Euro
- Tiefe (vertikal) (P4511) standardmäßig in Metern
Abfrage mit Zeitpunkt: Einige numerische Eigenschaften sind mit einen Zeitpunkt der Gültigkeit qualifiziert. Die abzurufenden Eigenschaften müssen ebenfalls dem Modul und dessen Submodul Modul:GetNumber/Units bekannt gemacht werden. Derzeit sind folgende Eigenschaften implementiert
Das Modul kann sowohl in anderen Modulen als auch in Vorlagen verwendet werden.
Qualifikatoren
Qualifikatoren werden vom Modul mit abgefragt und genutzt, eine direkte Abfrage von Qualifikatoren per übergebenem Parameter ist aber derzeit nicht möglich. Qualifikatoren werden folgendermaßen genutzt:
- Eigenschaften bei denen eine Maßeinheit gewünscht bzw. gefordert ist, rufen diese mit ab und zeigen sie bei Bedarf über die Funktion
getNumbersWithUnit
an.- Die Eigenschaft Netzspannung (P2884) ruft zusätzlich die Frequenz ab und gibt sie zusätzlich mit aus.
- Eigenschaften bei denen ein Zeitpunkt der Gültigkeit erfasst ist, rufen diese mit ab und zeigen sie bei Bedarf über die Funktion
getNumbersWithDate
an.
Funktionen des Moduls
getNumbersWithUnit
getNumbersWithUnit ( id, property, unit, values, precision, show, delimiter )
- Aufruf in einer Vorlage:
{{#invoke:GetNumber|getNumbersWithUnit|id|property|unit|values|precision|show|delimiter}}
- Aufruf in einem Modul:
gn.GetNumber().getNumbersWithUnit(id,property,unit,values,precision,show,delimiter)
- Funktion: Liefert den/die numerischen Wert(e) mit ihren Einheiten.
- Aufruf in einer Vorlage:
Bei der Verwendung in anderen Modulen muss am Skriptanfang noch ein gn = require( 'Module:GetNumber' )
eingefügt werden.
Die Funktion arbeitet mit den folgenden Parametern
|id=
Wikidata-ID des Objektes, kann leer bleiben, wenn der eigene Artikel abgefragt werden soll.|property=
Angabe der Eigenschaft, die abgefragt werden soll.|unit=
Wikidata-ID der Maßeinheit, die abgefragt werden soll. Ist keine angegeben, wird die im Modul GetNumber/Units als Standard angegebene Einheit abgefragt. Ist der Wert nicht in der gewünschten Maßeinheit erfasst, versucht die Funktion, die gegebenen Werte in die gewünschte Einheit umzurechnen und bedient sich dabei der auf GetNumber/Units angegebenen Umrechnungsfaktoren.|values=
gibt an, ob der erste gelieferte Wert, oder, wenn vorhanden, alle erfassten Werte ausgegeben werden. Standardmäßig wird nur der erste gefundene Wert verwendet.|values=single
der erste Wert (Standard)|values=all
alle Werte
|precision=
gibt die gewünschte Anzahl Nachkommastellen an. Standardmößig wird auf ganze Zahlen gerundet.|show=
gibt die gewünschte Formatierung an.|show=number
gibt nur die Zahl in formatierter Form aus (mit Tausenderpunkten).|show=plain
gibt nur die Zahl unformatiert aus.|show=short
gibt nur die Zahl und die Maßeinheit als Abkürzung aus (Standard).|show=long
gibt nur die Zahl und die ausgeschriebene Maßeinheit aus.|delimiter=
gibt die gewünschte Trennung zwischen den Werten an. Standardmäßig ist das ein Komma gefolgt von einem ungeschützten Leerzeichen.
Beispiele Fläche:
- Brandenburg (Standard):
{{#invoke:GetNumber|getNumbersWithUnit|Q1208|P2046}}
– 29.479 km² - Brandenburg (Standard, 2 Kommastellen):
{{#invoke:GetNumber|getNumbersWithUnit|Q1208|P2046|||2}}
– 29.478,63 km² - Manhattan (Standard, lang):
{{#invoke:GetNumber|getNumbersWithUnit|Q11299|P2046|6=long}}
– 86.971.801 Quadratkilometer - Manhattan (km² angefordert, auf WD vorhanden):
{{#invoke:GetNumber|getNumbersWithUnit|Q11299|P2046|Q712226}}
– 86.971.801 km² - Manhattan (mi² angefordert, auf WD vorhanden):
{{#invoke:GetNumber|getNumbersWithUnit|Q11299|P2046|Q232291}}
– 34 mi² - Manhattan (ft² angefordert, auf WD nicht vorhanden):
{{#invoke:GetNumber|getNumbersWithUnit|Q11299|P2046|Q857027}}
– 936.156.672 - Manhattan (ha angefordert, auf WD nicht vorhanden):
{{#invoke:GetNumber|getNumbersWithUnit|Q11299|P2046|Q35852}}
– 8.697 ha - Manhattan (ft² angefordert, auf WD nicht vorhanden, aber beide Werte umgerechnet - sollten eigentlich gleich sein):
{{#invoke:GetNumber|getNumbersWithUnit|Q11299|P2046|Q857027|all}}
– 936.156.672
Beispiele Höhe:
- Cottbus (Standard):
{{#invoke:GetNumber|getNumbersWithUnit|Q3214|P2044}}
– 76 m - San Francisco (ft angefordert):
{{#invoke:GetNumber|getNumbersWithUnit|Q62|P2044|Q3710|6=long}}
– 98 Fuß
getNumbersWithDate
getNumbersWithDate ( id, property, values, show, delimiter )
- Aufruf in einer Vorlage:
{{#invoke:GetNumber|getNumbersWithDate|id|property|values|show|delimiter}}
- Aufruf in einem Modul:
gn.GetNumber().getNumbersWithDate(id,property,values,show,delimiter)
- Funktion: Liefert den/die numerischen Wert(e) mit ihren Gültigkeitsdatum. Nummern werden standardmäßig mit Tausenderstellen formatiert und die Funktion geht dabei von ganzen Zahlwerten aus.
- Aufruf in einer Vorlage:
Bei der Verwendung in anderen Modulen muss am Skriptanfang noch ein gn = require( 'Module:GetNumber' )
eingefügt werden.
Die Funktion arbeitet mit den folgenden Parametern
|id=
Wikidata-ID des Objektes, kann leer bleiben, wenn der eigene Artikel abgefragt werden soll.|property=
Angabe der Eigenschaft, die abgefragt werden soll.|values=
gibt an, ob der erste gelieferte Wert, oder, wenn vorhanden, alle erfassten Werte eusgegeben Werte, standardmäßig wird nur der erste gefundene Wert verwendet.|values=single
der erste Wert (Standard)|values=all
alle Werte
|show=
gibt die gewünschte Formatierung an.|show=number
gibt nur die Zahl in formatierter Form aus (mit Tausenderpunkten).|show=plain
gibt nur die Zahl unformatiert aus.|show=year
gibt die Zahl und das Jahr aus.|delimiter=
gibt die gewünschte Trennung zwischen den Werten an. Standardmäßig ist das ein Komma gefolgt von einem ungeschützten Leerzeichen.
Einwohnerzahl:
- Kleinmachnow (Einwohnerzahl):
{{#invoke:GetNumber|getNumbersWithDate|Q104192|P1082}}
– 20.152 - Kleinmachnow (Einwohnerzahl+Jahr):
{{#invoke:GetNumber|getNumbersWithDate|Q104192|P1082||year}}
– 20.152 (2023)
Passagierzahl:
- Flughafen Frankfurt am Main (Passagierzahl):
{{#invoke:GetNumber|getNumbersWithDate|Q46033|P3872}}
– 48.918.482 - Flughafen Frankfurt am Main (Passagierzahl+Jahr):
{{#invoke:GetNumber|getNumbersWithDate|Q46033|P3872||year}}
– 48.918.482 (2022)
getNumbersWithUnitQuickbar + getNumbersWithDateQuickbar
Beispiele von oben | |
Höhe | 76 m |
---|---|
Fläche | 166 km² |
Einwohnerzahl | 20.152 (2023) |
Passagierzahl | 48.918.482 (2022) |
getNumbersWithUnitQuickbar ( id, property, unit, precision, wikiValue )
getNumbersWithDateQuickbar ( id, property, wikiValue )
- Aufruf in einer Vorlage:
{{#invoke:GetNumber|getNumbersWithUnitQuickbar|id|wikiValue}}
- Aufruf in einem Modul:
gn.GetNumber().getNumbersWithUnitQuickbar(id,wikiValue)
- Funktion: Liefert den numerischen Wert mit dessen Einheit bzw. Zeitpunkz als Tabellenzeile zur Einbindung in einer Infobox (Quickbar). Es wird immer nur ein Wert abgerufen. Diese Funktion wird im Regelfall nur in anderen Modulen, speziell denen für die Quickbars, benutzt. Der Einsatz in individuell zusammengestellten Infoboxen direkt in Artikeln ist aber trotzdem möglich.
- Aufruf in einer Vorlage:
Dieser Funktion kann auch ein „Sollwert“ für die Ausgabe übergeben werden. Das bewirkt eine Ausgabe dieses Wertes und keine Ausgabe des auf Wikidata gespeicherten Wertes. Ungeachet dessen wird der übergebene Wert mit Wikidata verglichen. Das Ergebnis des Abgleich finden sich in einer Wartungskategorie sowie in zusätzlichen CSS-Klassen. Für den Leser gibt es ein zusätzliches Tooltip mit dem Ergebnis des Vergleichs und dem Wert von Wikidata. Einheiten oder Formatierungen im übergebenen Wert werden vor dem Vergleich gegebenenfalls entfernt.
Wartungskategorien
- Wikidata:Fehlende Umrechnung (6)
- Wikidata:Fehlende Eigenschaft (2)
- Wikidata:Unbekannte Eigenschaft (4)
- Wikidata:Unbekannte Einheit (4)
- Fehlende Daten auf Wikidata: Fläche (63) – Höhe (0) – Höhe über dem Meeresspiegel (3.297) – Einwohnerzahl (2.445) – Passagierzahl (1)
- Identische Daten auf Wikidata: Fläche (18) – Höhe (0) – Höhe über dem Meeresspiegel (9) – Einwohnerzahl (19) – Passagierzahl (0)
- Abweichende Daten auf Wikidata: Fläche (96) – Höhe (0) – Höhe über dem Meeresspiegel (44) – Einwohnerzahl (421) – Passagierzahl (0)
HTML bei Nutzung in den Quickbars
Folgendes HTML wird erzeugt:
<!-- Eintrag für die Zeile: jeweils eine der folgenden Zeilen, je nach abgerufener Eigenschaft -->
<tr class="voy-qb-item voy-qb-item-altitude"> <!-- Eintrag für die Eigenschaft P2044 -->
<tr class="voy-qb-item voy-qb-item-area"> <!-- Eintrag für die Eigenschaft P2046 -->
<tr class="voy-qb-item voy-qb-item-population"> <!-- Eintrag für die Eigenschaft P1082 -->
<tr class="voy-qb-item voy-qb-item-passengers"> <!-- Eintrag für die Eigenschaft P3872 -->
<!-- Eintrag für die erste Spalte -->
<th class="voy-qb-item-key">Eigenschaft</th> <!-- Label aus: Modul:GetNumber/Units -->
<!-- Je nach Auswertung der Daten wird eine der folgenden Zellen ausgegeben -->
<!-- Ein Wikidata-Wert kann nicht ermittelt werden -->
<td class="voy-qb-item-value1 voy-qb-item-value-nowikidata" data-wikidata-id="Wikidata-ID, wenn vorhanden" data-wikidata-value="Wert" title="Tooltip-Info">Wert</td>
<!-- Wikidata-Wert und lokaler Wert sind identisch -->
<td class="voy-qb-item-value1 voy-qb-item-value-wikidata-equal voy-wikidata-content" data-wikidata-id="Wikidata-ID" data-wikidata-value="Wert" title="Tooltip-Info">Wert</td>
<!-- Wikidata-Wert und lokaler Wert unterscheiden sich -->
<td class="voy-qb-item-value1 voy-qb-item-value-wikidata-noequal voy-wikidata-content" data-wikidata-id="Wikidata-ID" data-wikidata-value="Wert" title="Tooltip-Info">Wert</td>
<!-- alle anderen Fälle -->
<td class="voy-qb-item-value1 voy-wikidata-content" data-wikidata-id="Wikidata-ID, wenn vorhanden" data-wikidata-value="Wert">Wert</td>
</tr>
CSS-Klassen bei Nutzung in den Quickbars
Jedes einzelne Informationsfeld der Quickbar lässt sich über CSS individuell gestalten, entweder zentral über die Systemdatei Mediawiki:common.css oder über benutzerspezifische Einstellungen Benutzer:<Dein Name>/common.css. Für Programmierer ist es damit auch möglich, an jedem Feld per Javascript Änderungen vorzunehmen und Werkzeuge zu programmieren.
Die gesamte Quickbar (<table>...</table>
) besitzt drei Klassen.
voy-qb
– Immer vorhanden ist die Klasseqb
. Über diese kann man jede Infobox beeinflussen.voy-qb-ort
- Alle Orts-Quickbars, die direkt oder indirekt über diese Vorlage eingebunden sind, besitzen diese Klassevoy-qb-<top-level-domain>
– Zusätzlich gibt es eine landesspezifische Klasse, die die Top-Level-Domain beinhaltet. Alle Artikel über Deutschland haben in ihrer Quickbar somit zusätzlich die Klassevoy-qb-de
hinterlegt. Lässt sich keine TLD ermitteln, heißt die Klasseqb-unknown-tld
.
Jede Zeile einer Quickbar besitzt eine allgemeine und eine eigene Klasse.
voy-qb-item
– Klasse, die alle Zeilen einer Infobox-Tabelle besitzen.
Jede Spalte einer Zeile der Quickbar (<tr>...</tr>
) hat eine individuelle Klasse, über die die Formatierungen angewendet werden können. Zusätzlich haben alle Spalten jeder Zeile eine individuelle Klasse:
voy-qb-item-key
– Erste Spalte mit der Eigenschaftsbezeichnung (standardmäßig fett geschrieben)voy-qb-item-value1
– Erste (und in der jetzigen Quickbar Ort im Regelfall einzige) Spalte mit einem Wert.voy-qb-item-value2
– weitere Spaltevoy-qb-item-value3
– weitere Spalte
Bei Bildern gibt es nur eine Tabellenzelle mit einem Div-Tag
voy-qb-item-image
– Klasse des<div>...</div>
. Die Positionierung der Bilder erfolgt dann über Flexboxen.
Die value-Spalten haben noch eine oder mehrere Klassen, wenn Daten aus Wikidata bezogen wurden.
voy-wikidata-content
– Zusätzliche Klasse, wenn die angezeigten Daten aus Wikidata stammen. Diese Klasse ist nicht auf die Quickbars beschränkt und kann überall im Artikel auftauchen.voy-qb-item-value-nowikidata
– Über Wikidata konnten keine Daten ermittelt werden. Es ist kein Objekt vorhanden, oder die gewünschte Information ist im Objekt nicht verfügbar.voy-qb-item-value-wikidata-equal
– Es gibt die Information auf Wikidata und es wirde ein lokaler Wert in der Quickbar angegeben (der auch angezeigt wird). Diese Klasse zeigt an, dass beide Werte identisch sind.voy-qb-item-value-wikidata-noequal
– Es gibt die Information auf Wikidata und es wirde ein lokaler Wert in der Quickbar angegeben (der auch angezeigt wird). Diese Klasse zeigt an, dass sich beide Werte unterscheiden.
Beispiele:
.voy-qb-item-population .voy-qb-item-value1 { color:blue; font-style:italic; }
– Die Einwohnerzahl wird blau und kursiv dargestellt..voy-qb-item-value-wikidata-equal { color:green; font-weight:bold; }
– Einträge werden grün und fett dargestellt, wenn sie lokal angegeben wurden und identisch mit Wikidata sind..voy-qb-item-value-wikidata-noequal { color:red; font-weight:bold; }
– Einträge werden rot und fett dargestellt, wenn sie lokal angegeben wurden sich von Wikidata unterscheiden.
Siehe auch:
- Wikivoyage:CSS-Klassen – Dokumentation der CSS-Klassen auf Wikivoyage}}
Verwendung in Vorlagen
Das Modul wird von folgenden Vorlagen verwendet:
- {{Quickbar Flughafen}} – Quickbar für Flughäfen
- {{Quickbar Land}} – Quickbar für Länder
- {{Quickbar Ort}} – Quickbar für Orte
- {{Quickbar Region}} – Quickbar für Regionen
Submodule
- GetNumber/Units – Submodul mit Voreinstellungen zu den einzelnen Eigenschaften sowie Umrechnungsfaktoren.
Verwendete Module
Es werden keine anderen Module verwendet
Verwendung in anderen Modulen
Dieses Modul ist notwendig für die Ausführung folgender Module. Bei Anpassungen sollte die Funktionstüchtigkeit der folgenden Module geprüft werden. Benutze dazu auch diese Tracking-Kategorie um Fehler zu finden, die sich dann auf Artikel auswirken:
- Quickbar Flughafen • Quickbar Land • Quickbar Ort • Quickbar Region
- Modul benötigt das Modul GetNumber – Wartungskategorie, in der nochmals alle Module gelistet sind, die von diesem Modul abhängig sind.
Verwandte Module
- GetP856 – Liefert die Offizielle Webseite eines Objektes.
- GetString – Liefert alphanumerische Eigenschaften eines Objektes (Datentypen string und monolingualtext)
- GetImage – Liefert Dateinamen von Bildateien.
- GetItem – Liefert Eigenschaften, die als Wikidata-Objekt erfasst sind. Das Ergebnis können Links auf Wikivoyage oder Wikipedia-Artikel sein.
- GetProvince – Ermittelt rekursiv die erste Verwaltungsstufe eines Ortes (Bundesland, Provinz usw.).
Trackingkategorien und Spezialseiten
- Seiten mit Skriptfehlern – Listet Seiten auf, bei denen Lua-Skripte Fehler verursachen.
- Gewünschte Kategorien – Gewünschte Kategorien. Hier tauche eine neue Kategorie der Art Seiten, die die Wikidata-Eigenschaft Pxxx benutzen auf, wenn eine bisher nicht genutzte Eigenschaft irgendwo verwendet wird.
- Die obige Dokumentation wurde aus der Seite Modul:GetNumber/Doku eingefügt. (bearbeiten | Versionsgeschichte) Die Kategorien für dieses Modul sollten in der Dokumentation eingetragen werden. Die Interwiki-Links sollten auf Wikidata eingepflegt werden.
- Liste der Unterseiten
--[=[ GetNumber 2023-12-31
* local nilIf (nil handling function for internal use)
* local coalesce (nil handling function for internal use)
* local _round (rounding function for internal use)
*
* local getNumbersAsTable (internal use)
* local getCoordinatesAsTable (internal use)
*
* getNumbersWithUnit
* getNumbersWithDate
* getCoordinate
* getCoordinateAsText
* getNumbersWithUnitQuickbar
* getNumbersWithDateQuickbar
* getExchangeRatesList
]=]
local GetNumber = {}
-- local tables > maybe moving into a separate module later
-- categories for data evaluation
local wikidataCat = {
-- common wikidata categories
noConversion = '[[Kategorie:Wikidata:Fehlende Umrechnung]]',
noProperty = '[[Kategorie:Wikidata:Fehlende Eigenschaft]]',
unknownProperty = '[[Kategorie:Wikidata:Unbekannte Eigenschaft]]',
unknownUnit = '[[Kategorie:Wikidata:Unbekannte Einheit]]',
-- area
P2046 = {
equalData = '[[Kategorie:Artikel mit identischer Fläche auf Wikidata]]',
noEqualData = '[[Kategorie:Artikel mit abweichender Fläche auf Wikidata]]',
noData = '[[Kategorie:Artikel ohne Fläche auf Wikidata]]'
},
-- altitude
P2044 = {
equalData = '[[Kategorie:Artikel mit identischer Höhe über dem Meeresspiegel auf Wikidata]]',
noEqualData = '[[Kategorie:Artikel mit abweichender Höhe über dem Meeresspiegel auf Wikidata]]',
noData = '[[Kategorie:Artikel ohne Höhe über dem Meeresspiegel auf Wikidata]]'
},
-- height
P2048 = {
equalData = '[[Kategorie:Artikel mit identischer Höhe auf Wikidata]]',
noEqualData = '[[Kategorie:Artikel mit abweichender Höhe auf Wikidata]]',
noData = '[[Kategorie:Artikel ohne Höhe auf Wikidata]]'
},
-- population
P1082 = {
equalData = '[[Kategorie:Artikel mit identischer Einwohnerzahl auf Wikidata]]',
noEqualData = '[[Kategorie:Artikel mit abweichender Einwohnerzahl auf Wikidata]]',
noData = '[[Kategorie:Artikel ohne Einwohnerzahl auf Wikidata]]'
},
-- passengers
P3872 = {
equalData = '[[Kategorie:Artikel mit identischer Passagierzahl auf Wikidata]]',
noEqualData = '[[Kategorie:Artikel mit abweichender Passagierzahl auf Wikidata]]',
noData = '[[Kategorie:Artikel ohne Passagierzahl auf Wikidata]]'
},
-- Koordinaten
P625 = {
noData = '[[Kategorie:Artikel ohne Koordinaten auf Wikidata]]'
},
-- Preis
P2284 = {
noData = '[[Kategorie:Artikel ohne Preis auf Wikidata]]'
}
}
local lang = mw.language.new( 'de' )
-- units and conversion
-- getting conversion data from wikidata is not implemented yet
local units = require ( 'Modul:GetNumber/Units' )
-- returns nil, if both values are equal, otherwise the value
-- similar to the SQL function nullif()
local function nilIf ( value, equalValue )
if ( value == nil ) then
return nil
elseif ( tostring ( value ) == tostring ( equalValue ) ) then
return nil
else
return value
end
end
-- returns the first value that is not nil
-- similar to the SQL function coalesce()
local function coalesce ( value1, value2, value3 )
return value1 or value2 or value3
end
-- round function, which is not available in Lua
local _round = function ( value, precision )
local rescale = math.pow(10, precision or 0);
return math.floor(value * rescale + 0.5) / rescale;
end
-- getNumbersAsTable() -> just for internal use.
-- gets the amount of a property including its unit and date of validity
-- id: Wikidata-ID (own, if not provided)
-- property: requested property
-- unit: wanted unit (standard unit, if not provided)
-- if the wanted unit is not provided, a conversion will be tried based on the given conversion numbers
-- values:
-- - single (standard): Only one (first) entry is shown
-- - all: All entries are fetched
-- the functions returns a table with the folowing columns:
-- amount
-- unit
-- unitOriginal (differs to unit, if the requested unit is converted)
-- year (set to 0, if not provided)
local getNumbersAsTable = function ( id, property, unit, values )
-- local variables
-- ID of the item
-- Determined, if not provided
local localID = id or mw.wikibase.getEntityIdForCurrentPage() or ''
-- compatibility to existing modules and templates:
-- some use the keyword "self" for using the own entity-ID
if coalesce ( nilIf ( localID, 'self' ), '' ) == '' then
localID = mw.wikibase.getEntityIdForCurrentPage() or ''
end
-- no Wikidata object
if localID == '' then
return {}, '', ''
end
-- maintenance categories
local maintenanceCategory = ''
-- property
local requestedProperty = property or 'none';
if string.sub(requestedProperty,1,1) ~= 'P' then
requestedProperty = 'none'
end
-- no property given: category and exit
if requestedProperty == 'none' then
maintenanceCategory = maintenanceCategory .. wikidataCat.noProperty
return {}, localID, maintenanceCategory
end
-- property unknown in table "units": category and exit
if units[requestedProperty] == nil then
maintenanceCategory = maintenanceCategory .. wikidataCat.unknownProperty
return {}, localID, maintenanceCategory
end
-- unit
local requestedUnit = 'none'
if coalesce ( unit, '' ) == '' then
if units[requestedProperty] ~= nil then
requestedUnit = units[requestedProperty].standard
end
else
requestedUnit = unit
if units[requestedUnit] == nil then
maintenanceCategory = maintenanceCategory .. wikidataCat.unknownUnit
end
end
-- values
local requestedValues = values or 'single'
-- control variable
-- is set to true, when requested unit is got on the first run
local hasRequested = false
-- getting the values
local wdStatements = mw.wikibase.getBestStatements( localID, requestedProperty )
-- running through the array and store it in a simple table
local wdValues = {}
local referenceValues = {}
local entryValue
for i, entry in ipairs ( wdStatements ) do
-- check for value
if entry.mainsnak.snaktype == 'value' then
-- check for number
if entry.mainsnak.datatype == 'quantity' then
-- new data set
entryValue = {}
-- getting the amount, converted into a number
entryValue.amount = tonumber ( entry.mainsnak.datavalue.value.amount )
-- getting the unit
entryValue.unit = entry.mainsnak.datavalue.value.unit:gsub( 'https?://www.wikidata.org/entity/', '' ) or ''
-- save a copy of the original unit
-- in case somebody wants to know, whether a value is converted
entryValue.unitOriginal = entryValue.unit
-- check, whether its the requested unit
if entryValue.unit == requestedUnit then
hasRequested = true
end
-- initialising qualifiers
entryValue.year = 0
-- read qualifiers
if entry.qualifiers ~= nil then
-- read P585-Qualifiers (date/time of validity)
if entry.qualifiers.P585 ~= nil then
if entry.qualifiers.P585[1].datavalue.value.precision == 9 then
entryValue.year = tonumber ( entry.qualifiers.P585[1].datavalue.value.time:sub( 2, 5 ) )
entryValue.time = entry.qualifiers.P585[1].datavalue.value.time
end
if entry.qualifiers.P585[1].datavalue.value.precision == 10 then
entryValue.year = tonumber ( entry.qualifiers.P585[1].datavalue.value.time:sub( 2, 5 ) )
entryValue.time = entry.qualifiers.P585[1].datavalue.value.time
end
if entry.qualifiers.P585[1].datavalue.value.precision == 11 then
entryValue.year = tonumber ( entry.qualifiers.P585[1].datavalue.value.time:sub( 2, 5 ) )
entryValue.time = entry.qualifiers.P585[1].datavalue.value.time
end
end
-- read P2144-Qualifier (frequency)
if entry.qualifiers.P2144 ~= nil then
if entry.qualifiers.P2144[1].datavalue ~= nil then
entryValue.P2144 = tonumber ( entry.qualifiers.P2144[1].datavalue.value.amount )
maintenanceCategory = maintenanceCategory .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P2144 benutzen]]'
end
end
end
referenceValues = {}
-- read references
if entry.references ~= nil then
for j, referenceEntry in ipairs ( entry.references ) do
if referenceEntry.snaks ~= nil then
if referenceEntry.snaks.P854 ~= nil then
if referenceEntry.snaks.P854[1].snaktype == 'value' then
table.insert( referenceValues, referenceEntry.snaks.P854[1].datavalue.value )
end
end
end
end -- for j, referenceEntry in ipairs ( entry.references )
end -- if entry.references ~= nil
entryValue.references = referenceValues
-- adding to the list
table.insert( wdValues, entryValue )
end -- if entry.mainsnak.datatype == 'quantity'
end -- if entry.mainsnak.snaktype == 'value'
end -- for i, entry in ipairs ( wdStatements )
-- nothing found then exit
if wdValues == {} then
if wikidataCat[requestedProperty] ~= nil then
maintenanceCategory = maintenanceCategory .. wikidataCat[requestedProperty].noData
end
return {}, localID, maintenanceCategory
end
-- generating the returning values
local returnValues = {}
-- controll tag, for getting all or just one value
local noFetch = false
-- iterating variable
local i = 1
-- requested unit found?
if hasRequested then
-- getting the values, no conversion needed
repeat
-- getting a row
entryValue = wdValues[i]
-- put the entry to the list, if its the requested unit
if entryValue.unit == requestedUnit then
-- adding the row to the final result table
table.insert( returnValues, entryValue )
-- stopping, if only one value is requested
if requestedValues == 'single' then
noFetch = true
end
end
-- counting up
i = i + 1
until noFetch or i > #wdValues
-- requested unit not found
-- trying conversion
else
-- tagging, if its succeeded at least once
local conversionSuccess = true
-- check, whether there is at least on data set
if wdValues[i] ~= nil then
-- initialize with false
conversionSuccess = false
-- getting the values and trying conversion
repeat
-- getting a row
entryValue = wdValues[i]
-- put the entry to the list, if the unit and conversion are available
if units[entryValue.unit] ~= nil then
if units[entryValue.unit].conversion[requestedUnit] ~= nil then
-- adding the row to the final result table
table.insert(
returnValues,
{
amount = entryValue.amount * units[entryValue.unit].conversion[requestedUnit],
unit = requestedUnit,
unitOriginal = entryValue.unit,
year = entryValue.year
}
)
-- stopping, if only one value is requested
if requestedValues == 'single' then
noFetch = true
end
-- tagging as success
conversionSuccess = true
end
end
-- counting up
i = i + 1
until noFetch or i > #wdValues
end
-- setting category, if not successfull
if not conversionSuccess then
maintenanceCategory = maintenanceCategory .. wikidataCat.noConversion
end
end -- if hasRequested then
-- adding category
if #returnValues > 0 then
maintenanceCategory = maintenanceCategory .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft ' .. requestedProperty .. ' benutzen]]'
end
maintenanceCategory = maintenanceCategory -- .. mw.dumpObject( returnValues )
return returnValues, localID, maintenanceCategory
end
-- getCoordinatesAsTable() -> just for internal use.
-- id: Wikidata-ID (own, if not provided)
-- property: Property (Standard: P625)
-- the functions returns a table with the following columns:
-- latitude
-- longitude
-- precision
local getCoordinatesAsTable = function ( id, property )
-- local variables
-- ID of the item
-- Determined, if not provided
local localID = id or mw.wikibase.getEntityIdForCurrentPage() or ''
-- compatibility to existing modules and templates:
-- some use the keyword "self" for using the own entity-ID
if ( ( localID == 'self' ) or ( localID == '' ) ) then
localID = mw.wikibase.getEntityIdForCurrentPage() or ''
end
-- no Wikidata object
if localID == '' then
return {}, '', ''
end
-- maintenance categories
local maintenanceCategory = ''
-- property
local requestedProperty = property or 'none';
if string.sub(requestedProperty,1,1) ~= 'P' then
requestedProperty = 'none'
end
-- no property given: category and exit
if requestedProperty == 'none' then
maintenanceCategory = maintenanceCategory .. wikidataCat.noProperty
return {}, localID, maintenanceCategory
end
-- property unknown in table "units": category and exit
if units[requestedProperty] == nil then
maintenanceCategory = maintenanceCategory .. wikidataCat.unknownProperty
return {}, localID, maintenanceCategory
end
-- getting the values
local wdStatements = mw.wikibase.getBestStatements( localID, requestedProperty )
-- running through the array and store it in a simple table
local wdValues = {}
local entryValue
for i, entry in ipairs ( wdStatements ) do
-- check for value
if entry.mainsnak.snaktype == 'value' then
-- check for number
if entry.mainsnak.datatype == 'globe-coordinate' then
-- new data set
entryValue = {}
-- getting the values, converted into a number
entryValue.latitude = tonumber ( entry.mainsnak.datavalue.value.latitude )
entryValue.longitude = tonumber ( entry.mainsnak.datavalue.value.longitude )
entryValue.precision = tonumber ( entry.mainsnak.datavalue.value.precision )
-- adding to the list
table.insert( wdValues, entryValue )
end -- if entry.mainsnak.datatype == 'globe-coordinate'
end -- if entry.mainsnak.snaktype == 'value'
end -- for i, entry in ipairs ( wdStatements )
-- nothing found then exit
if wdValues == {} then
return {}, localID, maintenanceCategory
end
-- adding category
if #wdValues > 0 then
maintenanceCategory = maintenanceCategory .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft ' .. requestedProperty .. ' benutzen]]'
end
return wdValues, localID, maintenanceCategory
end
-- getNumbersWithUnit()
-- gets the amount of a property including its unit
-- first parameters: see internal function
-- values:
-- - single (standard): Only one (first) entry is shown
-- - all: All entries are fetched
-- precision: precision of the number (Standard: 0)
-- show:
-- - number: formatted amount without unit
-- - plain: not formatted amount without unit
-- - short (standard): amount with short unit
-- - long: amount with long unit
-- - short-date: short with date
-- - short-date-ref: short with date and reference(s)
-- delimiter: delimiter between the numbers; standard is comma and breakable space
GetNumber.getNumbersWithUnit = function ( id, property, unit, values, precision, show, delimiter, frame )
-- returning String
local numberString = ''
-- making empty parameters to nil
if unit == '' then unit = nil end
if values == '' then values = nil end
-- WD-Values
local numberList
local wikidataID
local categories
numberList, wikidataID, categories = getNumbersAsTable ( id, property, unit, values )
-- precision
local numberPrecision = tonumber ( precision ) or 0
-- show options
local numberShow = show or 'short'
-- no delimiter in front of the first entry
local numberDelimiter = ''
if numberList[1] == nil then
return categories
end
-- displaying the values
for i, entry in ipairs( numberList ) do
-- no unit given or wanted
if numberShow == 'number' then
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )
elseif numberShow == 'plain' then
numberString = numberString .. numberDelimiter .. tostring ( entry.amount, precision )
-- displaying with unit using its long name
elseif numberShow == 'long' then
if units[entry.unit] ~= nil then
if _round ( entry.amount, precision ) == 1 then
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].longSingle
else
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].long
end
else
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )
end
-- displaying with unit using its abbreviation
elseif numberShow == 'short-date' then
if units[entry.unit] ~= nil then
if entry.time ~= nil then
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short .. ' <small>(' .. lang:formatDate( 'd.m.Y', entry.time ) .. ')</small>'
else
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short
end
else
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )
end
-- displaying with unit using its abbreviation
elseif numberShow == 'short-date-ref' then
if units[entry.unit] ~= nil then
if entry.time ~= nil then
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short .. ' <small>(' .. lang:formatDate( 'd.m.Y', entry.time ) .. ')</small>'
else
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short
end
else
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )
end
if #entry.references > 0 then
for j, refEntry in ipairs ( entry.references ) do
numberString = numberString .. frame:extensionTag{ name = 'ref', content = '[' .. refEntry .. ' ' .. refEntry .. ']' }
end
end
-- displaying with unit using its abbreviation
else
if units[entry.unit] ~=nil then
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short
else
numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )
end
end
-- adding the frequency qualifikator, in case of mains voltage is requested
if property == 'P2884' and entry.P2144 ~= nil then
numberString = numberString .. ', ' .. entry.P2144 .. ' Hz'
end
-- DEBUG: show the unit-IDs
-- numberString = numberString .. ' Einheit:' .. entry.unit .. ' Einheit (original):' .. entry.unitOriginal
-- setting the delimiter after the first entry
numberDelimiter = delimiter or ', '
end
-- providing the list of numbers
return numberString .. categories
end
-- getNumbersWithDate()
-- gets the amount of a property including "valid at" date
-- first parameters: see internal function
-- values:
-- - single (standard): Only one (first) entry is shown
-- - all: All entries are fetched
-- show:
-- - number: Only the formatted number is shown (Standard)
-- - plain: Only the Not formatted number is shown
-- - year: the year of validity is shown
-- delimiter: delimiter between the numbers; standard is comma and breakable space
GetNumber.getNumbersWithDate = function ( id, property, values, show, delimiter )
-- returning String
local numberString = ''
-- making empty parameters to nil
if values == '' then values = nil end
if show == '' then show = nil end
-- setting to defaul, if necessary
values = values or 'single'
show = show or 'number'
-- WD-Values
local numberList
local wikidataID
local categories
-- always fetching all to be sorted later, because "singles" normally means the "most recent"
numberList, wikidataID, categories = getNumbersAsTable ( id, property, nil, 'all' )
if numberList[1] == nil then
return categories
end
--- Sorting the table by year
table.sort(numberList, function(a,b) return a.year < b.year end)
-- no delimiter in front of the first entry
local numberDelimiter = ''
-- displaying the values
if values == 'single' then
-- using the first table row
if show == 'year' then
numberString = lang:formatNum ( numberList[1].amount ) .. ' (' .. numberList[1].year .. ')'
elseif show == 'plain' then
numberString = numberList[1].amount
else
numberString = lang:formatNum ( numberList[1].amount )
end
else
-- running through the table
for i, entry in ipairs( numberList ) do
-- adding an entry
if show == 'year' then
numberString = numberString .. numberDelimiter .. lang:formatNum ( entry.amount ) .. ' <span class="voy-small">(' .. entry.year .. ')</span>'
elseif show == 'plain' then
numberString = numberString .. numberDelimiter .. tostring ( entry.amount )
else
numberString = numberString .. numberDelimiter .. lang:formatNum ( entry.amount )
end
-- setting the delimiter after the first entry
numberDelimiter = delimiter or ', '
end
end
-- providing the list of numbers
return numberString .. categories
end
-- getCoordinate() > only used in other modules
-- gets a coordinate of an item
-- special properties can be provided. Standard is P625
-- it always delivers the first one
GetNumber.getCoordinate = function ( id, property )
-- WD-Values
local coordinateList
local wikidataID
local categories
coordinateList, wikidataID, categories = getCoordinatesAsTable ( id, coalesce ( nilIf ( property, '' ), 'P625' ) )
if #coordinateList > 0 then
-- providing the list of numbers
return coordinateList[1].latitude, coordinateList[1].longitude, coordinateList[1].precision, categories
else
if wikidataCat[property] ~= nil then
categories = categories .. wikidataCat[property].nodata
end
return 0, 0, 0, categories
end
end
-- getCoordinateAsText()
-- gets a coordinate of an item
-- is shown as text with comma separated latitude and longitude
-- special properties can be provided. Standard is P625
-- it always delivers the first one
GetNumber.getCoordinateAsText = function ( id, property )
-- WD-Values
local coordinateList
local wikidataID
local categories
coordinateList, wikidataID, categories = getCoordinatesAsTable ( id, coalesce ( nilIf ( property, '' ), 'P625' ) )
if #coordinateList > 0 then
-- providing the list of numbers
return lang:formatNum ( coordinateList[1].latitude ) .. '; ' .. lang:formatNum ( coordinateList[1].longitude ) .. categories
else
return '' .. categories
end
end
-- The next two quickbar-functions have a lot in common
-- the developer of this modul thought a lot about it
-- at the end he was too lazy to put everything in one function
-- Get the number as wiki markup for quickbars (infoboxes)
-- includes the number and short unit
GetNumber.getNumbersWithUnitQuickbar = function ( id, property, unit, precision, wikiValue )
-- precision
local numberPrecision = tonumber ( precision ) or 0
-- getting the numbers with the base function above
local wikidataID
local wikidataNumber = {}
local wikidataCategories
wikidataNumber, wikidataID, wikidataCategories = getNumbersAsTable ( id, property, unit )
-- if it is taken from wikidata, this variable provides an additional class for: MediaWiki:Gadget-Wikidata-Content.css
-- space is needed becaus its simply added to the existing class string
local wikidataClass = ' voy-wikidata-content'
-- comparing a possibly given value with Wikidata
local category = ''
-- is Wikidata value not available?
local wikidataNoData = false
if wikidataID == '' then
if wikidataCat[property] ~= nil then
category = wikidataCat[property].noData
wikidataNoData = true
end
wikidataClass = ''
end
-- creating text for display
local numberString = ''
local wikidataString = ''
if wikidataNumber[1] ~= nil then
if units[wikidataNumber[1].unit] ~=nil then
numberString = lang:formatNum ( _round ( wikidataNumber[1].amount, numberPrecision ) ) .. ' ' .. units[wikidataNumber[1].unit].short
wikidataString = lang:formatNum ( _round ( wikidataNumber[1].amount, numberPrecision ) ) .. ' ' .. units[wikidataNumber[1].unit].short
else
numberString = lang:formatNum ( _round ( wikidataNumber[1].amount, numberPrecision ) )
wikidataString = lang:formatNum ( _round ( wikidataNumber[1].amount, numberPrecision ) )
end
else
-- wikidata values not available
wikidataClass = ''
if wikidataCat[property] ~= nil then
category = wikidataCat[property].noData
end
end
-- is a wiki value defined?
local wikidataEqualData = false
local wikidataNoEqualData = false
-- processing nil value for wikiValue
if wikiValue == nil then wikiValue = '' end
-- wikivalues, that can be interpreted as "TRUE" are removed and Wikidata is used
-- it's used to switch entries on and off in Quickbars
if wikiValue =='yes'
or wikiValue == 'y'
or wikiValue == 'true'
or wikiValue == 'wahr'
or wikiValue == 'ja'
or wikiValue == 'j'
then
wikiValue = ''
end
-- wikivalues, that can be interpreted as "FALSE" suppress the whole row
if wikiValue =='no'
or wikiValue == 'n'
or wikiValue == 'false'
or wikiValue == 'falsch'
or wikiValue == 'nein'
then
return wikidataCategories
end
-- processing wikiValue
if wikiValue ~= '' then
-- displaying the wikiValue
numberString = wikiValue
-- removing wikidata content class
wikidataClass = ''
-- removing spaces and letters
wikiValue = string.gsub ( wikiValue, '[^%d.,]', '' )
-- replace comma with period
wikiValue = string.gsub ( wikiValue, ',', '.' )
-- comparison
if ( wikiValue ~= '' ) and ( wikidataNumber[1] ~= nil ) and ( wikidataCat[property] ~= nil ) then
-- are the values equal?
if _round ( wikidataNumber[1].amount, numberPrecision ) == tonumber ( wikiValue ) then
category = wikidataCat[property].equalData
wikidataEqualData = true
else
category = wikidataCat[property].noEqualData
wikidataNoEqualData = true
end
end
end
-- displaying only, if any data available
local trClass = ''
if numberString == '' then
trClass = ' voy-qb-empty'
end
-- creating the table row
local tr = mw.html.create ( 'tr' )
-- first table cell (heading)
local trLabel = ' '
if units[property] ~= nil then
trClass = ' ' .. units[property].cssClass .. trClass
trLabel = units[property].label
end
tr:addClass('voy-qb-item' .. trClass )
:tag('th')
:addClass('voy-qb-item-key')
:wikitext(trLabel)
-- second table cell (the requested number)
if wikidataNoData then
tr:tag('td')
:addClass( 'voy-qb-item-value1 voy-qb-item-value-nowikidata' .. wikidataClass )
:attr('data-wikidata-id',wikidataID)
:attr('title','Kein(e) ' .. trLabel .. ' auf Wikidata' )
:wikitext( numberString )
elseif wikidataEqualData then
tr:tag('td')
:addClass( 'voy-qb-item-value1 voy-qb-item-value-wikidata-equal' .. wikidataClass )
:attr('data-wikidata-id',wikidataID)
:attr('data-wikidata-value',wikidataString)
:attr('title','Daten identisch - Angabe auf Wikidata: ' .. wikidataString)
:wikitext( numberString )
elseif wikidataNoEqualData then
tr:tag('td')
:addClass( 'voy-qb-item-value1 voy-qb-item-value-wikidata-noequal' .. wikidataClass )
:attr('data-wikidata-id',wikidataID)
:attr('data-wikidata-value',wikidataString)
:attr('title','Daten unterschiedlich - Angabe auf Wikidata: ' .. wikidataString)
:wikitext( numberString )
else
tr:tag('td')
:addClass( 'voy-qb-item-value1' .. wikidataClass )
:attr('data-wikidata-id',wikidataID)
:attr('data-wikidata-value',wikidataString)
:wikitext( numberString )
end
-- returning the row
return tostring ( tr ) .. category .. wikidataCategories
end
-- Get the number as wiki markup for quickbars (infoboxes)
-- includes the number and the date
GetNumber.getNumbersWithDateQuickbar = function ( id, property, wikiValue )
-- getting the numbers with the base function above
local wikidataID
local wikidataNumber = {}
local wikidataCategories
wikidataNumber, wikidataID, wikidataCategories = getNumbersAsTable ( id, property, nil, 'all' )
--- Sorting the table by year
table.sort(wikidataNumber, function(a,b) return a.year < b.year end)
-- if it is taken from wikidata, this variable provides an additional class for: MediaWiki:Gadget-Wikidata-Content.css
-- space is needed becaus its simply added to the existing class string
local wikidataClass = ' voy-wikidata-content'
-- comparing a possibly given value with Wikidata
local category = ''
-- is Wikidata value not available?
local wikidataNoData = false
if wikidataID == '' then
if wikidataCat[property] ~= nil then
category = wikidataCat[property].noData
wikidataNoData = true
end
wikidataClass = ''
end
-- creating text for display
local numberString = ''
local wikidataString = ''
if wikidataNumber[1] ~= nil then
if wikidataNumber[1].year > 0 then
numberString = lang:formatNum ( ( wikidataNumber[1].amount ) ) .. ' <span class="voy-small">(' .. tostring ( wikidataNumber[1].year ).. ')</span>'
else
numberString = lang:formatNum ( ( wikidataNumber[1].amount ) )
end
wikidataString = wikidataNumber[1].amount
else
-- wikidata values not available
wikidataClass = ''
if wikidataCat[property] ~= nil then
category = wikidataCat[property].noData
end
end
-- is a wiki value defined?
local wikidataEqualData = false
local wikidataNoEqualData = false
-- processing nil value for wikiValue
if wikiValue == nil then wikiValue = '' end
-- wikivalues, that can be interpreted as "TRUE" are removed and Wikidata is used
-- it's used to switch entries on and off in Quickbars
if wikiValue =='yes'
or wikiValue == 'y'
or wikiValue == 'true'
or wikiValue == 'wahr'
or wikiValue == 'ja'
or wikiValue == 'j'
then
wikiValue = ''
end
-- wikivalues, that can be interpreted as "FALSE" suppress the whole row
if wikiValue =='no'
or wikiValue == 'n'
or wikiValue == 'false'
or wikiValue == 'falsch'
or wikiValue == 'nein'
then
return wikidataCategories
end
-- processing wikiValue
if wikiValue ~= '' then
-- displaying the wikiValue
numberString = wikiValue
-- removing wikidata content class
wikidataClass = ''
-- removing spaces, periods and letters
wikiValue = string.gsub ( wikiValue, '[^%d,]', '' )
-- comparison
if ( wikiValue ~= '' ) and ( wikidataNumber[1] ~= nil ) and ( wikidataCat[property] ~= nil ) then
-- are the values equal?
if wikidataNumber[1].amount == tonumber ( wikiValue ) then
category = wikidataCat[property].equalData
wikidataEqualData = true
else
category = wikidataCat[property].noEqualData
wikidataNoEqualData = true
end
end
end
-- displaying only, if any data available
local trClass = ''
if numberString == '' then
trClass = ' voy-qb-empty'
end
-- creating the table row
local tr = mw.html.create ( 'tr' )
-- first table cell (heading)
local trLabel = ' '
if units[property] ~= nil then
trClass = ' ' .. units[property].cssClass .. trClass
trLabel = units[property].label
end
tr:addClass('voy-qb-item' .. trClass )
:tag('th')
:addClass('voy-qb-item-key')
:wikitext(trLabel)
-- second table cell (the requested number)
if wikidataNoData then
tr:tag('td')
:addClass( 'voy-qb-item-value1 voy-qb-item-value-nowikidata' .. wikidataClass )
:attr('data-wikidata-id',wikidataID)
:attr('title','Kein(e) ' .. trLabel .. ' auf Wikidata' )
:wikitext( numberString )
elseif wikidataEqualData then
tr:tag('td')
:addClass( 'voy-qb-item-value1 voy-qb-item-value-wikidata-equal' .. wikidataClass )
:attr('data-wikidata-id',wikidataID)
:attr('data-wikidata-value',wikidataString)
:attr('title','Daten identisch - Angabe auf Wikidata: ' .. wikidataString)
:wikitext( numberString )
elseif wikidataNoEqualData then
tr:tag('td')
:addClass( 'voy-qb-item-value1 voy-qb-item-value-wikidata-noequal' .. wikidataClass )
:attr('data-wikidata-id',wikidataID)
:attr('data-wikidata-value',wikidataString)
:attr('title','Daten unterschiedlich - Angabe auf Wikidata: ' .. wikidataString)
:wikitext( numberString )
else
tr:tag('td')
:addClass( 'voy-qb-item-value1' .. wikidataClass )
:attr('data-wikidata-id',wikidataID)
:attr('data-wikidata-value',wikidataString)
:wikitext( numberString )
end
-- returning the row
return tostring ( tr ) .. category .. wikidataCategories
end
-- Language-dependent sorting substitutes
local substitutes = {
{ l = 'ä', as = 'a' },
{ l = 'ö', as = 'o' },
{ l = 'ü', as = 'u' },
{ l = 'ß', as = 'ss' }
}
local function convertForSort( s )
s = mw.ustring.lower( s )
for i, obj in ipairs( substitutes ) do
s = mw.ustring.gsub( s, obj.l, obj.as )
end
return s
end
GetNumber.getExchangeRatesList = function ( frame )
local uu = require( 'Module:URLutil' )
local cdg = mw.loadData( 'Module:CountryData/Geography' )
local cdc = mw.loadData( 'Module:CountryData/Currencies' )
local rows = {}
local iso
-- Wikidata-Values
local numberList
local wikidataID
local categories
local wikidataString
local wikidataDelimiter
-- Commons: two tables with currency exchange rates
exchangeTable1 = mw.ext.data.get( 'ECB euro foreign exchange reference rates.tab' )
exchangeTable2 = mw.ext.data.get( 'Xe.com exchange rates.tab' )
local exchangeRate
local exchangeDate
local exchangeSource
local exchangeTable
local exchangeString
-- List of References to avoid multiple references
local referenceList = {}
local referenceCount = 1
for key, value in pairs( cdg.countries ) do
if cdc.currencies[value.currency] ~= nil then
iso = cdc.currencies[value.currency].iso
else
iso = ''
end
-- Wikidata
wikidataString = ' '
wikidataDelimiter = ''
numberList, wikidataID, categories = getNumbersAsTable ( value.currency, 'P2284' )
for i, entry in ipairs( numberList ) do
if entry.time ~= nil then
wikidataString = wikidataString .. wikidataDelimiter .. lang:formatNum ( _round ( entry.amount, 6 ) ) .. ' € <small>(' .. lang:formatDate( 'd.m.Y', entry.time ) .. ')</small>'
else
wikidataString = wikidataString .. wikidataDelimiter .. lang:formatNum ( _round ( entry.amount, 6 ) ) .. ' €'
end
if #entry.references > 0 then
for j, refEntry in ipairs ( entry.references ) do
-- does reference exists already or not?
if referenceList[refEntry] ~= nil then
wikidataString = wikidataString .. frame:extensionTag{ name = 'ref', content = '', args = { name = referenceList[refEntry] } }
else
wikidataString = wikidataString .. frame:extensionTag{ name = 'ref', content = '[' .. refEntry .. ' ' .. uu.URLutil().getHost( refEntry ) .. ']', args = { name = 'ref_' .. referenceCount } }
referenceList[refEntry] = 'ref_' .. referenceCount
referenceCount = referenceCount + 1
end
end
end
wikidataDelimiter = ';'
end
-- Commons
exchangeRate = 0
exchangeDate = ''
exchangeSource = ''
exchangeTable = {}
exchangeString = ''
if iso ~= '' and iso ~= 'EUR' then
wikidataRate = GetNumber.getNumbersWithUnit ( value.currency, 'P2284', nil, nil, 5, 'short-date-ref', nil, frame )
for i, entry in pairs ( exchangeTable1.data ) do
if entry[1] == iso then
exchangeRate = tonumber ( entry[2] )
exchangeDate = entry[3]
exchangeSource = coalesce ( exchangeTable1.sources, '' )
break
end
end
-- trying Commons: Data:Xe.com exchange rates.tab
if exchangeRate == 0 then
for i, entry in pairs ( exchangeTable2.data ) do
if entry[1] == iso then
exchangeRate = tonumber ( entry[3] )
exchangeDate = entry[6]
exchangeSource = coalesce ( exchangeTable2.sources, '' )
break
end
end
end
if exchangeRate > 0 then
-- does reference exists already or not?
if referenceList[exchangeSource] ~= nil then
exchangeString = lang:formatNum ( _round ( 1 / exchangeRate, 6 ) ) .. ' € <small>(' .. lang:formatDate ( 'd.m.Y', exchangeDate ) .. ')</small>' .. frame:extensionTag{ name = 'ref', content = '', args = { name = referenceList[exchangeSource] } }
else
exchangeString = lang:formatNum ( _round ( 1 / exchangeRate, 6 ) ) .. ' € <small>(' .. lang:formatDate ( 'd.m.Y', exchangeDate ) .. ')</small>' .. frame:extensionTag{ name = 'ref', content = '[' .. exchangeSource .. ' ' .. uu.URLutil().getHost( exchangeSource ) .. ']', args = { name = 'ref_' .. referenceCount } }
referenceList[exchangeSource] = 'ref_' .. referenceCount
referenceCount = referenceCount + 1
end
end
end
if iso ~= '' then
table.insert( rows, ( '<tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>' ):format (
coalesce ( value.country, 'unbekannt' ), iso, wikidataString, exchangeString ) )
end
end
table.sort( rows,
function( a, b ) return convertForSort ( a ) < convertForSort ( b ) end
)
table.insert( rows, 1, '<table class="prettytable sortable multiline" cellspacing="0">\n'
.. '<tr><th>Land</th><th>Währung</th><th>Kurs Wikidata</th><th>Kurs Commons</th></tr>' )
table.insert( rows, '</table>' )
return table.concat( rows, '\n' ) .. categories
end
-- Providing template access
local p = {}
function p.getNumbersWithUnit( frame )
return GetNumber.getNumbersWithUnit( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ], frame.args[ 4 ], frame.args[ 5 ], frame.args[ 6 ], frame.args[ 7 ], frame ) or ""
end
function p.getNumbersWithDate( frame )
return GetNumber.getNumbersWithDate( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ], frame.args[ 4 ], frame.args[ 5 ], frame.args[ 6 ], frame.args[ 7 ] ) or ""
end
function p.getCoordinateAsText( frame )
return GetNumber.getCoordinateAsText( frame.args[ 1 ], frame.args[ 2 ] ) or ""
end
function p.getNumbersWithUnitQuickbar( frame )
return GetNumber.getNumbersWithUnitQuickbar( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ], frame.args[ 4 ], frame.args[ 5 ] ) or ""
end
function p.getNumbersWithDateQuickbar( frame )
return GetNumber.getNumbersWithDateQuickbar( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ] ) or ""
end
function p.getExchangeRatesList( frame )
return GetNumber.getExchangeRatesList( frame ) or ""
end
-- for usage in other modules
-- using it the following way:
--
-- local getNumber = require( 'Module:GetNumber' )
-- foo = getNumber.GetNumber().xxx( id, lang )
function p.GetNumber()
return GetNumber
end
return p