--[=[ GetP856 2022-09-24 * local getUrlWithLanguange (internal use) * getUrl() * getUrlAsLinkWithHost() * getUrlAsLinkWithHostAndLanguage() * getOfficialWebsite() ]=] local GetP856 = {}  -- importing modules local uu = require( 'Module:URLutil' ) local uc = require( 'Module:UrlCheck' ) local lg = require( 'Module:Languages' )  -- categories for data evaluation local wikidataCat = {    ["equalData"]   = '[[Kategorie:Artikel mit identischer offizieller Webseite auf Wikidata]]',    ["noEqualData"] = '[[Kategorie:Artikel mit abweichender offizieller Webseite auf Wikidata]]',    ["noData"]      = '[[Kategorie:Artikel ohne offizielle Webseite auf Wikidata]]' }  -- 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  -- determines the length of a key-value table -- the # operator does not work here local function getTableLength(tbl)   local getN = 0   for n in pairs(tbl) do      getN = getN + 1    end   return getN end   -- getting the language-ID to a given language code local function getLngId( lng )        -- checking, whether a code is given    if not lng or lng == '' then       return ''    end     -- getting the language entry    local item = lg.lngProps[ lng ]        -- if not got, testing for a hyphen and trying the first part    if not item then       local hyphen = lng:find( '-', 1, true )       if hyphen and hyphen > 1 then          item = lg.lngProps[ lng:sub( 1, hyphen - 1 ) ]       end    end        -- getting the language-ID    if item then       item = item.q    end     return item or '' end  -- getUrlWithLanguange() -> just for internal use. it delivers the url to the public functions -- gets the official URL of an item in the requested langange -- if more than one language for the website is provided, it follows the priority as stated below --   the requested language --   local wiki language (German) --   Englisch --   Local language (of the place, thats described in the article) --   any other entry is provided -- unlike the other GetXXX modules this internal basic function do not provide a table with all entries primarily, -- the table is available as the fourth of the returned items local getUrlWithLanguange = function ( id, lang )     -- local variables    -- ID of the item    -- Determined, if not provided    local localID = nilIf ( nilIf ( id, 'self' ), '' ) or mw.wikibase.getEntityIdForCurrentPage() or ''     -- break, if there is no connection with Wikidata    if localID == '' then       return '', '', localID, {}    end        -- requested language by code ( e.g. 'ja' for Japanese)    -- it is set to Wiki local language, if not provided,     -- lang can be nil or empty string    local requestedLang = lang or ''                                -- code of the requested language    if requestedLang == '' then        requestedLang = mw.getContentLanguage():getCode()    end     -- getting the wikidata-ID of the requested language    local requestedLangID = getLngId ( requestedLang )               -- ID of the requested language     -- if necessary, the locally spoken language will be determined later    local localLang = ''                                             -- local official language    local localLangID = 'Q'                                          -- ID of the local official language     -- getting the websites    local wdStatements = mw.wikibase.getBestStatements( localID, 'P856' )     -- break, if nothing is provided    if #wdStatements == 0 then       return '', '', localID, {}    end        -- saving the language of a website temporarily    local urlLanguage = ''     -- saving all urls with language    local urlList = {}     -- running through the array and store it in a simple table    for i, entry in ipairs ( wdStatements ) do       if entry.mainsnak.datatype == 'url' and entry.mainsnak.datavalue ~= nil then           -- getting the language, if given          if entry.qualifiers ~= nil then             if entry.qualifiers.P407 ~= nil then                if entry.qualifiers.P407[1] ~= nil then                   if entry.qualifiers.P407[1].datatype == 'wikibase-item' then                      urlLanguage = entry.qualifiers.P407[1].datavalue.value.id or ''                   end                end             end          end           -- setting to 'NO_LANGUAGE', if no qualifier is provided          -- the last one will win, if more than one urls with no lanuage are provided          if entry.mainsnak.datavalue.value ~= '' then             if urlLanguage == '' then                urlList.NO_LANGUAGE = entry.mainsnak.datavalue.value             else                 urlList[urlLanguage] = entry.mainsnak.datavalue.value             end          end        end    end     -- break, if nothing was fetched, although property is available    if getTableLength ( urlList ) == 0 then       return '', '', localID, {}    end      -- determining the local language, not language is given, and english is not available    if urlList[requestedLangID] == nil and urlList['Q1860'] == nil then        -- determinig the country of the destination described in the article       local wdCountry = mw.wikibase.getBestStatements( localID, 'P17' )       if #wdCountry > 0 then          if wdCountry[1].mainsnak.datatype == 'wikibase-item' then              local countryID = wdCountry[1].mainsnak.datavalue.value.id              -- determining the official language in that country             -- it takes the first one that is delivered, not a possible list             local wdLocalLang = mw.wikibase.getBestStatements( countryID, 'P37' )              if #wdLocalLang > 0 then                if wdLocalLang[1].mainsnak.datatype == 'wikibase-item' then                     -- wdLocalLang[1].mainsnak.datavalue can be nil: 'no value'                   localLangID = wdLocalLang[1].mainsnak.datavalue and wdLocalLang[1].mainsnak.datavalue.value.id                   localLang = lg.id2code[localLangID] or 'unknown language'                end             end           end       end     end     -- providing the url in the priority as described above     -- requested language, if available    if urlList[requestedLangID] ~= nil then       return urlList[requestedLangID], requestedLang, localID, urlList    end     -- english language    if urlList['Q1860'] ~= nil then       return urlList['Q1860'], 'en', localID, urlList    end     -- local language    if urlList[localLangID] ~= nil then       return urlList[localLangID], localLang, localID, urlList    end     -- anything    return urlList[next( urlList, nil )], '', localID, urlList  end  -- displaying the table, fetched from Wikidata -- can be used for debugging purposes GetP856.dumpUrls = function ( id )        local urlLink    local urlLinkLanguage    local urlID    local urlList = {}    urlLink, urlLinkLanguage, urlID, urlList = getUrlWithLanguange ( id, '' )    return mw.dumpObject( urlList )  end  -- getting just the simple link GetP856.getUrl = function ( id, lang )        local urlLink    local urlLinkLanguage    urlLink, urlLinkLanguage = getUrlWithLanguange ( id, lang )        -- providing the whole link (if determined)    if urlLink == '' then       return ''    else       return urlLink .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P856 benutzen]]'    end end  -- Get the link as wiki markup for external links  -- includes the host to shorten the linktext (if its a long sub page) GetP856.getUrlAsLinkWithHost = function ( id, lang )        -- getting the link with the base function above    local urlLink    local urlLinkLanguage    urlLink, urlLinkLanguage = getUrlWithLanguange ( id, lang )        -- providing the whole link (if determined)    if urlLink == '' then       return ''    else       return '[' .. urlLink .. ' ' .. uu.URLutil().getHost( urlLink ) .. ']' .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P856 benutzen]]'    end     end  -- Get the link as wiki markup for external links  -- includes the host to shorten the linktext (if its a long sub page) -- after the link, the site language is added GetP856.getUrlAsLinkWithHostAndLanguage = function ( id, lang )        -- getting the link with the function above    local urlLink    local urlLinkLanguage        urlLink, urlLinkLanguage = getUrlWithLanguange ( id, lang )     -- providing the whole link (if determined)    if urlLink ~= '' and urlLinkLanguage ~= '' then       -- link and site language are available       return '[' .. urlLink .. ' ' .. uu.URLutil().getHost( urlLink ) .. '] (' .. urlLinkLanguage .. ')' .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P856 benutzen]]'    elseif urlLink ~= '' and urlLinkLanguage == '' then       -- no site language determined       return '[' .. urlLink .. ' ' .. uu.URLutil().getHost( urlLink ) .. ']' .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P856 benutzen]]'    else       -- got nothing?       return ''    end     end  -- Same as above but shows a delivered message after the link -- returning an automatic message with link to the Wikidata-item, if no website is available -- used in Template: Vorlage:Offizielle Webseite GetP856.getOfficialWebsite = function ( id, lang, message )     -- getting the link with the function above    local urlLink    local urlLinkLanguage    local wdID    local wdLabel = ''        urlLink, urlLinkLanguage, wdID = getUrlWithLanguange ( id, lang )     -- creating the message text for the link       local urlMessage = message or ''    if urlMessage == '' then       local page = mw.title.getCurrentTitle()          urlMessage = 'Offizielle Webseite von ' .. page.text    else    	  urlMessage = message    end     -- providing the whole link (if determined)    if urlLink ~= '' and urlLinkLanguage ~= '' then       -- link and site language are available       return '<span class="wikidata-content">' .. '[' .. urlLink .. ' ' .. uu.URLutil().getHost( urlLink ) .. '] (' .. urlLinkLanguage .. ')' .. '</span>' .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P856 benutzen]]' .. ' – ' .. urlMessage    elseif urlLink ~= '' and urlLinkLanguage == '' then       -- no site language determined       return '<span class="wikidata-content">' .. '[' .. urlLink .. ' ' .. uu.URLutil().getHost( urlLink ) .. ']' .. '</span>' .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P856 benutzen]]' .. ' – ' .. urlMessage    else       -- got nothing?       if wdID ~= nil then          return 'Eine offizielle Webseite ist nicht bekannt.<span class="wd-tools-message-inline"> Bitte auf [[:wikidata:' .. wdID .. '|Wikidata]] nachtragen.</span>[[Kategorie:Artikel ohne offizielle Webseite auf Wikidata]]'       else           return 'Eine offizielle Webseite ist nicht bekannt.'                end    end     end    -- Get the link as wiki markup for external links  -- includes the host to shorten the linktext (if its a long sub page) -- "label" is an optional text, shwon as key in the left side of the quickbar entry GetP856.getUrlAsLinkWithHostQuickbar = function ( id, wikiValue, label )        -- getting the link with the base function above    local urlLink    local urlLinkLanguage    local wikidataID    local wikidataURL = ''    urlLink, urlLinkLanguage, wikidataID = getUrlWithLanguange ( id, nil )        -- 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?    if urlLink == '' then       category = wikidataCat.noData       wikidataClass = ''    else       wikidataURL = urlLink    end        -- is a wiki value defined?    if ( wikiValue ~= nil ) then              -- 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        if ( wikiValue ~= '' ) and ( urlLink ~= '' ) then          -- are the values equal?          if tostring ( urlLink ) == wikiValue then             category = wikidataCat.equalData          else             category = wikidataCat.noEqualData          end                    -- showing the local given URL, if valid          if uc.isUrl( wikiValue ) == 0 then             urlLink = wikiValue          end                 end    end     -- return nothing, if there is nothing to show    if urlLink == '' then       return category    end     -- creating the table row     local tr = mw.html.create ( 'tr' )        -- first table cell (heading)    local trLabel = label or 'Webseite'    tr:addClass('voy-qb-item voy-qb-item-website' )       :tag('th')       :addClass('voy-qb-item-key')       :wikitext(trLabel)        -- second table cell (website)    if category == wikidataCat.noData then       tr:tag('td')          :addClass( 'voy-qb-item-value1 voy-qb-item-value-nowikidata' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('title','Keine Webseite auf Wikidata')          :wikitext( '&nbsp;' )    elseif category == wikidataCat.equalData 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',wikidataURL)             :attr('title','Daten identisch - URL auf Wikidata: ' .. wikidataURL)             :wikitext( '[' .. urlLink .. ' ' .. uu.URLutil().getHost( urlLink ) .. ']' )    elseif category == wikidataCat.noEqualData 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',wikidataURL)             :attr('title','Daten unterschiedlich - URL auf Wikidata: ' .. wikidataURL)             :wikitext( '[' .. urlLink .. ' ' .. uu.URLutil().getHost( urlLink ) .. ']' )    else       tr:tag('td')             :addClass( 'voy-qb-item-value1' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('data-wikidata-value',wikidataURL)             :wikitext( '[' .. urlLink .. ' ' .. uu.URLutil().getHost( urlLink ) .. ']' )    end     -- returning the row    return tostring ( tr ) .. category .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P856 benutzen]]'      end  -- Providing template access local p = {}   function p.dumpUrls( frame )     return GetP856.dumpUrls( frame.args[ 1 ] ) or "" end  function p.getUrl( frame )     return GetP856.getUrl( frame.args[ 1 ], frame.args[ 2 ] ) or "" end  function p.getUrlAsLinkWithHost( frame )     return GetP856.getUrlAsLinkWithHost( frame.args[ 1 ], frame.args[ 2 ] ) or "" end  function p.getUrlAsLinkWithHostAndLanguage( frame )     return GetP856.getUrlAsLinkWithHostAndLanguage( frame.args[ 1 ], frame.args[ 2 ] ) or "" end  function p.getOfficialWebsite( frame )     return GetP856.getOfficialWebsite( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ] ) or "" end  function p.getUrlAsLinkWithHostQuickbar( frame )     return GetP856.getUrlAsLinkWithHostQuickbar( frame.args[ 1 ], frame.args[ 2 ] ) or "" end  -- for usage in other modules -- using it the following way: -- -- local p856 = require( 'Module:GetP856' ) -- foo = p856.GetP856().getUrlAsLinkWithHost( id, lang ) function p.GetP856()    return GetP856 end  return p