Zum Inhalt springen

Modul:GetNumber

Links hinzufügen
Aus Wikivoyage
Dokumentation für das Modul GetNumber[Ansicht] [Bearbeiten] [Versionsgeschichte] [Aktualisieren]

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:

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.

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.

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öhe76 m
Fläche166 km²
Einwohnerzahl20.152 (2023)
Passagierzahl48.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.

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

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 Klasse qb. Über diese kann man jede Infobox beeinflussen.
  • voy-qb-ort - Alle Orts-Quickbars, die direkt oder indirekt über diese Vorlage eingebunden sind, besitzen diese Klasse
  • voy-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 Klasse voy-qb-de hinterlegt. Lässt sich keine TLD ermitteln, heißt die Klasse qb-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 Spalte
  • voy-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:

Verwendung in Vorlagen

Das Modul wird von folgenden Vorlagen verwendet:

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:

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.
Hinweise
--[=[ 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 .. ',&nbsp;' .. entry.P2144 .. '&#x202F;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 ) .. '&#x202F;<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 = '&nbsp;'
   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 ) ) .. '&#x202F;<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 = '&nbsp;'
   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 = '&nbsp;'
      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 ) ) .. '&#x202F;€&nbsp;<small>(' .. lang:formatDate( 'd.m.Y', entry.time ) .. ')</small>'
         else
            wikidataString = wikidataString .. wikidataDelimiter .. lang:formatNum ( _round ( entry.amount, 6 ) ) .. '&#x202F;€'
         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 ) ) .. '&#x202F;€&nbsp;<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 ) ) .. '&#x202F;€&nbsp;<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
Abgerufen von „https://de.wikivoyage.org/w/index.php?title=Modul:GetNumber&oldid=1589114“