local check    = require('پودمان:Check2') local wd       = require('پودمان:Wikidata2') local locMap   = require('پودمان:Location map')  local cfgParams   = mw.loadData('پودمان:Quickbar2/Params')  -- Auswertung und Prüfung von übergebenen Parametern local function getParameter ( Frame, Params, Parameter )    local argsParent = Frame:getParent().args    local argsFrame = Frame.args    for key,value in pairs ( argsParent ) do       argsParent[string.lower(key)] = value    end    for key,value in pairs ( argsFrame ) do       argsParent[string.lower(key)] = value    end    return argsParent[Parameter] or argsFrame[Parameter] or Params[Parameter] end  -- generiert Attibute für die Tabelle der Quickbar local function theadAttr ( class, style )    local tableAttr = 'cellspacing="0" class="' .. class ..'"'    if (style ~= nil) and (style ~= '') then tableAttr = tableAttr .. ' style="' .. style .. '"' end    return tableAttr end  local quickbar = {}  -- erzeugt einen Überschrifteneintrag in der Quickbar function quickbar.theader ( colSpan, text )    local tr = mw.html.create ( 'tr' )    tr:tag('td')      :attr('colspan', colSpan )      :addClass('qbHeader')      :wikitext(text)    return tostring ( tr ) end  function quickbar.trItemTH ( className, text1, text2, text3, text4 )    local tr = mw.html.create ( 'tr' )    tr:addClass('qbItem ' .. className )       :tag('th')       :addClass('qbItem-key')       :wikitext(text1)    if ( text2 ~= nil ) then tr:tag('td'):addClass('qbItem-value1'):wikitext(text2) end    if ( text3 ~= nil ) then tr:tag('td'):addClass('qbItem-value2'):wikitext(text3) end    if ( text4 ~= nil ) then tr:tag('td'):addClass('qbItem-value3'):wikitext(text4) end    return tostring ( tr ) end  function quickbar.trItemTD ( className, text1, text2, text3, text4 )    local tr = mw.html.create ( 'tr' )    tr:addClass('qbItem ' .. className )       :tag('td')       :addClass('qbItem-key')       :wikitext(text1)    if ( text2 ~= nil ) then tr:tag('td'):addClass('qbItem-value1'):wikitext(text2) end    if ( text3 ~= nil ) then tr:tag('td'):addClass('qbItem-value2'):wikitext(text3) end    if ( text4 ~= nil ) then tr:tag('td'):addClass('qbItem-value3'):wikitext(text4) end    return tostring ( tr ) end  function quickbar.trSingleTD ( className, text, colSpan )    if ( colspan == nil ) then colSpan = '2' end    local tr = mw.html.create ( 'tr' )    tr:addClass('qbItem ' .. className )       :tag('td')       :attr('colspan', colSpan )       :addClass('qbItem-value')       :wikitext(text)    return tostring ( tr ) end  function quickbar.trImage ( className, imageFile, colSpan )    if ( not colSpan ) then colSpan = 2 end    local tr = mw.html.create ( 'tr' )    tr:addClass('qbItem ' .. className )      :tag('td')      :attr('colspan', colSpan)      :addClass('qbImageCell')         :tag('div')         :addClass('qbImage')         :wikitext(imageFile)    return tostring ( tr ) end  function quickbar.trTwoImages ( className, className1, className2, imageFile1, imageFile2, colSpan )    if ( not colSpan ) then colSpan = 2 end        local td1 = mw.html.create ( 'td' )    td1:addClass( className1 )         :tag('div')         :addClass('qbImage')         :wikitext(imageFile1)             local td2 = mw.html.create ( 'td' )    td2:addClass( className2 )         :tag('div')         :addClass('qbImage')         :wikitext(imageFile2)             local tr = mw.html.create ( 'tr' )    tr:addClass('qbItem ' .. className )      :tag('td')      :attr('colspan', colSpan)      :addClass('qbImageCell')         :tag('table')            :tag('tr')               :node(td1)               :node(td2)    return tostring ( tr ) end  function quickbar.locmap ( colSpan, map )    local tr = mw.html.create ( 'tr' )    tr:addClass('qbLocMap')      :tag('td')      :attr('colspan', colSpan)      :wikitext(locMap.locationMap(map))    return tostring ( tr ) end  function quickbar.hr ( colSpan )    local hr = mw.html.create ( 'tr' )    hr:addClass('qb-line')      :tag('td')      :attr('colspan', colSpan)        :tag('hr')    return tostring ( hr ) end  -- Funktionen für Verwendung in Vorlagen  function quickbar.qb_table ( frame )     local args = frame:getParent().args    local errorStr = ''        local topBorder = getParameter ( frame, cfgParams["qb_table"], 'topBorder' )    local pos = getParameter ( frame, cfgParams["qb_table"], 'pos' )    local posPossible = { rechts = '', links = '', left = '', right = '', normal = '' }    if posPossible[pos] == nil then errorStr = check._error ('Falscher Wert für Parameter <em>pos</em>: <em>' .. pos .. '</em> im Tabellenkopf', 'Quickbar' ) end        local styles = args[1]    if (styles == nil) or (styles == '') then styles = frame.args[1] end --   if (styles == nil) or (styles == '') then styles = '' end -- 300px in Stilvorlage        local classes = 'qb'    if pos == 'left' then classes = classes .. ' qbleft' end    if pos == 'rechts' then classes = classes .. ' qbleft' end --   if pos == 'normal' then classes = classes .. ' qbleft' end    if pos == 'right' then classes = classes .. ' qbright' end    if pos == 'links' then classes = classes .. ' qbright' end          if topBorder == 'yes' then classes = classes .. ' qbTopBorder' end        return errorStr .. check._testParams ( args, cfgParams["qb_table"], 'Quickbar2' ) .. theadAttr ( classes, styles ) end  function quickbar.qb_header ( frame )    local qbColspan = getParameter ( frame, cfgParams["qb_header"], 'colspan' )    local qbText = frame.args[1] or frame:getParent().args[1] or getParameter ( frame, cfgParams["qb_header"], 'text' )    return check._testParams ( frame:getParent().args, cfgParams["qb_header"], 'Quickbar2' ) .. quickbar.theader ( qbColspan, qbText ) end  function quickbar.qb_item ( frame )    local qbHeading = getParameter ( frame, cfgParams["qb_item"], 'heading' )    local qbValue = getParameter ( frame, cfgParams["qb_item"], 'value' )    return check._testParams ( frame:getParent().args, cfgParams["qb_item"], 'Quickbar2' ) .. quickbar.trItemTH ( '', qbHeading, qbValue ) end  function quickbar.qb_image( frame )    local display = ''    local errorStr = ''    local qbHeading = getParameter ( frame, cfgParams["qb_image"], 'heading' )    local qbImage = getParameter ( frame, cfgParams["qb_image"], 'image' )    local qbColspan = getParameter ( frame, cfgParams["qb_image"], 'colspan' )    local qbWikidataProperty = getParameter ( frame, cfgParams["qb_image"], 'wikidataproperty' )    local qbWikidataFormat = getParameter ( frame, cfgParams["qb_image"], 'wikidataformat' )    if ( qbImage == '' ) then        qbImage = wd.getProperty (          wd.getBestStatement  (             wd.EntityId(),             qbWikidataProperty             ).statement,          qbWikidataFormat          )    end    if ( qbHeading ~= '' ) then display = display .. quickbar.theader ( qbColspan, qbHeading ) end    display = display .. errorStr .. check._testParams ( frame:getParent().args, cfgParams["qb_image"], 'Quickbar2' ) .. quickbar.trImage ( '', qbImage, qbColspan )    return display end  function quickbar.qb_line ( frame )    local qbColspan = getParameter ( frame, cfgParams["qb_line"], 'colspan' )    local errorStr = ''    if mw.ustring.match ( qbColspan, '^%d*$' ) == nil then        errorStr = check._error ('Falscher Wert für Parameter <em>colspan</em>: <em>'           .. qbColspan           .. '</em> bei einer Zwischenlinie. Bitte eine ganze Zahl eingeben', 'Quickbar' )        qbColspan = cfgParams['qb_line']['colspan']    end    return errorStr .. check._testParams ( frame:getParent().args, cfgParams["qb_line"], 'Quickbar2' ) .. quickbar.hr ( qbColspan ) end  function quickbar.createEntry ( localItem, wdItem, wdID, cssClass, itemName, noWDCat, diffCat, equalCat )    local display = ''    if ( localItem ~= '' ) then        display = display .. quickbar.trItemTH ( cssClass, itemName, localItem )       if ( localItem ~= wdItem and wdItem ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'andere(r) ' .. itemName .. ' auf Wikidata [[File:View-so edit simple.svg|15px|link=wikidata:' .. wdID .. '|' .. itemName .. ' in Wikidata aktualisieren]] <span data-qb-item="'.. cssClass .. '" class="qb-edit-delete">[[File:Symbol delete vote.svg|15px|Eintrag aus der Quickbar entfernen und Wikidata benutzen]]</span>' )          if ( diffCat ~= nil ) then             display = display .. '[[رده:' .. diffCat .. ']]'          end       end       if ( localItem == wdItem and localItem ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'identische Angabe für ' .. itemName .. ' auf Wikidata. <span data-qb-item="'.. cssClass .. '" class="qb-edit-delete">[[File:Symbol delete vote.svg|15px|Eintrag aus der Quickbar entfernen und Wikidata benutzen]]</span>' )          if ( equalCat ~= nil ) then             display = display .. '[[رده:' .. equalCat .. ']]'          end       end       displayItem = true    elseif ( wdItem ~= '' ) then        display = display .. quickbar.trItemTH ( cssClass, itemName, '<span class="wikidata-content">' .. wdItem .. '</span>' )       displayItem = true    else       display = display .. quickbar.trItemTH ( 'qbEmpty ' ..  cssClass, itemName, '<em>unbekannt</em>' )    end    if ( wdItem == '' ) then       if ( wdID ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein(e) ' .. itemName .. ' auf Wikidata: [[File:View-so edit simple.svg|15px|link=wikidata:' .. wdID .. '|' .. itemName .. ' nachtragen]]' )          if ( noWDCat ~= nil ) then             display = display .. '[[رده:' .. noWDCat .. ']]'          end       else          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein Objekt auf Wikidata: ([https://www.wikidata.org/w/index.php?search=&title=Special%3ASearch&go=Seite Suchen und Anlegen])' )       end    end    return display end  function quickbar.createEntryImage ( localItem, wdItem, wdID, cssClass, itemName, noWDCat, noItemCat )    local display = ''    local errorStr = ''    if ( localItem ~= '' ) then        display = display .. quickbar.trImage ( 'qb-image ' .. cssClass, localItem )    elseif ( wdItem ~= '' ) then       local fileCheck = check._testFile ( wdItem, 'Quickbar2' )       if ( fileCheck == '' ) then           display = display .. quickbar.trImage ( 'qb-image ' .. cssClass, mw.ustring.match ( wdItem, '%[%[.-%]%]' ) )       else           errorStr = errorStr .. fileCheck       end       else       errorStr = errorStr .. '[[رده:' .. noItemCat .. ']]'    end    if ( wdItem == '' ) then       if ( wdID ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein(e) ' .. itemName .. ' auf Wikidata: [[File:View-so edit simple.svg|15px|link=wikidata:' .. wdID .. '|' .. itemName .. ' nachtragen]]' )          if ( noWDCat ~= nil ) then             errorStr = errorStr .. '[[رده:' .. noWDCat .. ']]'          end       else          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein Objekt auf Wikidata: ([https://www.wikidata.org/w/index.php?search=&title=Special%3ASearch&go=Seite Suchen und Anlegen])' )       end    end    return errorStr .. display end    function quickbar.createEntryTwoImages (  			localItem1, wdItem1, wdID1, cssClass1, itemName1, noWDCat1, noItemCat1,  			localItem2, wdItem2, wdID2, cssClass2, itemName2, noWDCat2, noItemCat2 		)    local display = ''    local display1 = ''    local display2 = ''    local errorStr = ''    local fileCheck1 = ''    local fileCheck2 = ''        if ( localItem1 ~= '' ) then        display1 = localItem1    elseif ( wdItem1 ~= '' ) then       fileCheck1 = check._testFile ( wdItem1, 'Quickbar2' )       if ( fileCheck1 == '' ) then           display1 = mw.ustring.match ( wdItem1, '%[%[.-%]%]' )       else           errorStr = errorStr .. fileCheck1       end       else       errorStr = errorStr .. '[[رده:' .. noItemCat1 .. ']]'    end        if ( localItem2 ~= '' ) then        display2 = localItem2    elseif ( wdItem2 ~= '' ) then       fileCheck2 = check._testFile ( wdItem2, 'Quickbar2' )       if ( fileCheck2 == '' ) then           display2 = mw.ustring.match ( wdItem2, '%[%[.-%]%]' )       else           errorStr = errorStr .. fileCheck2       end       else       errorStr = errorStr .. '[[رده:' .. noItemCat2 .. ']]'    end     if ( display1 ~= '' and display2 ~= '' ) then       display = display .. quickbar.trTwoImages ( 'qb-image', cssClass1, cssClass2, display1, display2, 2 )    elseif ( display1 ~= '' and display2 == '' ) then       display = display .. quickbar.trImage ( 'qb-image ' .. cssClass1, display1 )    elseif ( display1 == '' and display2 ~= '' ) then       display = display .. quickbar.trImage ( 'qb-image ' .. cssClass2, display2 )    else    	    end        if ( wdItem1 == '' ) then       if ( wdID1 ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein(e) ' .. itemName1 .. ' auf Wikidata: [[File:View-so edit simple.svg|15px|link=wikidata:' .. wdID1 .. '|' .. itemName1 .. ' nachtragen]]' )          if ( noWDCat1 ~= nil ) then             errorStr = errorStr .. '[[رده:' .. noWDCat1 .. ']]'          end       else          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein Objekt auf Wikidata: ([https://www.wikidata.org/w/index.php?search=&title=Special%3ASearch&go=Seite Suchen und Anlegen])' )       end    end        if ( wdItem2 == '' ) then       if ( wdID2 ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein(e) ' .. itemName2 .. ' auf Wikidata: [[File:View-so edit simple.svg|15px|link=wikidata:' .. wdID2 .. '|' .. itemName2 .. ' nachtragen]]' )          if ( noWDCat2 ~= nil ) then             errorStr = errorStr .. '[[رده:' .. noWDCat2 .. ']]'          end       else          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein Objekt auf Wikidata: ([https://www.wikidata.org/w/index.php?search=&title=Special%3ASearch&go=Seite Suchen und Anlegen])' )       end    end        return errorStr .. display end    function quickbar.createEntryQuantity ( localItem, wdItem, wdID, wdProperty, wdFormat, cssClass, itemName, noWDCat, diffCat, equalCat )    local display = ''    local errorStr = ''    local property = ''    if ( localItem ~= '' ) then     	  if ( cssClass == 'qb-altitude' ) then          display = display .. quickbar.trItemTH ( cssClass, itemName, localItem:gsub ( ' ', '' ):gsub ( 'm', '' ) .. '&nbsp;m' )       else       	display = display .. quickbar.trItemTH ( cssClass, itemName, localItem )       end       localItem = localItem:gsub ( '%.', '' ):gsub ( ',', '' ):gsub ( '&nbsp;', '' ):gsub ( 'ca', '' ):gsub ( ' ', '' ):gsub ( '<small>.*</small>', '' ):gsub ( '%(.*%)', '' ):gsub ( 'km²', '' ):gsub ( 'km2', '' ):gsub ( 'km<sup>2</sup>', '' ):gsub ( 'm', '' )       if ( localItem ~= wdItem and wdItem ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', '<span title="Wikivoyage: ' .. localItem .. '- Wikidata: ' .. wdItem .. '">anderer Wert für ' .. itemName .. ' auf Wikidata: ' .. wdItem .. '</span> [[File:View-so edit simple.svg|15px|link=wikidata:' .. wdID .. '|' .. itemName .. ' in Wikidata aktualisieren]] <span data-qb-item="'.. cssClass .. '" class="qb-edit-delete">[[File:Symbol delete vote.svg|15px|Eintrag aus der Quickbar entfernen und Wikidata benutzen]]</span>' )          if ( diffCat ~= nil ) then             display = display .. '[[رده:' .. diffCat .. ']]'          end       end       if ( localItem == wdItem and localItem ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'identische Angabe für ' .. itemName .. ' auf Wikidata. <span data-qb-item="'.. cssClass .. '" class="qb-edit-delete">[[File:Symbol delete vote.svg|15px|Eintrag aus der Quickbar entfernen und Wikidata benutzen]]</span>' )          if ( equalCat ~= nil ) then             display = display .. '[[رده:' .. equalCat .. ']]'          end       end       displayItem = true    elseif ( wdItem ~= '' ) then    	  property = wd.getProperty ( wd.getBestStatement( wdID, wdProperty ).statement, wdFormat )    	  property = property:gsub('<span class="qbItemSmall">%(%)</span>','')       display = display .. quickbar.trItemTH ( cssClass, itemName, '<span class="wikidata-content">' .. property .. '</span>' )       displayItem = true    else       display = display .. quickbar.trItemTH ( 'qbEmpty ' .. cssClass , itemName , '<em>unbekannt</em>' )    end    if ( wdItem == '' ) then       if ( wdID ~= '' ) then          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein Wert für ' .. itemName .. ' auf Wikidata: [[File:View-so edit simple.svg|15px|link=wikidata:' .. wdID .. '|' .. itemName .. ' nachtragen]]' )          if ( noWDCat ~= nil ) then             errorStr = errorStr .. '[[رده:' .. noWDCat .. ']]'          end       else          display = display .. quickbar.trSingleTD ( 'qb-wd-comment', 'kein Objekt auf Wikidata: ([https://www.wikidata.org/w/index.php?search=&title=Special%3ASearch&go=Seite Suchen und Anlegen])' )       end    end    return errorStr .. display end  return quickbar