Vikigezgin trwikivoyage https://tr.wikivoyage.org/wiki/Anasayfa MediaWiki 1.47.0-wmf.24 first-letter Ortam Özel Tartışma Kullanıcı Kullanıcı mesaj Vikigezgin Vikigezgin tartışma Dosya Dosya tartışma MediaWiki MediaWiki tartışma Şablon Şablon tartışma Yardım Yardım tartışma Kategori Kategori tartışma TimedText TimedText talk Modül Modül tartışma Event Event talk 10 146 17833 667 2026-10-21T16:40:31Z Nabbegat 2005 güncelleme 17833 wikitext text/x-wiki <includeonly>{{Mapshape/Inner | wikidata={{{wikidata|{{#invoke:Vikiveri|pageId}}}}} | wikicommons={{{wikicommons|}}} | type={{{type|geomask}}} | group={{{group|mask}}} | fill={{{fill|#555555}}} | opacity={{{opacity|0.5}}} | stroke={{{stroke|#000000}}} | stroke-width={{{stroke-width|1}}} | stroke-opacity={{{stroke-opacity|1}}} | title={{{title|}}} }}</includeonly><noinclude>{{Belgeleme}}</noinclude> fqn4johnd76m5ozzk86mxligeoefm34 10 650 17836 17066 2026-10-21T16:52:20Z Nabbegat 2005 güncelleme 17836 wikitext text/x-wiki <includeonly><templatestyles src="Mapframe/styles.css" />{{#invoke:map | tag | type=mapframe | zoom={{{zoom|auto}}} | align = {{{align|right}}} | show={{{show | {{maplayers}} }}} | latitude={{{1|}}} | longitude={{{2|}}} | text = {{#switch: {{{zoom|}}} | 17 | 16 | 15 | 14 |13 | 12 | 11 | 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 = <div class="magnify" title="Haritayı büyüt">{{maplink|{{{1|0}}}|{{{2|0}}}|zoom={{#expr: {{{zoom|}}} + 1 }} |class=no-icon}}</div> }}{{{name|{{SUBPAGENAME}} Haritası}}}<!-- -->{{#ifexist: Şablon:GPX/{{PAGENAME}} | <small id="GPX-track"> [[Şablon:GPX/{{PAGENAME}}|(GPX'i Düzenle)]]</small>{{GPX indicator}} }}<!-- -->{{#if: {{{staticmap|}}} | <div class="wv-staticMap">[[Dosya:{{{staticmap|}}}|{{#expr: {{{width|400}}} - 2 }}px|border|{{{name|{{SUBPAGENAME}} Haritası}}}]]</div> }} }}{{#ifeq: {{NAMESPACE}} | {{ns:0}} | [[Kategori:Mapframe kullanan sayfalar]]<!-- -->{{#if: {{{staticmap|}}} | [[Kategori:Sabit görselli haritalar]] }}<!-- -->{{#if: {{{align|}}} | [[Kategori:Varsayılan dışı hizalamaya sahip haritalar]] }}<!-- -->{{#if: {{{height|}}}{{{width|}}} | [[Kategori:Varsayılan dışı boyuta sahip haritalar]] }}<!-- -->{{#ifexist: Şablon:GPX/{{PAGENAME}} | [[Kategori:GPX göstergeli haritalar]] }} }}</includeonly><noinclude>{{Belgeleme}}</noinclude> cd4fmein2fspq6w3s5t8hkjljnzk9fa 17840 17836 2026-10-21T17:21:54Z Nabbegat 2005 17840 wikitext text/x-wiki <includeonly><templatestyles src="Mapframe/styles.css" />{{#invoke:map | tag | type=mapframe | zoom={{{zoom|auto}}} | align = {{{align|right}}} | show={{{show | {{Haritakatmanı}} }}} | latitude={{{1|}}} | longitude={{{2|}}} | text = {{#switch: {{{zoom|}}} | 17 | 16 | 15 | 14 |13 | 12 | 11 | 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 = <div class="magnify" title="Haritayı büyüt">{{maplink|{{{1|0}}}|{{{2|0}}}|zoom={{#expr: {{{zoom|}}} + 1 }} |class=no-icon}}</div> }}{{{name|{{SUBPAGENAME}} Haritası}}}<!-- -->{{#ifexist: Şablon:GPX/{{PAGENAME}} | <small id="GPX-track"> [[Şablon:GPX/{{PAGENAME}}|(GPX'i Düzenle)]]</small>{{GPX indicator}} }}<!-- -->{{#if: {{{staticmap|}}} | <div class="wv-staticMap">[[Dosya:{{{staticmap|}}}|{{#expr: {{{width|400}}} - 2 }}px|border|{{{name|{{SUBPAGENAME}} Haritası}}}]]</div> }} }}{{#ifeq: {{NAMESPACE}} | {{ns:0}} | [[Kategori:Mapframe kullanan sayfalar]]<!-- -->{{#if: {{{staticmap|}}} | [[Kategori:Sabit görselli haritalar]] }}<!-- -->{{#if: {{{align|}}} | [[Kategori:Varsayılan dışı hizalamaya sahip haritalar]] }}<!-- -->{{#if: {{{height|}}}{{{width|}}} | [[Kategori:Varsayılan dışı boyuta sahip haritalar]] }}<!-- -->{{#ifexist: Şablon:GPX/{{PAGENAME}} | [[Kategori:GPX göstergeli haritalar]] }} }}</includeonly><noinclude>{{Belgeleme}}</noinclude> 0eknrnmyfojvpgc9r4gs3rm7ka82pq9 828 965 17835 4469 2026-10-21T16:51:33Z Nabbegat 2005 güncelleme 17835 Scribunto text/plain local getArgs = require('Module:Arguments').getArgs local p = {} function dbg(v, msg) mw.log((msg or '') .. mw.text.jsonEncode(v)) end local function has_value (tab, val) for index, value in ipairs(tab) do if value == val then return true end end return false end -- Tüm isimlendirilmemiş "enlem, boylam" parametrelerini gerçek sayı çiftlerine dönüştürür function getSequence(args) local coords = {} for ind, val in pairs( args ) do if type(ind) == "number" then local valid = false local val2 = mw.text.split( val, ',', true ) -- rakım (elevation) için izin ver if #val2 >= 2 and #val2 <= 3 then local lat = tonumber(val2[1]) local lon = tonumber(val2[2]) if lat ~= nil and lon ~= nil then table.insert(coords, { lon, lat } ) valid = true end end if not valid then error('İsimsiz parametre #' .. ind .. ' "' .. val .. '", geçerli bir "enlem,boylam" değeri olarak algılanmadı') end end end return coords end function p.parseGeoSequence(args) local result = p._parseGeoSequence(args) if type(result) == 'string' then error(result) end return result end function p._parseGeoSequence(args) local allTypes = { Point = { 1, 1 }, MultiPoint = { 1, 0 }, LineString = { 1, 2 }, MultiLineString = { 2, 2 }, Polygon = { 2, 4 }, MultiPolygon = { 3, 4 }, } if not allTypes[args.geotype] then return ('Bilinmeyen coğrafi tür (geotype): ' .. args.geotype) end local levels, min = unpack(allTypes[args.geotype]) local result result = {} for i = 1, levels do result[i] = {} end local gap = 0 local closeArrays = function (gap) if #result[levels] < min then error('Her nokta dizisinde en az ' .. min .. ' değer bulunmalıdır') elseif min == 1 and #result[levels] ~= 1 then error('Point (Nokta) tam olarak bir veri noktasına sahip olmalıdır') end for i = levels, levels-gap+1, -1 do table.insert(result[i-1], result[i]) result[i] = {} end return 0 end local usedSequence = false for val in mw.text.gsplit(args.data, ';', true) do local val2 = mw.text.split(val, ',', true) if #val2 >= 2 and #val2 <= 3 and not usedSequence then if gap > 0 then gap = closeArrays(gap) end local lat = tonumber(val2[1]) local lon = tonumber(val2[2]) if lat == nil or lon == nil then return ('Hatalı veri değeri "' .. val .. '"') end table.insert(result[levels], { lon, lat } ) else val = mw.text.trim(val) if val == '' then usedSequence = false gap = gap + 1 if (gap >= levels) then return ('Veri, ' .. levels-1 .. ' değerden fazlasını atlamamalıdır') end elseif usedSequence then return ('Koordinatlar isimlendirilmiş bir diziden hemen sonra eklenemez') else if gap > 0 then gap = closeArrays(gap) elseif #result[levels] > 0 then return ('İsimlendirilmiş dizi "' .. val .. '", dizinin ortasında kullanılamaz') end if val == 'values' then val = getSequence(args) elseif min == 4 and val == 'world' then val = {{36000,-180}, {36000,180}, {-36000,180}, {-36000,-180}, {36000,-180}} elseif tonumber(val) ~= nil then return ('Geçerli bir koordinat veya dizi adı değil: ' .. val) else return ('Dizi "' .. val .. '" bilinmiyor. "values" veya "world" (Çokgenler için) deneyin ya da değerleri lat,lon;lat,lon;... biçiminde ayırarak belirtin') end result[levels] = val usedSequence = true end end end if (gap > 1) then return ('Veri değerlerinin sonunda boşluk bulunmamalıdır') end closeArrays(levels-1) return args.geotype == 'Point' and result[1][1] or result[1] end function p._tag(args) local tagname = args.type or 'maplink' if tagname ~= 'maplink' and tagname ~= 'mapframe' then error('Bilinmeyen tür "' .. tagname .. '"') end local geojson local tagArgs = { text = args.text, zoom = tonumber(args.zoom), latitude = tonumber(args.latitude), longitude = tonumber(args.longitude), group = args.group, show = args.show, class = args.class, url = args.url, image = args.image, } if (args.wikidata ~= nil) then local e = mw.wikibase.getEntity(args.wikidata) if e.claims ~= nil then if (not tagArgs.latitude or not tagArgs.longitude) then if e.claims.P625 ~= nil then tagArgs.latitude = e.claims.P625[1].mainsnak.datavalue.value.latitude tagArgs.longitude = e.claims.P625[1].mainsnak.datavalue.value.longitude end end if e.labels.tr ~= nil then title = e.labels.tr.value elseif e.labels.en ~= nil then title = e.labels.en.value end if not args.title then args.title = title end if not tagArgs.image then if e.claims.P18 ~= nil then tagArgs.image = e.claims.P18[1].mainsnak.datavalue.value end end end end if not args.title then args.title = '' end if not tagArgs.url then tagArgs.url = '' end if not tagArgs.image then tagArgs.image = '' end tagArgs.title = args.title if args.ismarker and (args.latitude == 'NA' or args.longitude == 'NA' or not tagArgs.latitude or not tagArgs.longitude) then return 'nowiki', '', tagArgs end if tagname == 'mapframe' then tagArgs.width = args.width == nil and 420 or args.width tagArgs.height = args.height == nil and 420 or args.height tagArgs.align = args.align == nil and 'right' or args.align elseif not args.class and (args.text == '' or args.text == '""') then tagArgs.class = 'no-icon' end if args.data == '' then args.data = nil end if (not args.geotype) ~= (not args.data) then if args.data then error('"data" parametresi girilmiş ancak "geotype" ayarlanmamış. Şunlardan birini kullanın: Point, MultiPoint, LineString, MultiLineString, Polygon, MultiPolygon') elseif args.geotype == "Point" and tagArgs.latitude ~= nil and tagArgs.longitude ~= nil then args.data = tagArgs.latitude .. ',' .. tagArgs.longitude else error('Veri parametresi ayarlanmalıdır. "values" kullanın veya doğrudan "lat,lon;lat,lon..." şeklinde belirtin') end end if tagArgs.image ~= '' then args.description = (args.description or '') .. '[[Dosya:' .. tagArgs.image .. '|300px]]' end if args.geotype then geojson = { type = "Feature", properties = { title = args.title, description = args.description, ['marker-size'] = args['marker-size'], ['marker-symbol'] = args['marker-symbol'], ['marker-color'] = args['marker-color'], stroke = args.stroke, ['stroke-opacity'] = tonumber(args['stroke-opacity']), ['stroke-width'] = tonumber(args['stroke-width']), fill = args.fill, ['fill-opacity'] = tonumber(args['fill-opacity']), }, geometry = { type = args.geotype, coordinates = p.parseGeoSequence(args) } } end if args.debug ~= nil then local html = mw.html.create(tagname, not geojson and {selfClosing=true} or nil) :attr(tagArgs) if geojson then html:wikitext( mw.text.jsonEncode(geojson, mw.text.JSON_PRETTY) ) end return 'syntaxhighlight', tostring(html) .. mw.text.jsonEncode(args, mw.text.JSON_PRETTY), { lang = 'json', latitude=0, longitude=0, title='', url='' } end return tagname, geojson and mw.text.jsonEncode(geojson) or '', tagArgs end function p.tag(frame) out = {} local args = getArgs(frame) local tag, geojson, tagArgs = p._tag(args) local listingTypes = {'see', 'eat', 'buy', 'drink', 'sleep'} if args.ismarker == 'yes' then if mw.title.getCurrentTitle().namespace == 0 and has_value({'do', unpack(listingTypes)}, string.lower(args.group)) then out[#out + 1] = "[[Kategori:"..string.lower(args.group).." listelemesine sahip sayfalar]]" end if geojson ~= '' then coordargs = {tagArgs.latitude, tagArgs.longitude, ['title'] = tagArgs.title} out[#out + 1] = '<span class="noprint listing-coordinates" style="display:none">' out[#out + 1] = '<span class="geo">' out[#out + 1] = '<abbr class="latitude">' .. tagArgs.latitude ..'</abbr>' out[#out + 1] = '<abbr class="longitude">' .. tagArgs.longitude ..'</abbr>' out[#out + 1] = '</span></span>' out[#out + 1] = '<span title="Bu \''.. args.group ..'\' işaretleyicisi için harita">' out[#out + 1] = frame:extensionTag(tag, geojson, tagArgs) out[#out + 1] = '&#32;</span>' if mw.title.getCurrentTitle().namespace == 0 then out[#out + 1] = "[[Kategori:Harita işaretleyicisi olan sayfalar]]" end else if mw.title.getCurrentTitle().namespace == 0 and has_value(listingTypes, string.lower(args.group)) and (args.latitude ~= 'NA' and args.longitude ~= 'NA') then out[#out + 1] = "[[Kategori:Koordinatı olmayan "..string.lower(args.group).." listelemeleri]]" end end if mw.title.getCurrentTitle().namespace == 0 and has_value({'city', 'vicinity'}, string.lower(args.group)) and (args.wikidata == nil or args.wikidata == '') and (args.image == nil or args.image == '') then out[#out + 1] = "[[Kategori:Vikiveri ögesi olmayan bölge işaretleyicileri]]" end if tagArgs.title ~= '' then title = '<span id="'.. mw.uri.anchorEncode(tagArgs.title) ..'" class="fn org listing-name">\'\'\''.. tagArgs.title ..'\'\'\'</span>' else title = '' end if tagArgs.url ~= '' then out[#out + 1] = '['.. tagArgs.url ..' '..title..']' else out[#out + 1] = title end return table.concat(out, "") else return frame:extensionTag(tag, geojson, tagArgs) end end return p rmnhs9jnwmafj7hcoq1dk9uj2z8ryja 0 3630 17838 17819 2026-10-21T17:05:19Z Nabbegat 2005 17838 wikitext text/x-wiki {{Kapakfotoğrafı}} '''Prag''' (Çekçe: ''Praha''), [[Çek Cumhuriyeti]]'nin başkenti ve en büyük şehridir. Tarihi binaları, kıvrımlı sokakları ve zengin sosyal hayatıyla dikkat çeker. Prag, üzerinden büyük köprülerin geçtiği Vltava Nehri'nin kıyısında yer almaktadır. == Bölgeler == Prag'da farklı tarihsel dönemlere dayanan, çeşitli amaçlar için kullanılan ve birbiriyle uyumsuz olan birkaç bölge sistemi kullanılmaktadır. En az üç farklı düzen mevcuttur. İşleri daha da karmaşık hâle getiren şey, belirli bir ilçe adının tüm sistemlerde yer alabilmesi ancak farklı anlamlar taşımasıdır. Bu rehberde, "eski" ilçe sisteminin basitleştirilmiş bir sürümü kullanılmaktadır. Bu sisteme göre Prag, numaralandırılmış on ilçeye (''Praha 1''<nowiki>'</nowiki>den ''Praha 10'''a kadar) ayrılmıştır. Bunun avantajı, şehir genelindeki sokak tabelalarında ve kapı numaralarında kullanılmasıdır; böylece hangi "eski" ilçede olduğunuzu her zaman kolayca belirleyebilirsiniz. Eğer 10'dan büyük bir ilçe numarasıyla karşılaşırsanız, farklı bir sistem kullanılıyor demektir. Örneğin, Praha 13, "eski" Praha 5 ilçesinin bir parçasıdır. {{Mapframe|50.078|14.4180|zoom=12}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q748211, Q753292|fill=#d9613e|title=[[Prague/Old Town and Josefov|Old Town and Josefov]]}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q753289, Q744598|fill=#8888dc|title=[[Prague/Castle and Lesser Town|Castle and Lesser Town]]}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q753219, Q21891843|fill=#d5dc76|title=[[Prague/New Town and Vysehrad|New Town and Vysehrad]]}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q693350, Q2709316, Q2442419, Q2499127, Q2717469, Q3489907, Q628212, Q3499395, Q3509446, Q2440414, Q1822800, Q3499350, Q3490214, Q3489932, Q2061921, Q3563146, Q3564567, Q2320562, Q2834321, Q3509815, Q3490551, Q3509373, Q3563211, Q2533951, Q3566606, Q1734030, Q23818165, Q2501433, Q174248, Q600063, Q3506327, Q3566327, Q3509457, Q868618, Q3509048, Q2661930, Q3509657, Q3497283, Q2693443, Q2003486, Q3489926, Q3509834, Q3490702, Q2623877, Q3509023, Q3490542, Q3509772, Q1969345, Q3490530, Q3509780, Q3509425, Q2638290, Q2078708, Q3509354, Q3563232, Q3563100, Q2297365, Q3499380, Q3490254, Q3489924, Q2643835, Q840751, Q2467285, Q3563133, Q662985, Q3563089, Q580728, Q2782104, Q3499406, Q378120, Q84682501|fill=#75bb75|title=[[East bank of Vltava]]}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q2446033, Q2786011, Q2580968, Q1811143, Q1624461, Q2460331, Q1013032, Q2403918, Q2048241, Q2216373, Q3490395, Q2456160, Q3490548, Q1821473, Q2041885, Q2317527, Q1810336, Q1996280, Q1987157, Q2067699, Q3499402, Q2331979, Q2612318, Q2785180, Q942842, Q2795720, Q2219104, Q3176913, Q2383655, Q3490377, Q1013035, Q2122492, Q1963689, Q2689681, Q168279, Q2189635 |fill=#d09440|title=[[West bank of Vltava]]}} {{Mapshape|wikidata=Q1502676|type=geoline|stroke=#AAAAAA|stroke-width=4|stroke-opacity=0.7}} == Görün == * Prag Kalesi * Karluv köprüsü === Müzeler === * Ulusal Müze * Franz Kafka müzesi === Saraylar === * Lobkowicz Sarayı === Diğer === * Prag Ulusal Galerisi == Sonraki == *[[Wrocław|Wrocław]], Polonya'nın otobüsle (5 saatte) ulaşılabilen güzel bir tarihi şehri. [[Kategori:Çek Cumhuriyeti]] m2chick5o15sn5tbz915o4ody3qnz29 17839 17838 2026-10-21T17:12:10Z Nabbegat 2005 17839 wikitext text/x-wiki {{Kapakfotoğrafı}} '''Prag''' (Çekçe: ''Praha''), [[Çek Cumhuriyeti]]'nin başkenti ve en büyük şehridir. Tarihi binaları, kıvrımlı sokakları ve zengin sosyal hayatıyla dikkat çeker. Prag, üzerinden büyük köprülerin geçtiği Vltava Nehri'nin kıyısında yer almaktadır. == Bölgeler == Prag'da farklı tarihsel dönemlere dayanan, çeşitli amaçlar için kullanılan ve birbiriyle uyumsuz olan birkaç bölge sistemi kullanılmaktadır. En az üç farklı düzen mevcuttur. İşleri daha da karmaşık hâle getiren şey, belirli bir ilçe adının tüm sistemlerde yer alabilmesi ancak farklı anlamlar taşımasıdır. Bu rehberde, "eski" ilçe sisteminin basitleştirilmiş bir sürümü kullanılmaktadır. Bu sisteme göre Prag, numaralandırılmış on ilçeye (''Praha 1''<nowiki>'</nowiki>den ''Praha 10'''a kadar) ayrılmıştır. Bunun avantajı, şehir genelindeki sokak tabelalarında ve kapı numaralarında kullanılmasıdır; böylece hangi "eski" ilçede olduğunuzu her zaman kolayca belirleyebilirsiniz. Eğer 10'dan büyük bir ilçe numarasıyla karşılaşırsanız, farklı bir sistem kullanılıyor demektir. Örneğin, Praha 13, "eski" Praha 5 ilçesinin bir parçasıdır. {{Mapframe|50.078|14.4180|zoom=12}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q748211, Q753292|fill=#d9613e|title=[[Prag/Eski Şehir ve Josefov|Eski Şehir ve Josefov]]}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q753289, Q744598|fill=#8888dc|title=[[Prag/Kale ve Küçük Şehir|Kale ve Küçük Şehir]]}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q753219, Q21891843|fill=#d5dc76|title=[[Prag/Yeni Şehir ve Vysehrad|Yeni Şehir ve Vysehrad]]}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q693350, Q2709316, Q2442419, Q2499127, Q2717469, Q3489907, Q628212, Q3499395, Q3509446, Q2440414, Q1822800, Q3499350, Q3490214, Q3489932, Q2061921, Q3563146, Q3564567, Q2320562, Q2834321, Q3509815, Q3490551, Q3509373, Q3563211, Q2533951, Q3566606, Q1734030, Q23818165, Q2501433, Q174248, Q600063, Q3506327, Q3566327, Q3509457, Q868618, Q3509048, Q2661930, Q3509657, Q3497283, Q2693443, Q2003486, Q3489926, Q3509834, Q3490702, Q2623877, Q3509023, Q3490542, Q3509772, Q1969345, Q3490530, Q3509780, Q3509425, Q2638290, Q2078708, Q3509354, Q3563232, Q3563100, Q2297365, Q3499380, Q3490254, Q3489924, Q2643835, Q840751, Q2467285, Q3563133, Q662985, Q3563089, Q580728, Q2782104, Q3499406, Q378120, Q84682501|fill=#75bb75|title=[[Vltava'nın doğu kıyısı]]}} {{Mapshape|type=geoshape|stroke-opacity=0.1|wikidata=Q2446033, Q2786011, Q2580968, Q1811143, Q1624461, Q2460331, Q1013032, Q2403918, Q2048241, Q2216373, Q3490395, Q2456160, Q3490548, Q1821473, Q2041885, Q2317527, Q1810336, Q1996280, Q1987157, Q2067699, Q3499402, Q2331979, Q2612318, Q2785180, Q942842, Q2795720, Q2219104, Q3176913, Q2383655, Q3490377, Q1013035, Q2122492, Q1963689, Q2689681, Q168279, Q2189635 |fill=#d09440|title=[[Vltava'nın batı kıyısı]]}} {{Mapshape|wikidata=Q1502676|type=geoline|stroke=#AAAAAA|stroke-width=4|stroke-opacity=0.7}} == Görün == * Prag Kalesi * Karluv köprüsü === Müzeler === * Ulusal Müze * Franz Kafka müzesi === Saraylar === * Lobkowicz Sarayı === Diğer === * Prag Ulusal Galerisi == Sonraki == *[[Wrocław|Wrocław]], Polonya'nın otobüsle (5 saatte) ulaşılabilen güzel bir tarihi şehri. [[Kategori:Çek Cumhuriyeti]] kj3dq94a93beaocfzfdxk5kgatbzb8d 828 5084 17832 2026-10-21T16:39:15Z Nabbegat 2005 Vikiveri modülü 17832 Scribunto text/plain -- vim: set noexpandtab ft=lua ts=4 sw=4: require('strict') local p = {} local debug = false ------------------------------------------------------------------------------ -- module local variables and functions local wiki = { langcode = mw.language.getContentLanguage().code } -- internationalisation local i18n = { ["errors"] = { ["property-not-found"] = "Property not found.", ["entity-not-found"] = "Wikidata entity not found.", ["unknown-claim-type"] = "Unknown claim type.", ["unknown-entity-type"] = "Unknown entity type.", ["qualifier-not-found"] = "Qualifier not found.", ["site-not-found"] = "Wikimedia project not found.", ["unknown-datetime-format"] = "Unknown datetime format.", ["local-article-not-found"] = "Article is not yet available in this wiki." }, ["datetime"] = { -- $1 is a placeholder for the actual number [0] = "$1 billion years", -- precision: billion years [1] = "$100 million years", -- precision: hundred million years [2] = "$10 million years", -- precision: ten million years [3] = "$1 million years", -- precision: million years [4] = "$100,000 years", -- precision: hundred thousand years [5] = "$10,000 years", -- precision: ten thousand years [6] = "$1 millennium", -- precision: millennium [7] = "$1 century", -- precision: century [8] = "$1s", -- precision: decade -- the following use the format of #time parser function [9] = "Y", -- precision: year, [10] = "F Y", -- precision: month [11] = "F j, Y", -- precision: day [12] = "F j, Y ga", -- precision: hour [13] = "F j, Y g:ia", -- precision: minute [14] = "F j, Y g:i:sa", -- precision: second ["beforenow"] = "$1 BCE", -- how to format negative numbers for precisions 0 to 5 ["afternow"] = "$1 CE", -- how to format positive numbers for precisions 0 to 5 ["bc"] = '$1 "BCE"', -- how print negative years ["ad"] = "$1", -- how print positive years -- the following are for function getDateValue() and getQualifierDateValue() ["default-format"] = "dmy", -- default value of the #3 (getDateValue) or -- #4 (getQualifierDateValue) argument ["default-addon"] = "BC", -- default value of the #4 (getDateValue) or -- #5 (getQualifierDateValue) argument ["prefix-addon"] = false, -- set to true for languages put "BC" in front of the -- datetime string; or the addon will be suffixed ["addon-sep"] = " ", -- separator between datetime string and addon (or inverse) ["format"] = -- options of the 3rd argument { ["mdy"] = "F j, Y", ["my"] = "F Y", ["y"] = "Y", ["dmy"] = "j F Y", ["ymd"] = "Y-m-d", ["ym"] = "Y-m" } }, ["monolingualtext"] = '<span lang="%language">%text</span>', ["warnDump"] = "[[Category:Called function 'Dump' from module Wikidata]]", ["ordinal"] = { [1] = "st", [2] = "nd", [3] = "rd", ["default"] = "th" } } -- Credit to http://stackoverflow.com/a/1283608/2644759 -- cc-by-sa 3.0 local function tableMerge(t1, t2) for k,v in pairs(t2) do if type(v) == "table" then if type(t1[k] or false) == "table" then tableMerge(t1[k] or {}, t2[k] or {}) else t1[k] = v end else t1[k] = v end end return t1 end local function loadI18n() local exist, res = pcall(require, "Module:Wikidata/i18n") if exist and next(res) ~= nil then tableMerge(i18n, res.i18n) end end -- Function below not needed at the moment -- loadI18n() -- this function needs to be internationalised along with the above: -- takes cardinal numer as a numeric and returns the ordinal as a string -- we need three exceptions in English for 1st, 2nd, 3rd, 21st, .. 31st, etc. local function makeOrdinal (cardinal) local ordsuffix = i18n.ordinal.default if cardinal % 10 == 1 then ordsuffix = i18n.ordinal[1] elseif cardinal % 10 == 2 then ordsuffix = i18n.ordinal[2] elseif cardinal % 10 == 3 then ordsuffix = i18n.ordinal[3] end -- In English, 1, 21, 31, etc. use 'st', but 11, 111, etc. use 'th' -- similarly for 12 and 13, etc. if (cardinal % 100 == 11) or (cardinal % 100 == 12) or (cardinal % 100 == 13) then ordsuffix = i18n.ordinal.default end return tostring(cardinal) .. ordsuffix end local function printError(code) return '<span class="error">' .. (i18n.errors[code] or code) .. '</span>' end local function parseDateValue(timestamp, date_format, date_addon) local prefix_addon = i18n["datetime"]["prefix-addon"] local addon_sep = i18n["datetime"]["addon-sep"] local addon = "" -- check for negative date if string.sub(timestamp, 1, 1) == '-' then timestamp = '+' .. string.sub(timestamp, 2) addon = date_addon end local function d(f) local year_suffix local tstr = "" local lang_obj = mw.language.new(wiki.langcode) local f_parts = mw.text.split(f, 'Y', true) for idx, f_part in pairs(f_parts) do year_suffix = '' if string.match(f_part, "x[mijkot]$") then -- for non-Gregorian year f_part = f_part .. 'Y' elseif idx < #f_parts then -- supress leading zeros in year year_suffix = lang_obj:formatDate('Y', timestamp) year_suffix = string.gsub(year_suffix, '^0+', '', 1) end tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix end if addon ~= "" and prefix_addon then return addon .. addon_sep .. tstr elseif addon ~= "" then return tstr .. addon_sep .. addon else return tstr end end local _date_format = i18n["datetime"]["format"][date_format] if _date_format ~= nil then return d(_date_format) else return printError("unknown-datetime-format") end end -- This local function combines the year/month/day/BC/BCE handling of parseDateValue{} -- with the millennium/century/decade handling of formatDate() local function parseDateFull(timestamp, precision, date_format, date_addon) local prefix_addon = i18n["datetime"]["prefix-addon"] local addon_sep = i18n["datetime"]["addon-sep"] local addon = "" -- check for negative date if string.sub(timestamp, 1, 1) == '-' then timestamp = '+' .. string.sub(timestamp, 2) addon = date_addon end -- get the next four characters after the + (should be the year now in all cases) -- ok, so this is dirty, but let's get it working first local intyear = tonumber(string.sub(timestamp, 2, 5)) if intyear == 0 and precision <= 9 then return "" end -- precision is 10000 years or more if precision <= 5 then local factor = 10 ^ ((5 - precision) + 4) local y2 = math.ceil(math.abs(intyear) / factor) local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2)) if addon ~= "" then -- negative date relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative) else relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative) end return relative end -- precision is decades (8), centuries (7) and millennia (6) local era, card if precision == 6 then card = math.floor((intyear - 1) / 1000) + 1 era = mw.ustring.gsub(i18n.datetime[6], "$1", makeOrdinal(card)) end if precision == 7 then card = math.floor((intyear - 1) / 100) + 1 era = mw.ustring.gsub(i18n.datetime[7], "$1", makeOrdinal(card)) end if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(intyear) / 10) * 10)) end if era then if addon ~= "" then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era) else era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era) end return era end local _date_format = i18n["datetime"]["format"][date_format] if _date_format ~= nil then -- check for precision is year and override supplied date_format if precision == 9 then _date_format = i18n["datetime"][9] end local year_suffix local tstr = "" local lang_obj = mw.language.new(wiki.langcode) local f_parts = mw.text.split(_date_format, 'Y', true) for idx, f_part in pairs(f_parts) do year_suffix = '' if string.match(f_part, "x[mijkot]$") then -- for non-Gregorian year f_part = f_part .. 'Y' elseif idx < #f_parts then -- supress leading zeros in year year_suffix = lang_obj:formatDate('Y', timestamp) year_suffix = string.gsub(year_suffix, '^0+', '', 1) end tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix end local fdate if addon ~= "" and prefix_addon then fdate = addon .. addon_sep .. tstr elseif addon ~= "" then fdate = tstr .. addon_sep .. addon else fdate = tstr end return fdate else return printError("unknown-datetime-format") end end -- the "qualifiers" and "snaks" field have a respective "qualifiers-order" and "snaks-order" field -- use these as the second parameter and this function instead of the built-in "pairs" function -- to iterate over all qualifiers and snaks in the intended order. local function orderedpairs(array, order) if not order then return pairs(array) end -- return iterator function local i = 0 return function() i = i + 1 if order[i] then return order[i], array[order[i]] end end end -- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second local function normalizeDate(date) date = mw.text.trim(date, "+") -- extract year local yearstr = mw.ustring.match(date, "^\-?%d+") local year = tonumber(yearstr) -- remove leading zeros of year return year .. mw.ustring.sub(date, #yearstr + 1), year end local function formatDate(date, precision, timezone) precision = precision or 11 local date, year = normalizeDate(date) if year == 0 and precision <= 9 then return "" end -- precision is 10000 years or more if precision <= 5 then local factor = 10 ^ ((5 - precision) + 4) local y2 = math.ceil(math.abs(year) / factor) local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2)) if year < 0 then relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative) else relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative) end return relative end -- precision is decades, centuries and millennia local era if precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) end if precision == 7 then era = mw.ustring.gsub(i18n.datetime[7], "$1", tostring(math.floor((math.abs(year) - 1) / 100) + 1)) end if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(year) / 10) * 10)) end if era then if year < 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era) elseif year > 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era) end return era end -- precision is year if precision == 9 then return year end -- precision is less than years if precision > 9 then --[[ the following code replaces the UTC suffix with the given negated timezone to convert the global time to the given local time timezone = tonumber(timezone) if timezone and timezone ~= 0 then timezone = -timezone timezone = string.format("%.2d%.2d", timezone / 60, timezone % 60) if timezone[1] ~= '-' then timezone = "+" .. timezone end date = mw.text.trim(date, "Z") .. " " .. timezone end ]]-- local formatstr = i18n.datetime[precision] if year == 0 then formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], "") elseif year < 0 then -- Mediawiki formatDate doesn't support negative years date = mw.ustring.sub(date, 2) formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.bc, "$1", i18n.datetime[9])) elseif year > 0 and i18n.datetime.ad ~= "$1" then formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.ad, "$1", i18n.datetime[9])) end return mw.language.new(wiki.langcode):formatDate(formatstr, date) end end local function printDatavalueEntity(data, parameter) -- data fields: entity-type [string], numeric-id [int, Wikidata id] local id if data["entity-type"] == "item" then id = "Q" .. data["numeric-id"] elseif data["entity-type"] == "property" then id = "P" .. data["numeric-id"] else return printError("unknown-entity-type") end if parameter then if parameter == "link" then local linkTarget = mw.wikibase.sitelink(id) local linkName = mw.wikibase.label(id) if linkTarget then -- if there is a local Wikipedia article link to it using the label or the article title return "[[" .. linkTarget .. "|" .. (linkName or linkTarget) .. "]]" else -- if there is no local Wikipedia article output the label or link to the Wikidata object to let the user input a proper label if linkName then return linkName else return "[[:d:" .. id .. "|" .. id .. "]]" end end else return data[parameter] end else return mw.wikibase.label(id) or id end end local function printDatavalueTime(data, parameter) -- data fields: time [ISO 8601 time], timezone [int in minutes], before [int], after [int], precision [int], calendarmodel [wikidata URI] -- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second -- calendarmodel: e.g. http://www.wikidata.org/entity/Q1985727 for the proleptic Gregorian calendar or http://www.wikidata.org/wiki/Q11184 for the Julian calendar] if parameter then if parameter == "calendarmodel" then data.calendarmodel = mw.ustring.match(data.calendarmodel, "Q%d+") -- extract entity id from the calendar model URI elseif parameter == "time" then data.time = normalizeDate(data.time) end return data[parameter] else return formatDate(data.time, data.precision, data.timezone) end end local function printDatavalueMonolingualText(data, parameter) -- data fields: language [string], text [string] if parameter then return data[parameter] else local result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, "%%language", data["language"]), "%%text", data["text"]) return result end end local function findClaims(entity, property) if not property or not entity or not entity.claims then return end if mw.ustring.match(property, "^P%d+$") then -- if the property is given by an id (P..) access the claim list by this id return entity.claims[property] else property = mw.wikibase.resolvePropertyId(property) if not property then return end return entity.claims[property] end end local function getSnakValue(snak, parameter) if snak.snaktype == "value" then -- call the respective snak parser if snak.datavalue.type == "string" then return snak.datavalue.value elseif snak.datavalue.type == "globecoordinate" then return printDatavalueCoordinate(snak.datavalue.value, parameter) elseif snak.datavalue.type == "quantity" then return printDatavalueQuantity(snak.datavalue.value, parameter) elseif snak.datavalue.type == "time" then return printDatavalueTime(snak.datavalue.value, parameter) elseif snak.datavalue.type == "wikibase-entityid" then return printDatavalueEntity(snak.datavalue.value, parameter) elseif snak.datavalue.type == "monolingualtext" then return printDatavalueMonolingualText(snak.datavalue.value, parameter) end end return mw.wikibase.renderSnak(snak) end local function getQualifierSnak(claim, qualifierId) -- a "snak" is Wikidata terminology for a typed key/value pair -- a claim consists of a main snak holding the main information of this claim, -- as well as a list of attribute snaks and a list of references snaks if qualifierId then -- search the attribute snak with the given qualifier as key if claim.qualifiers then local qualifier = claim.qualifiers[qualifierId] if qualifier then return qualifier[1] end end return nil, printError("qualifier-not-found") else -- otherwise return the main snak return claim.mainsnak end end local function getValueOfClaim(claim, qualifierId, parameter) local error local snak snak, error = getQualifierSnak(claim, qualifierId) if snak then return getSnakValue(snak, parameter) else return nil, error end end local function getReferences(frame, claim) local result = "" -- traverse through all references for ref in pairs(claim.references or {}) do local refparts -- traverse through all parts of the current reference for snakkey, snakval in orderedpairs(claim.references[ref].snaks or {}, claim.references[ref]["snaks-order"]) do if refparts then refparts = refparts .. ", " else refparts = "" end -- output the label of the property of the reference part, e.g. "imported from" for P143 refparts = refparts .. tostring(mw.wikibase.label(snakkey)) .. ": " -- output all values of this reference part, e.g. "German Wikipedia" and "English Wikipedia" if the referenced claim was imported from both sites for snakidx = 1, #snakval do if snakidx > 1 then refparts = refparts .. ", " end refparts = refparts .. getSnakValue(snakval[snakidx]) end end if refparts then result = result .. frame:extensionTag("ref", refparts) end end return result end ------------------------------------------------------------------------------ -- module global functions if debug then function p.inspectI18n(frame) local val = i18n for _, key in pairs(frame.args) do key = mw.text.trim(key) val = val[key] end return val end end function p.descriptionIn(frame) local langcode = frame.args[1] local id = frame.args[2] -- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration -- return description of a Wikidata entity in the given language or the default language of this Wikipedia site return mw.wikibase.getEntityObject(id).descriptions[langcode or wiki.langcode].value end function p.labelIn(frame) local langcode = frame.args[1] local id = frame.args[2] -- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration -- return label of a Wikidata entity in the given language or the default language of this Wikipedia site return mw.wikibase.getEntityObject(id).labels[langcode or wiki.langcode].value end -- This is used to get a value, or a comma separated list of them if multiple values exist p.getValue = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local input_parm = mw.text.trim(frame.args[2] or "") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() local claims if entity and entity.claims then claims = entity.claims[propertyID] end if claims then -- if wiki-linked value output as link if possible if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then local out = {} for k, v in pairs(claims) do local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"]) local label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"]) if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end if sitelink then out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]" else out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>" end end return table.concat(out, ", ") else -- just return best values return entity:formatPropertyValues(propertyID).value end else return "" end else return input_parm end end -- Same as above, but uses the short name property for label if available. p.getValueShortName = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local input_parm = mw.text.trim(frame.args[2] or "") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() local claims if entity and entity.claims then claims = entity.claims[propertyID] end if claims then -- if wiki-linked value output as link if possible if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then local out = {} for k, v in pairs(claims) do local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"]) local label local claimEntity = mw.wikibase.getEntity("Q" .. v.mainsnak.datavalue.value["numeric-id"]) if claimEntity ~= nil then if claimEntity.claims.P1813 then for k2, v2 in pairs(claimEntity.claims.P1813) do if v2.mainsnak.datavalue.value.language == "en" then label = v2.mainsnak.datavalue.value.text end end end end if label == nil or label == "" then label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"]) end if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end if sitelink then out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]" else out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>" end end return table.concat(out, ", ") else -- just return best values return entity:formatPropertyValues(propertyID).value end else return "" end else return input_parm end end -- This is used to get a value, or a comma separated list of them if multiple values exist -- from an arbitrary entry by using its QID. -- Use : {{#invoke:Wikidata|getValueFromID|<ID>|<Property>|FETCH_WIKIDATA}} -- E.g.: {{#invoke:Wikidata|getValueFromID|Q151973|P26|FETCH_WIKIDATA}} - to fetch value of 'spouse' (P26) from 'Richard Burton' (Q151973) -- Please use sparingly - this is an *expensive call*. p.getValueFromID = function(frame) local itemID = mw.text.trim(frame.args[1] or "") local propertyID = mw.text.trim(frame.args[2] or "") local input_parm = mw.text.trim(frame.args[3] or "") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntity(itemID) local claims = entity.claims[propertyID] if claims then -- if wiki-linked value output as link if possible if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then local out = {} for k, v in pairs(claims) do local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"]) local label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"]) if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end if sitelink then out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]" else out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>" end end return table.concat(out, ", ") else return entity:formatPropertyValues(propertyID).value end else return "" end else return input_parm end end p.getQualifierValue = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local qualifierID = mw.text.trim(frame.args[2] or "") local input_parm = mw.text.trim(frame.args[3] or "") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() if entity.claims[propertyID] ~= nil then local out = {} for k, v in pairs(entity.claims[propertyID]) do for k2, v2 in pairs(v.qualifiers[qualifierID]) do if v2.snaktype == 'value' then if (mw.wikibase.sitelink("Q" .. v2.datavalue.value["numeric-id"])) then out[#out + 1] = "[[" .. mw.wikibase.sitelink("Q" .. v2.datavalue.value["numeric-id"]) .. "]]" else out[#out + 1] = "[[:d:Q" .. v2.datavalue.value["numeric-id"] .. "|" .. mw.wikibase.label("Q" .. v2.datavalue.value["numeric-id"]) .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>" end end end end return table.concat(out, ", ") else return "" end else return input_parm end end -- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separators p.getRawValue = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local input_parm = mw.text.trim(frame.args[2] or "") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() local claims if entity and entity.claims then claims = entity.claims[propertyID] end if claims then local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value -- if number type: remove thousand separators, bounds and units if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then result = mw.ustring.gsub(result, "(%d),(%d)", "%1%2") result = mw.ustring.gsub(result, "(%d)±.*", "%1") end return result else return "" end else return input_parm end end -- This is used to get the unit name for the numeric value returned by getRawValue p.getUnits = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local input_parm = mw.text.trim(frame.args[2] or "") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() local claims if entity and entity.claims then claims = entity.claims[propertyID] end if claims then local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then result = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1) end return result else return "" end else return input_parm end end -- This is used to get the unit's QID to use with the numeric value returned by getRawValue p.getUnitID = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local input_parm = mw.text.trim(frame.args[2] or "") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() local claims if entity and entity.claims then claims = entity.claims[propertyID] end if claims then local result if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then -- get the url for the unit entry on Wikidata: result = claims[1].mainsnak.datavalue.value.unit -- and just reurn the last bit from "Q" to the end (which is the QID): result = mw.ustring.sub(result, mw.ustring.find(result, "Q"), -1) end return result else return "" end else return input_parm end end p.getRawQualifierValue = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local qualifierID = mw.text.trim(frame.args[2] or "") local input_parm = mw.text.trim(frame.args[3] or "") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() if entity.claims[propertyID] ~= nil then local out = {} for k, v in pairs(entity.claims[propertyID]) do for k2, v2 in pairs(v.qualifiers[qualifierID]) do if v2.snaktype == 'value' then if v2.datavalue.value["numeric-id"] then out[#out + 1] = mw.wikibase.label("Q" .. v2.datavalue.value["numeric-id"]) else out[#out + 1] = v2.datavalue.value end end end end local ret = table.concat(out, ", ") return string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2) else return "" end else return input_parm end end -- This is used to get a date value for date_of_birth (P569), etc. which won't be linked -- Dates and times are stored in ISO 8601 format (sort of). -- At present the local formatDate(date, precision, timezone) function doesn't handle timezone -- So I'll just supply "Z" in the call to formatDate below: p.getDateValue = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local input_parm = mw.text.trim(frame.args[2] or "") local date_format = mw.text.trim(frame.args[3] or i18n["datetime"]["default-format"]) local date_addon = mw.text.trim(frame.args[4] or i18n["datetime"]["default-addon"]) if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() if entity.claims[propertyID] ~= nil then local out = {} for k, v in pairs(entity.claims[propertyID]) do if v.mainsnak.datavalue.type == 'time' then local timestamp = v.mainsnak.datavalue.value.time local dateprecision = v.mainsnak.datavalue.value.precision out[#out + 1] = parseDateFull(timestamp, dateprecision, date_format, date_addon) end end return table.concat(out, ", ") else return "" end else return input_parm end end p.getQualifierDateValue = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local qualifierID = mw.text.trim(frame.args[2] or "") local input_parm = mw.text.trim(frame.args[3] or "") local date_format = mw.text.trim(frame.args[4] or i18n["datetime"]["default-format"]) local date_addon = mw.text.trim(frame.args[5] or i18n["datetime"]["default-addon"]) if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() if entity.claims[propertyID] ~= nil then local out = {} for k, v in pairs(entity.claims[propertyID]) do for k2, v2 in pairs(v.qualifiers[qualifierID]) do if v2.snaktype == 'value' then local timestamp = v2.datavalue.value.time out[#out + 1] = parseDateValue(timestamp, date_format, date_addon) end end end return table.concat(out, ", ") else return "" end else return input_parm end end -- This is used to fetch all of the images with a particular property, e.g. image (P18), Gene Atlas Image (P692), etc. -- Parameters are | propertyID | value / FETCH_WIKIDATA / nil | separator (default=space) | size (default=frameless) -- It will return a standard wiki-markup [[File:Filename | size]] for each image with a selectable size and separator (which may be html) -- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA}} -- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA|<br>|250px}} -- If a property is chosen that is not of type "commonsMedia", it will return empty text. p.getImages = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local input_parm = mw.text.trim(frame.args[2] or "") local sep = mw.text.trim(frame.args[3] or " ") local imgsize = mw.text.trim(frame.args[4] or "frameless") if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject() local claims if entity and entity.claims then claims = entity.claims[propertyID] end if claims then if (claims[1] and claims[1].mainsnak.datatype == "commonsMedia") then local out = {} for k, v in pairs(claims) do local filename = v.mainsnak.datavalue.value out[#out + 1] = "[[File:" .. filename .. "|" .. imgsize .. "]]" end return table.concat(out, sep) else return "" end else return "" end else return input_parm end end -- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323) -- which are then linked to http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/01.1.00.005%20Entity%20TA98%20EN.htm -- uses the newer mw.wikibase calls instead of directly using the snaks -- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return string p.getTAValue = function(frame) local ent = mw.wikibase.getEntityObject() local props = ent:formatPropertyValues('P1323') local out = {} local t = {} for k, v in pairs(props) do if k == 'value' then t = mw.text.split( v, ", ") for k2, v2 in pairs(t) do out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]" end end end local ret = table.concat(out, "<br> ") if #ret == 0 then ret = "Invalid TA" end return ret end --[[ This is used to return an image legend from Wikidata image is property P18 image legend is property P2096 Call as {{#invoke:Wikidata |getImageLegend | <PARAMETER> | lang=<ISO-639code> |id=<QID>}} Returns PARAMETER, unless it is equal to "FETCH_WIKIDATA", from Item QID (expensive call) If QID is omitted or blank, the current article is used (not an expensive call) If lang is omitted, it uses the local wiki language, otherwise it uses the provided ISO-639 language code ISO-639: https://docs.oracle.com/cd/E13214_01/wli/docs92/xref/xqisocodes.html#wp1252447 Ranks are: 'preferred' > 'normal' This returns the label from the first image with 'preferred' rank Or the label from the first image with 'normal' rank if preferred returns nothing Ranks: https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua ]] p.getImageLegend = function(frame) -- look for named parameter id; if it's blank make it nil local id = frame.args.id if id and (#id == 0) then id = nil end -- look for named parameter lang -- it should contain a two-character ISO-639 language code -- if it's blank fetch the language of the local wiki local lang = frame.args.lang if (not lang) or (#lang < 2) then lang = mw.language.getContentLanguage().code end -- first unnamed parameter is the local parameter, if supplied local input_parm = mw.text.trim(frame.args[1] or "") if input_parm == "FETCH_WIKIDATA" then local ent = mw.wikibase.getEntityObject(id) local imgs if ent and ent.claims then imgs = ent.claims.P18 end local imglbl if imgs then -- look for an image with 'preferred' rank for k1, v1 in pairs(imgs) do if v1.rank == "preferred" and v1.qualifiers and v1.qualifiers.P2096 then local imglbls = v1.qualifiers.P2096 for k2, v2 in pairs(imglbls) do if v2.datavalue.value.language == lang then imglbl = v2.datavalue.value.text break end end end end -- if we don't find one, look for an image with 'normal' rank if (not imglbl) then for k1, v1 in pairs(imgs) do if v1.rank == "normal" and v1.qualifiers and v1.qualifiers.P2096 then local imglbls = v1.qualifiers.P2096 for k2, v2 in pairs(imglbls) do if v2.datavalue.value.language == lang then imglbl = v2.datavalue.value.text break end end end end end end return imglbl else return input_parm end end -- This is used to get the QIDs of all of the values of a property, as a comma separated list if multiple values exist -- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |FETCH_WIKIDATA}} -- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |<InputParameter> |qid=<QID>}} p.getPropertyIDs = function(frame) local propertyID = mw.text.trim(frame.args[1] or "") local input_parm = mw.text.trim(frame.args[2] or "") -- can take a named parameter |qid which is the Wikidata ID for the article. This will not normally be used. local qid = frame.args.qid if qid and (#qid == 0) then qid = nil end if input_parm == "FETCH_WIKIDATA" then local entity = mw.wikibase.getEntityObject(qid) local propclaims if entity and entity.claims then propclaims = entity.claims[propertyID] end if propclaims then -- if wiki-linked value collect the QID in a table if (propclaims[1] and propclaims[1].mainsnak.snaktype == "value" and propclaims[1].mainsnak.datavalue.type == "wikibase-entityid") then local out = {} for k, v in pairs(propclaims) do out[#out + 1] = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end return table.concat(out, ", ") else -- not a wikibase-entityid, so return empty return "" end else -- no claim, so return empty return "" end else return input_parm end end -- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata function p.pageId(frame) local entity = mw.wikibase.getEntityObject() if not entity then return nil else return entity.id end end function p.claim(frame) local property = frame.args[1] or "" local id = frame.args["id"] -- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration local qualifierId = frame.args["qualifier"] local parameter = frame.args["parameter"] local list = frame.args["list"] local references = frame.args["references"] local showerrors = frame.args["showerrors"] local default = frame.args["default"] if default then showerrors = nil end -- get wikidata entity local entity = mw.wikibase.getEntityObject(id) if not entity then if showerrors then return printError("entity-not-found") else return default end end -- fetch the first claim of satisfying the given property local claims = findClaims(entity, property) if not claims or not claims[1] then if showerrors then return printError("property-not-found") else return default end end -- get initial sort indices local sortindices = {} for idx in pairs(claims) do sortindices[#sortindices + 1] = idx end -- sort by claim rank local comparator = function(a, b) local rankmap = { deprecated = 2, normal = 1, preferred = 0 } local ranka = rankmap[claims[a].rank or "normal"] .. string.format("%08d", a) local rankb = rankmap[claims[b].rank or "normal"] .. string.format("%08d", b) return ranka < rankb end table.sort(sortindices, comparator) local result local error if list then local value -- iterate over all elements and return their value (if existing) result = {} for idx in pairs(claims) do local claim = claims[sortindices[idx]] value, error = getValueOfClaim(claim, qualifierId, parameter) if not value and showerrors then value = error end if value and references then value = value .. getReferences(frame, claim) end result[#result + 1] = value end result = table.concat(result, list) else -- return first element local claim = claims[sortindices[1]] result, error = getValueOfClaim(claim, qualifierId, parameter) if result and references then result = result .. getReferences(frame, claim) end end if result then return result else if showerrors then return error else return default end end end -- look into entity object function p.ViewSomething(frame) local f = (frame.args[1] or frame.args.id) and frame or frame:getParent() local id = f.args.id if id and (#id == 0) then id = nil end local data = mw.wikibase.getEntityObject(id) if not data then return nil end local i = 1 while true do local index = f.args[i] if not index then if type(data) == "table" then return mw.text.jsonEncode(data, mw.text.JSON_PRESERVE_KEYS + mw.text.JSON_PRETTY) else return tostring(data) end end data = data[index] or data[tonumber(index)] if not data then return end i = i + 1 end end -- getting sitelink of a given wiki function p.getSiteLink(frame) local qid = frame.args.qid if qid == "" then qid = nil end local f = mw.text.trim( frame.args[1] or "") local entity = mw.wikibase.getEntity(qid) if not entity then return end local link = entity:getSitelink( f ) if not link then return end return link end function p.Dump(frame) local f = (frame.args[1] or frame.args.id) and frame or frame:getParent() local data = mw.wikibase.getEntityObject(f.args.id) if not data then return i18n.warnDump end local i = 1 while true do local index = f.args[i] if not index then return "<pre>"..mw.dumpObject(data).."</pre>".. i18n.warnDump end data = data[index] or data[tonumber(index)] if not data then return i18n.warnDump end i = i + 1 end end return p dzstenow235va4ma4cgz71lqv3iwi0y 10 5085 17834 2026-10-21T16:47:34Z Nabbegat 2005 css 17834 sanitized-css text/css .wv-staticMap { position: relative; left: -3px; margin-top: 3px; } 0plkpzvu1aazd18t5f238za5wtojr49 10 5086 17837 2026-10-21T17:04:50Z Nabbegat 2005 şablon 17837 wikitext text/x-wiki <includeonly>{{#invoke: map | tag | type = maplink | zoom = {{{zoom|auto}}} | show = {{{show | {{maplayers}} }}} | latitude = {{{1|}}} | longitude = {{{2|}}} | text = {{{name|}}} | class = {{{class|}}} }}</includeonly><noinclude>{{documentation}}</noinclude> glf6lx93aukyglvuhexn20davno1kpt 17841 17837 2026-10-21T17:38:47Z Nabbegat 2005 17841 wikitext text/x-wiki <includeonly>{{#invoke: map | tag | type = maplink | zoom = {{{zoom|auto}}} | show = {{{show | {{Haritakatmanı}} }}} | latitude = {{{1|}}} | longitude = {{{2|}}} | text = {{{name|}}} | class = {{{class|}}} }}</includeonly><noinclude>{{documentation}}</noinclude> 7o49w2t0fwz18ql2qz2zszk2ex0rqu2