Moduuli:Fr:Infobox/haploryhmä

Haploryhmä N

Mahdollinen syntymäalue	Itä-Afrikka, Euraasia
Edeltävä haploryhmä	L3
Seuraavat haploryhmät	A, O, R, S, X, N9, N2 ja&#32 N1'5
Määrittelevät mutaatiot	G8701A, C9540T, G10398A, C10873T, A15301G!

---

local infobox = require "Module:Fr:Infobox/Fonctions"
local wikidata = require "Module:Fr:Interface Wikidata".fromLua
local localdata = require "Module:Fr:Infobox/Localdata"


-- Muutetaan haploryhmien otsikot lyhyiksi: "Haploryhmä A -> A"
local function format_haplogroup_label(prop)
	local val=wikidata.formatStatements{entity = localdata.item, property=prop,defaultlink="-",showgroupedsource=true }
	
	if val then
		-- Tekstit jotka ovat linkkejä
		val=mw.ustring.gsub(val, "%|Haploryhmä ","|")
		
		-- Tekstit jotka eivät ole linkkejä
		val=mw.ustring.gsub(val, "[^[]Haploryhmä "," ")
	end
	
	return val
end

return {
	maincolor = '#B2DFB2',
	parts = {
		infobox.title(),
		infobox.mainimage(),
		{
			type	= 'table',
			rows	= {
				{
					type		= 'row',
					label		= 'Mahdollinen syntymäalue', 
					value		= 'syntymäpaikka',
					wikidata	= { property = "P19", defaultlink='red', showsource=true }
				},
				{
					type		= 'row',
					label		= 'Mahdollinen syntymäaika', 
					value		= 'syntymäaika',
					wikidata	= { property = "P569", defaultlink='red', showsource=true }
				},			
				{
					type		= 'row',
					label		= 'Edeltävä haploryhmä', 
					value		= 'edeltäjä',
					wikidata	= function () return format_haplogroup_label("P155") end
				},			
				{
					type		= 'row',
					label		= 'Seuraavat haploryhmät', 
					value		= 'seuraava',
					wikidata	=  function () return format_haplogroup_label("P156") end 
				},	
				{
					type		= 'row',
					label		= 'Määrittelevät mutaatiot', 
					value		= 'mutaatiot',
					wikidata	= { property = "P527", defaultlink='-', showgroupedsource=true}
				}
				
			}
		},
		{
			type = 'images',
			imageparameters =  {'flag'},
			wikidata = {property = {'P242'}},
			defaultupright = '1',
			numval = 1,
		}
	}
}