Modul:Musikcharts/countries
aus Wikipedia, der freien Enzyklopädie
| Vorlagenprogrammierung | Diskussionen | Lua | Test | Unterseiten | |||
| Modul | Deutsch | English
|
Modul: | Dokumentation | |||
Diese Seite enthält Code in der Programmiersprache Lua. Einbindungszahl Cirrus
local p = {}
-- ISO country codes with country name (1), chart link (2), abbreviated chart publisher (3), certification publisher link (4), abbreviated certification publisher (5), no. 1 list ID (6), no. 1 list colour scheme (7)
local countrytable = {
["AUT"] = { "Österreich", "Ö3 Austria Top 40", "Ö3", "IFPI Austria – Verband der Österreichischen Musikwirtschaft", "IFPI", "Österreich" },
["ARG"] = { "Argentinien", "Argentinien", "CAPIF", "Cámara Argentina de Productores de Fonogramas y Videogramas", "CAPIF", "Argentinien", "2" },
["AUS"] = { "Australien", "Australische Musikcharts", "ARIA", "Australian Recording Industry Association", "ARIA", "Australien" },
["BEL"] = { "Belgien", "Musikcharts in Belgien", "Ultratop", "Belgian Entertainment Association", "BEA", "Belgien", "3" },
["BGR"] = { "Bulgarien", "Bulgarien", "BAMP", "Bulgarian Association of the Music Producers", "BAMP", "Bulgarien", "4" },
["BRA"] = { "Brasilien", "Brasilien", "PMB", "Pro-Música Brasil", "PMB", "Brasilien", "4" },
["CAN"] = { "Kanada", "Kanadische Musikcharts", "MC", "Music Canada", "MC", "Kanada" },
["CHE"] = { "Schweiz", "Schweizer Hitparade", "IFPI", "IFPI Schweiz", "IFPI", "der Schweiz" },
["CHL"] = { "Chile", "Chile", nil, "IFPI Chile", "IFPI" },
["COL"] = { "Kolumbien", "Kolumbien", "APDIF", "Asociación Colombiana de Productores de Fonogramas", "ASINCOL", "Kolumbien", "3" },
["CZE"] = { "Tschechien", "Tschechien", "IFPI", "IFPI Tschechien", "IFPI", "Tschechien" },
["DEU"] = { "Deutschland", "Deutsche Musikcharts", "GfK", "Bundesverband Musikindustrie", "BVMI", "Deutschland", "3" },
["DNK"] = { "Dänemark", "Dänische Musikcharts", "IFPI/Nielsen", "IFPI Dänemark", "IFPI", "Dänemark" },
["ECU"] = { "Ecuador", "Ecuador", nil, "Sociedad de Productores de Fonogramas", "SOPROFON" },
["ESP"] = { "Spanien", "Spanische Musikcharts", "Promusicae", "Productores de Música de España", "Promusicae", "Spanien", "3" },
["EUR"] = { "Europa", "Europa", nil, "International Federation of the Phonographic Industry", "IFPI" },
["FIN"] = { "Finnland", "Finnische Musikcharts", "IFPI", "Musiikkituottajat – IFPI Finland", "IFPI", "Finnland" },
["FRA"] = { "Frankreich", "Frankreich", "SNEP", "Syndicat National de l’édition Phonographique", "SNEP", "Frankreich" },
["GRC"] = { "Griechenland", "IFPI Griechenland#Musikcharts", "IFPI", "IFPI Griechenland", "IFPI", "Griechenland", "2" },
["HKG"] = { "Hongkong", "Hongkong", nil, "IFPI Hong Kong Group", "IFPI/HKRIA" },
["HUN"] = { "Ungarn", "Ungarn", "MAHASZ", "Magyar Hanglemezkiadók Szövetsége", "MAHASZ", "Ungarn", "4" },
["HRV"] = { "Kroatien", "Kroatien", "HDU", "Hrvatska diskografska udruga", "HDU", "Kroatien" },
["IDN"] = { "Indonesien", "Indonesien", nil, "Asosiasi Industri Rekaman Indonesia", "ASIRI" },
["IND"] = { "Indien", "Indien", "IMI", "The Indian Music Industry", "IMI", "Indien", "4" },
["IRL"] = { "Irland", "Irische Musikcharts", "IRMA", "Irish Recorded Music Association", "IRMA", "Irland", "4" },
["ISL"] = { "Island", "Island", nil, "IFPI Island", "IFPI" },
["ISR"] = { "Israel", "Israel", nil, "IFPI Israel", "IFPI" },
["ITA"] = { "Italien", "Italienische Musikcharts", "FIMI", "Federazione Industria Musicale Italiana", "FIMI", "Italien", "4" },
["JPN"] = { "Japan", "Oricon#Oricon-Charts", "Oricon", "Recording Industry Association of Japan", "RIAJ", "Japan" },
["KOR"] = { "Südkorea", "Circle Chart", "KMCA", "Korea Music Content Association", "KMCA", "Südkorea" },
["LBN"] = { "Libanon", "Libanon", nil, "IFPI Middle East Awards", "IFPI" },
["LVA"] = { "Lettland", "Lettland", nil, "Latvian Music Producers Association", "LaMPA" },
["LTU"] = { "Litauen", "AGATA (Organisation)#Charts", "AGATA", nil, nil, "Litauen" },
["MEX"] = { "Mexiko", "Mexiko", "AMPROFON", "Asociación Mexicana de Productores de Fonogramas y Videogramas", "AMPROFON", "Mexiko", "4" },
["MYS"] = { "Malaysia", "Malaysia", "RIM", "Recording Industry Association of Malaysia", "RIM", "Malaysia" },
["NLD"] = { "Niederlande", "Niederländische Musikcharts", "Media Markt / Dutch Charts", "Nederlandse Vereniging van Producenten en Importeurs van beeld- en geluidsdragers", "NVPI", "den Niederlanden" },
["NOR"] = { "Norwegen", "Norwegische Musikcharts", "IFPI", "IFPI Norwegen", "IFPI", "Norwegen" },
["NZL"] = { "Neuseeland", "Neuseeländische Musikcharts", "RMNZ", "Recorded Music NZ", "RMNZ", "Neuseeland" },
["PER"] = { "Peru", "Peru", nil, "Unión Peruana de Productores Fonográficos", "UNIMPRO" },
["PHL"] = { "Philippinen", "Philippinen", nil, "Kapisanan ng Industriya ng Plaka ng Pilipinas", "PARI" },
["POL"] = { "Polen", "Związek Producentów Audio-Video#Musikcharts", "ZPAV", "Związek Producentów Audio-Video", "ZPAV", "Polen", "5" },
["PRT"] = { "Portugal", "Associação Fonográfica Portuguesa#Musikcharts", "AFP", "Associação Fonográfica Portuguesa", "AFP", "Portugal", "4" },
["ROU"] = { "Rumänien", "Uniunea Producătorilor de Fonograme din România", "UFPR", "Uniunea Producătorilor de Fonograme din România", "UFPR", "Rumänien" },
["RUS"] = { "Russland", "Russland", nil, "National Federation of Phonograph Producers", "NFPF" },
["SVK"] = { "Slowakei", "Slowakei", "IFPI", "IFPI Tschechien", "IFPI", "der Slowakei" },
["SVN"] = { "Slowenien", "Slowenien", "SAZAS", nil, nil, "Slowenien" },
["SWE"] = { "Schweden", "Schwedische Musikcharts", "GLF", "IFPI Schweden", "IFPI", "Schweden" },
["SGP"] = { "Singapur", "Singapur", "RIAS", "Recording Industry Association (Singapore)", "RIAS", "Singapur" },
["THA"] = { "Thailand", "Thailand", nil, "Thai Entertainment Content Trade Association", "TECA" },
["TUR"] = { "Türkei", "Türkei", nil, "Mü-YAP", "Mü-YAP" },
["TWN"] = { "Taiwan", "Republik China (Taiwan)", nil, "Recording Industry Foundation in Taiwan", "RIT" },
["GBR"] = { "Vereinigtes Königreich", "Britische Musikcharts", "OCC", "British Phonographic Industry", "BPI", "den britischen Charts" },
["USA"] = { "Vereinigte Staaten", "Billboard-Charts", "Billboard", "Recording Industry Association of America", "RIAA", "den USA" },
["URY"] = { "Uruguay", "Uruguay", nil, "Cámara Uruguaya del Disco", "CUD" },
["VEN"] = { "Venezuela", "Venezuela", nil, "Association of Venezuelan Phonograph Producers", "APFV" },
["ZAF"] = { "Südafrika", "Südafrika", "RISA", "The Recording Industry of South Africa", "RISA", "Südafrika" },
-- special cases
["EUR2"] = { "Europa", "Europa", nil, "Impala (Verband)#Impala Sales Awards", "Impala" },
["FRA2"] = { "Frankreich", "Frankreich", nil, "Union des Producteurs Phonographiques Français Indépendants", "UPFI" },
["GCC"] = { "Golf-Kooperationsrat", "Golf-Kooperationsrat", nil, "IFPI Middle East Awards", "IFPI" },
["CAM"] = { "Zentralamerika", "Zentralamerika", nil, "Certificación Fonográfica Centroamericana", "CFC" },
["BEF"] = { "Flandern", "Musikcharts in Belgien", "Ultratop", "Belgian Entertainment Association", "BEA", "Belgien", "3" },
["BEW"] = { "Wallonie", "Musikcharts in Belgien", "Ultratop", "Belgian Entertainment Association", "BEA", "Belgien", "3" },
["DEU-A"] = { "Deutschland", "Deutsche Albumcharts", "GfK", "Bundesverband Musikindustrie", "BVMI", "Deutschland", "3" },
["DEU-C"] = { "Deutschland", "Deutsche Compilationcharts", "GfK", "Bundesverband Musikindustrie", "BVMI", "Deutschland", "3" },
["DEU-S"] = { "Deutschland", "Deutsche Singlecharts", "GfK", "Bundesverband Musikindustrie", "BVMI", "Deutschland", "3" },
["NLD-A"] = { "Niederlande", "Dutch Charts", "Dutch Charts", "Nederlandse Vereniging van Producenten en Importeurs van beeld- en geluidsdragers", "NVPI", "den Niederlanden" },
["NLD-S"] = { "Niederlande", "Nederlandse Top 40", "Media Markt", "Nederlandse Vereniging van Producenten en Importeurs van beeld- en geluidsdragers", "NVPI", "den Niederlanden" },
["USA-A"] = { "Vereinigte Staaten", "Billboard 200", "Billboard", "Recording Industry Association of America", "RIAA", "den USA" },
["USA-S"] = { "Vereinigte Staaten", "Billboard Hot 100", "Billboard", "Recording Industry Association of America", "RIAA", "den USA" },
-- US genre charts
["USA-RB"] = { "Vereinigte Staaten", "Billboard-Charts", "Billboard R&B", "Recording Industry Association of America", "RIAA", "R&B-Alben in den USA" },
["USA-RB-A"] = { "Vereinigte Staaten", "Top R&B/Hip-Hop Albums", "Billboard R&B", "Recording Industry Association of America", "RIAA", "R&B-Alben in den USA" },
["USA-RB-S"] = { "Vereinigte Staaten", "Hot R&B/Hip-Hop Songs", "Billboard R&B", "Recording Industry Association of America", "RIAA" },
["USA-C"] = { "Vereinigte Staaten", "Billboard-Charts", "Billboard Country", "Recording Industry Association of America", "RIAA", "Country-Alben in den USA" },
["USA-C-A"] = { "Vereinigte Staaten", "Top Country Albums", "Billboard Country", "Recording Industry Association of America", "RIAA", "Country-Alben in den USA" },
["USA-C-S"] = { "Vereinigte Staaten", "Billboard Hot Country Songs", "Billboard Country", "Recording Industry Association of America", "RIAA" },
["USA-R"] = { "Vereinigte Staaten", "Billboard-Charts", "Billboard Rock", "Recording Industry Association of America", "RIAA" },
["USA-R-A"] = { "Vereinigte Staaten", "Top Rock Albums", "Billboard Rock", "Recording Industry Association of America", "RIAA" },
["USA-R-S"] = { "Vereinigte Staaten", "Hot Rock Songs", "Billboard Rock", "Recording Industry Association of America", "RIAA" },
["USA-D"] = { "Vereinigte Staaten", "Billboard-Charts", "Billboard Dance", "Recording Industry Association of America", "RIAA" },
["USA-D-A"] = { "Vereinigte Staaten", "Top Dance/Electronic Albums", "Billboard Dance", "Recording Industry Association of America", "RIAA", "den US-Dancecharts" },
["USA-D-S"] = { "Vereinigte Staaten", "Dance/Electronic Songs", "Billboard Dance", "Recording Industry Association of America", "RIAA", "den US-Dancecharts" },
["USA-L"] = { "Vereinigte Staaten", "Billboard-Charts", "Billboard Latin", "Recording Industry Association of America", "RIAA" },
["USA-L-A"] = { "Vereinigte Staaten", "Billboard Top Latin Albums", "Billboard Latin", "Recording Industry Association of America", "RIAA" },
["USA-L-S"] = { "Vereinigte Staaten", "Billboard Hot Latin Songs", "Billboard Latin", "Recording Industry Association of America", "RIAA" },
["USA-AC"] = { "Vereinigte Staaten", "Adult Contemporary (Charts)", "Billboard Adult Contemporary", "Recording Industry Association of America", "RIAA" },
["USA-J"] = { "Vereinigte Staaten", "Jazz Albums", "Billboard Jazz Albums", "Recording Industry Association of America", "RIAA" }
}
-- start album charts (1), start single charts (2), end album charts (3), end single charts (4) ...
local chartdatetable = {
["AUS"] = { 1965, 1940 },
["AUT"] = { 1970, 1964, 1971, 1971, 1973, 1973 },
["BEF"] = { 1995, 1954 },
["BEW"] = { 1995, 1956, nil, 1974, nil, 1995 },
["BGR"] = { 2009, 2009, 2015, 2015 },
["BRA"] = { 2009, 2017, 2017 },
["CAN"] = { 1968, 1957 },
["CHE"] = { 1983, 1968 },
["DEU"] = { 1962, 1954 },
["DNK"] = { 1993, 1993 },
["FIN"] = { 1995, 1995 },
["FRA"] = { 1984, 1984 },
["GBR"] = { 1956, 1952 },
["GRC"] = { 2002, 2001, nil, 2008, nil, 2014 },
["IND"] = { nil, 2021 },
["IRL"] = { 2000, 1962 },
["ITA"] = { 1964, 1960 },
["JPN"] = { 1989, 1968 },
["KOR"] = { 1999, 1999, 2008, 2008, 2010, 2010 },
["LTU"] = { 2017, 2017 },
["MEX"] = { 2005, 2017 },
["MYS"] = { nil, 2017 },
["NLD"] = { 1969, 1965 },
["NOR"] = { 1967, 1958 },
["NZL"] = { 1975, 1975 },
["POL"] = { 2000, 2010 },
["PRT"] = { 2003, 2000, nil, 2005, nil, 2012, nil, 2012, nil, 2016 },
["ROM"] = { 1997, 1997, 2012, 2012 },
["SGP"] = { 2001, 2018, 2005 },
["SWE"] = { 1962, 1962 },
["USA"] = { 1945, 1940 },
["ZAF"] = { nil, 2021 },
["USA-AC"] = { nil, 1961 },
["USA-C"] = { 1964, 1944 },
["USA-D"] = { 2001, 1974 },
["USA-L"] = { 1993, 1986 },
["USA-R"] = { 2006, 2009 },
["USA-RB"] = { 1965, 1948 }
}
-- flag info
local countryflagtable = {
["AUT"] = "Austria",
["ARG"] = "Argentina",
["AUS"] = "Australia",
["BEL"] = "Belgium (civil)",
["BE-VLG"] = "Flanders",
["BE-WAL"] = "Wallonia",
["BGR"] = "Bulgaria",
["BRA"] = "Brazil",
["CAN"] = "Canada",
["CHE"] = "Switzerland within 2to3",
["CHL"] = "Chile",
["COL"] = "Colombia",
["CZE"] = "Czech Republic",
["DEU"] = "Germany",
["DNK"] = "Denmark",
["ECU"] = "Ecuador",
["ESP"] = "Spain",
["EUR"] = "Europe",
["FIN"] = "Finland",
["FRA"] = "France",
["GCC"] = "GCC Flag",
["GRC"] = "Greece",
["HKG"] = "Hong Kong",
["HUN"] = "Hungary",
["HRV"] = "Croatia",
["IDN"] = "Indonesia",
["IND"] = "India",
["IRL"] = "Ireland",
["ISR"] = "Israel",
["ISL"] = "Iceland",
["ITA"] = "Italy",
["JPN"] = "Japan",
["KOR"] = "South Korea",
["LBN"] = "Lebanon",
["LVA"] = "Latvia",
["LTU"] = "Lithuania",
["MEX"] = "Mexico",
["MYS"] = "Malaysia",
["NLD"] = "the Netherlands",
["NOR"] = "Norway",
["NZL"] = "New Zealand",
["PER"] = "Peru",
["PHL"] = "the Philippines",
["POL"] = "Poland",
["PRT"] = "Portugal",
["ROU"] = "Romania",
["RUS"] = "Russia",
["SVK"] = "Slovakia",
["SVN"] = "Slovenia",
["SWE"] = "Sweden",
["SGP"] = "Singapore",
["THA"] = "Thailand",
["TUR"] = "Turkey",
["TWN"] = "the Republic of China",
["GBR"] = "the United Kingdom",
["USA"] = "the United States",
["URY"] = "Uruguay",
["VEN"] = "Venezuela",
["ZAF"] = "South Africa"
}
-- colour schemes for countries in no1 table and related templates
local colourtable = {
["1"] = { "#5D80D0", "#9DB8F0", "#E9F0FF" },
["2"] = { "#7BC5F7", "#C8E8FD", "#E4F4FF" },
["3"] = { "#FFF090", "#FFFBB9", "#FFFBED" },
["4"] = { "#3ACD3A", "#8AFC8A", "#E9FFE9" },
["5"] = { "#EE6363", "#FF6A6A", "#FFC1C1" }
}
local lucky, ISO3166 = pcall( require, "Module:ISO3166" )
if type( ISO3166 ) == "table" then
ISO3166 = ISO3166.ISO3166()
else
-- In the event of errors, ISO3166 is an error message.
return "<span class=\"error\">" .. ISO3166 .. "</span>"
end
-- check existence of charts
p.chartexist = function (country, rformat, year, first)
-- recognise countrycode
local countryconv = ISO3166.f (country, "A3", true)
if not countryconv then
countryconv = "???"
end
if string.match (country, "US%-") then
countryconv = string.gsub (country, "US", "USA")
end
local countrycode
if chartdatetable[countryconv] then
countrycode = countryconv
elseif chartdatetable[country] then
countrycode = country
end
-- default rformat
if not rformat then
rformat = "Alben"
end
-- check existing years
local firstyear
local lastyear
local firstyear2
local lastyear2
local firstyear3
local lastyear3
if countrycode then
if rformat == "Singles" then
firstyear = chartdatetable[countrycode][2]
lastyear = chartdatetable[countrycode][4]
firstyear2 = chartdatetable[countrycode][6]
lastyear2 = chartdatetable[countrycode][8]
firstyear3 = chartdatetable[countrycode][10]
lastyear3 = chartdatetable[countrycode][12]
else
firstyear = chartdatetable[countrycode][1]
lastyear = chartdatetable[countrycode][3]
firstyear2 = chartdatetable[countrycode][5]
lastyear2 = chartdatetable[countrycode][7]
firstyear3 = chartdatetable[countrycode][9]
lastyear3 = chartdatetable[countrycode][11]
end
end
-- check given year
local exist = true
local yearformat
if year then
yearformat = string.match(year, "^(%d%d%d%d)")
end
if tonumber(yearformat) then
if firstyear then
if tonumber(yearformat) >= firstyear then
exist = true
else
exist = false
end
end
if lastyear then
if tonumber(yearformat) > lastyear then
exist = false
end
end
if firstyear2 then
if tonumber(yearformat) >= firstyear2 then
exist = true
end
end
if lastyear2 then
if tonumber(yearformat) > lastyear2 then
exist = false
end
end
if firstyear3 then
if tonumber(yearformat) >= firstyear3 then
exist = true
end
end
if lastyear3 then
if tonumber(yearformat) > lastyear3 then
exist = false
end
end
end
if first then
return firstyear
else
return exist
end
end
-- correct chart links for single charts
p.singlechartlink = function (content)
content = content
:gsub ("Billboard 200", "Billboard Hot 100")
:gsub ("Top R%&B%/Hip%-Hop Albums", "Hot R&B/Hip-Hop Songs")
:gsub ("Top Country Albums", "Billboard Hot Country Songs")
:gsub ("Top Rock Albums", "Hot Rock Songs")
:gsub ("Top Dance%/Electronic Albums", "Dance/Electronic Songs")
:gsub ("Billboard Top Latin Albums", "Billboard Hot Latin Songs")
:gsub ("Dutch Charts", "Nederlandse Top 40")
:gsub ("Deutsche Albumcharts", "Deutsche Singlecharts")
return content
end
-- create chart link, flag link and country shortcut
p.countryshort = function (country, rformat, display)
if not country then
country = ""
end
local countryconv = ISO3166.f (country, "A3", true)
if not countryconv then
countryconv = "???"
end
if string.match (country, "US%-") then
countryconv = string.gsub (country, "US", "USA")
end
local countrycode
if (string.match (countryconv, "USA") and countryconv ~= "USA-AC" and countryconv ~= "USA-J") or string.match (countryconv, "DEU") or string.match (countryconv, "NLD") then
if rformat == "Singles" then
countrycode = countrytable[(countryconv .. "-S")]
else
countrycode = countrytable[(countryconv .. "-A")]
end
else
countrycode = countrytable[countryconv] or countrytable[country]
end
local chartlink
local countrydisplay
local flaglink
if countrycode then
chartlink = countrycode[2]
end
if country == "BEF" then
countrydisplay = "BE<sup>F</sup>"
elseif country == "BEW" then
countrydisplay = "BE<sup>W</sup>"
elseif string.match (countryconv, "USA%-RB") then
countrydisplay = "R&B"
elseif string.match (countryconv, "USA%-D") then
countrydisplay = "Dance"
elseif string.match (countryconv, "USA%-R") then
countrydisplay = "Rock"
elseif string.match (countryconv, "USA%-L") then
countrydisplay = "La­tin"
elseif string.match (countryconv, "USA%-C") then
countrydisplay = "Coun­try"
elseif string.match (countryconv, "USA%-J") then
countrydisplay = "Jazz"
elseif string.match (countryconv, "USA%-AC") then
countrydisplay = "A. C."
elseif countrycode then
countrydisplay = ISO3166.f (country, "A2", true)
if not countrydisplay then
countrydisplay = "???"
elseif countrydisplay == "GB" then
countrydisplay = "UK"
end
else
countrydisplay = country
end
if country == "BEF" then
flaglink = "BE-VLG"
elseif country == "BEW" then
flaglink = "BE-WAL"
elseif string.match(countryconv, "USA") then
flaglink = "USA"
elseif string.match(countryconv, "DEU") then
flaglink = "DEU"
elseif string.match(countryconv, "NLD") then
flaglink = "NLD"
else
flaglink = countryconv
end
if display == "link" then
return chartlink
elseif display == "display" then
return countrydisplay
elseif display == "flag" then
return flaglink
end
end
-- Länderkürzel für mobile Charttabellen und Chartboxen - country shortcuts for mobile chart tables and chart infoboxes
p.countrycol = function (country, c, nolink, template, rformat)
if not country then
country = ""
end
local countrydisplay = p.countryshort (country, rformat, "display")
local chartlink = p.countryshort (country, rformat, "link")
local ret
if chartlink then
if nolink then
ret = countrydisplay
else
ret = "[[" .. chartlink .. "|" .. countrydisplay .. "]]"
end
else
if nolink then
ret = "<span class='indivcountrynolink" .. c .. "'>" .. (country or "") .. "</span>"
else
ret = "<span class='indivcountry" .. c .. "'>" .. (country or "") .. "</span>"
end
end
-- service links for infobox
if template == "infobox" then
if string.match (country, "[^%a%s%-]") then
ret = ret .. "<span style='display:none'>[[Template:Infobox Chartplatzierungen/Wartung/Land falsch]]</span>"
elseif not chartlink then
if country ~= "DDR" then
ret = ret .. "<span style='display:none'>[[Template:Infobox Chartplatzierungen/Wartung/Land unbekannt]]</span>"
end
end
end
-- /
return ret
end
-- Länderspalten für Charttabellen - country columns in chart table head
p.countryhead = function (countries, rformat, sortable)
local ret = ""
for c = 1, #countries.countries do
local country = countries.countries[c]
local countrydisplay = p.countryshort (country, rformat, "display")
local chartlink = p.countryshort (country, rformat, "link")
local flaglink = p.countryshort (country, rformat, "flag")
-- service links
local slnocountry = "<span style='display:none'>[[Template:Charttabelle/Wartung/Land unbekannt"
if string.match (country, "US") or string.match (country, "United States") then
slnocountry = slnocountry .. " (US)"
end
slnocountry = slnocountry .. "]]</span>"
-- /
ret = ret .. "\n! style='width:52px;'"
if sortable then
ret = ret .. " data-sort-type='number'"
end
ret = ret .. " class='charts-th' | "
if not countrydisplay or not chartlink or not flaglink then
ret = ret .. country .. slnocountry
else
local countryflagname = countryflagtable[flaglink] or "None"
ret = ret .. "[[File:Flag of " .. countryflagname .. ".svg|20px|link=" .. chartlink .. "|" .. countrydisplay .. "|alt=]]"
ret = ret .. " [[" .. chartlink .. "|" .. countrydisplay .. "]]"
end
end
return ret
end
-- flag template for chart positions table and certification table
p.countryflag = function (country, linkid, displayid, bracketsid, template)
local countrycode
local countryconv = ISO3166.f (country, "A3", true)
if not countryconv then
countryconv = "???"
end
if countrytable[country] then
countrycode = country
else
countrycode = countryconv
end
local flagcountry
local flagcountryname
local flagfile
local link
local display
local brackets
local ret
if countrytable[countrycode] then
if countrycode == "EUR2" then
flagcountry = "EUR"
elseif countrycode == "FRA2" then
flagcountry = "FRA"
elseif countrycode == "BEF" then
flagcountry = "BE-VLG"
elseif countrycode == "BEW" then
flagcountry = "BE-WAL"
elseif string.match(countrycode, "USA") then
flagcountry = "USA"
elseif string.match(countrycode, "DEU") then
flagcountry = "DEU"
elseif string.match(countrycode, "NLD") then
flagcountry = "NLD"
else
flagcountry = countrycode
end
flagcountryname = countryflagtable[flagcountry]
flagfile = "[[File:"
if flagcountry == "GCC" then
flagfile = flagfile .. flagcountryname
else
flagfile = flagfile .. "Flag of " .. (flagcountryname or "None")
end
flagfile = flagfile .. ".svg|20px|class=noviewer"
if flagcountry ~= "CHE" then
flagfile = flagfile .. "|border"
end
flagfile = flagfile .. "|link="
if linkid then
link = countrytable[countrycode][linkid]
else
link = countrytable[countrycode][1]
end
if displayid then
display = countrytable[countrycode][displayid] or countrytable[countrycode][1]
else
display = countrytable[countrycode][1]
end
if bracketsid then
brackets = countrytable[countrycode][bracketsid]
display = display .. " (" .. (brackets or "") .. ")"
end
ret = flagfile .. link .. "|" .. display .. "|alt=]] [[" .. link .. "|" .. display .. "]]"
else
ret = country or ""
if template == "chartpos" then
ret = ret .. "<span style='display:none'>[[Template:Chartplatzierungen/Wartung/Land unbekannt]]</span>"
elseif template == "certification" then
ret = ret .. "<span style='display:none'>[[Template:AfM-Tabelle/Wartung/Land unbekannt]]</span>"
end
end
return ret
end
-- create automatic links to lists of number-one hits in selected countries
p.numberonelinks = function (position, country, year)
local afterone = string.match(position, "1(.*)")
local yearformat
if year then
if string.match(year, "^%d%d%d%d") then
yearformat = string.match(year, "^(%d%d%d%d)")
end
end
local ret = ""
-- find country code
local countryconv = ISO3166.f (country, "A3", true)
if countryconv == false then
countryconv = "???"
end
if string.match (country, "US%-") then
countryconv = string.gsub (country, "US", "USA")
end
local countrycode
if (string.match (countryconv, "USA") and countryconv ~= "USA-AC") or string.match (countryconv, "DEU") or string.match (countryconv, "NLD") then
countrycode = countrytable[(countryconv .. "-A")]
else
countrycode = countrytable[countryconv] or countrytable[country]
end
-- /
if countrycode then
if countrycode[6] then
ret = ret .. "[[Liste der Nummer-eins-"
if countryconv ~= "USA-RB" and countryconv ~= "USA-C" then
ret = ret .. "Hits in "
end
ret = ret .. countrycode[6]
if yearformat then
ret = ret .. " (" .. yearformat .. ")"
end
ret = ret .. "|<b>1</b>]]"
if countryconv == "USA-RB" or countryconv == "USA-C" then
ret = ret .. "<!--Albumcharts-->"
end
else
ret = ret .. "<b>1</b>"
end
else
ret = ret .. "<b>1</b>"
end
ret = ret .. (afterone or "")
return ret
end
p.no1tablecountry = function (country, info)
local countryid
local colourscheme
local countryconv
local colour1
local colour2
local rowcolour
local flag
local nav
local firstyear
for key,value in pairs(countrytable) do
if value[1] == country then
country = key
end
end
if country == "Großbritannien" then
country = "GBR"
elseif string.match (country, "...%-") then
country = string.match (country, "(...)%-")
end
countryconv = ISO3166.f (country, "A3", true)
if not countryconv then
countryconv = "???"
end
if countrytable[countryconv] then
countryid = countrytable[countryconv][6] or countryconv
colourscheme = countrytable[countryconv][7] or "1"
else
countryid = "Land"
colourscheme = "1"
end
colour1 = colourtable[colourscheme][1]
colour2 = colourtable[colourscheme][2]
rowcolour = colourtable[colourscheme][3]
flag = "{{" .. countryconv .. "|#}}"
nav = "Navigationsleiste Nummer-eins-Hits in " .. countryid
if chartdatetable[countryconv] or chartdatetable[country] then
local firstalbumyear = chartdatetable[countryconv][1] or chartdatetable[country][1]
local firstsingleyear = chartdatetable[countryconv][2] or chartdatetable[country][2]
if firstalbumyear and firstsingleyear then
if firstsingleyear < firstalbumyear then
firstyear = firstsingleyear
else
firstyear = firstalbumyear
end
elseif firstsingleyear then
firstyear = firstsingleyear
else
firstyear = firstalbumyear
end
elseif mw.title.new( nav, 'Template' ).exists then
local frame = mw.getCurrentFrame()
firstyear = frame:expandTemplate{ title = nav, args = { 'Beginn' } }
else
firstyear = "1950"
end
local ret
if info == "countryid" then
ret = countryid
elseif info == "colour1" then
ret = colour1
elseif info == "colour2" then
ret = colour2
elseif info == "rowcolour" then
ret = rowcolour
elseif info == "flag" then
ret = flag
elseif info == "firstyear" then
ret = firstyear
else
ret = ""
end
return ret
end
return p
