Modul:Taxonbox2 - Laptörténet

Dr. Gyúró Zoltán, 2026. június 6., 12:14-n

2026-06-06T12:14:29Z

← Régebbi változat		A lap 2026. június 6., 12:14-kori változata
331. sor:		331. sor:

	-- Kategória hivatkozás és név kijelzés formázása rang szerint		-- Kategória hivatkozás és név kijelzés formázása rang szerint
			-- Kategória vagy sima szócikk hivatkozás rang szerint
	if item.rank == "Faj" then		if item.rank == "Faj" then
	-- ~~A faj kapjon kategórialinket és legyen~~ dőlt		-- Sima szócikk link (Kategória: nélkül), dőlt névvel
	name_display = "[[~~:Kategória:~~" .. clean_plain .. "\|" .. clean_formatted .. "]]"		name_display = "[[" .. clean_plain .. "\|" .. clean_formatted .. "]]"

			elseif item.rank == "Alfaj" or item.rank == "Változat" or item.rank == "Forma" then
			-- Sima szócikk link, ahol a subsp./var. álló, a nevek dőltek
			name_display = "[[" .. clean_plain .. "\|" .. clean_formatted .. "]]"

	elseif item.rank == "Nemzetség" then		elseif item.rank == "Nemzetség" then
	-- ~~A nemzetség~~ linken ~~belüli része~~ dőlt		-- Nemzetségnél marad a Kategória link, linken belül dőlt névvel
	name_display = "[[:Kategória:" .. clean_plain .. "\|''" .. clean_plain .. "'']]"		name_display = "[[:Kategória:" .. clean_plain .. "\|''" .. clean_plain .. "'']]"

	~~elseif item.rank == "Alfaj" or item.rank == "Változat" or item.rank == "Forma" then~~
	~~-- Az infraspecifikus rangoknál a clean_formatted-et használjuk a link látható részeként,~~
	~~-- így a subsp. / var. álló marad, a nevek pedig dőltek lesznek a linken belül!~~
	~~name_display = "[[:Kategória:" .. clean_plain .. "\|" .. clean_formatted .. "]]"~~

	else		else
	-- Minden magasabb rang (Család, Klád, Rend, Domén stb.) álló ~~marad~~		-- Minden magasabb rang (Család, Klád, Rend, Domén stb.) Kategória link, álló névvel
	name_display = "[[:Kategória:" .. clean_plain .. "\|" .. clean_plain .. "]]"		name_display = "[[:Kategória:" .. clean_plain .. "\|" .. clean_plain .. "]]"
	end		end

Dr. Gyúró Zoltán, 2026. június 6., 12:11-n

2026-06-06T12:11:22Z

Változtatások megtekintése

Dr. Gyúró Zoltán, 2026. március 15., 00:25-n

2026-03-15T00:25:30Z

Változtatások megtekintése

Dr. Gyúró Zoltán, 2026. március 14., 17:03-n

2026-03-14T17:03:18Z

← Régebbi változat		A lap 2026. március 14., 17:03-kori változata
158. sor:		158. sor:
	for _, pattern in ipairs(endings) do		for _, pattern in ipairs(endings) do
	if raw_clean:match(pattern) then		if raw_clean:match(pattern) then
	return ~~"'''" ..~~ raw_clean ~~.. "'''"~~, raw_clean		return raw_clean, raw_clean
	end		end
	end		end

	-- Ha a végződés nem talált, nézzük a kládokat		-- Ha a végződés nem talált, nézzük a kládokat
	-- Ez is jó:		-- Ez is jó: if raw_clean == "Core Eudicots" or raw_clean == "Eudicots" or TaxonData[raw_clean] then
	-- if raw_clean == "Core Eudicots" or raw_clean == "Eudicots" or TaxonData[raw_clean] then
	if raw_clean:find("Eudicots") or TaxonData[raw_clean] then		if raw_clean:find("Eudicots") or TaxonData[raw_clean] then
			return raw_clean, raw_clean
			else
	return "''" .. raw_clean .. "''", raw_clean		return "''" .. raw_clean .. "''", raw_clean
	end		end

Dr. Gyúró Zoltán, 2026. március 14., 16:41-n

2026-03-14T16:41:39Z

← Régebbi változat		A lap 2026. március 14., 16:41-kori változata
152. sor:		152. sor:

	-- Speciális eset: Ha a név benne van az adatbázisban vagy fix kládnév		-- Speciális eset: Ha a név benne van az adatbázisban vagy fix kládnév
	if raw_clean == "Core Eudicots" or raw_clean == "Eudicots" or TaxonData[raw_clean] then		-- Automatikus rang-felismerés végződések alapján
	return "''" .. raw_clean .. "''", raw_clean		local endings = {"ales$", "aceae$", "oideae$", "eae$", "inae$"}

			if raw_clean then
			for _, pattern in ipairs(endings) do
			if raw_clean:match(pattern) then
			return "'''" .. raw_clean .. "'''", raw_clean
			end
			end

			-- Ha a végződés nem talált, nézzük a kládokat
			-- Ez is jó:
			-- if raw_clean == "Core Eudicots" or raw_clean == "Eudicots" or TaxonData[raw_clean] then
			if raw_clean:find("Eudicots") or TaxonData[raw_clean] then
			return "''" .. raw_clean .. "''", raw_clean
			end
	end		end

			-- 2. Infraspecifikus rangok (subsp., var., f.) kezelése
	local formatted = ""		local formatted = ""
	local plain = ""		local plain = ""

	~~-- 2. Infraspecifikus rangok (subsp., var., f.) kezelése~~
	local infra_ranks = {"subsp%.", "var%.", "f%."}		local infra_ranks = {"subsp%.", "var%.", "f%."}
	local rank_found_boo = false		local rank_found_boo = false

Dr. Gyúró Zoltán, 2026. március 14., 15:56-n

2026-03-14T15:56:03Z

← Régebbi változat		A lap 2026. március 14., 15:56-kori változata
153. sor:		153. sor:
	-- Speciális eset: Ha a név benne van az adatbázisban vagy fix kládnév		-- Speciális eset: Ha a név benne van az adatbázisban vagy fix kládnév
	if raw_clean == "Core Eudicots" or raw_clean == "Eudicots" or TaxonData[raw_clean] then		if raw_clean == "Core Eudicots" or raw_clean == "Eudicots" or TaxonData[raw_clean] then
	return "'''" .. raw_clean .. "'''", raw_clean		return "''" .. raw_clean .. "''", raw_clean
	end		end

Dr. Gyúró Zoltán, 2026. március 14., 15:21-n

2026-03-14T15:21:56Z

Változtatások megtekintése

Dr. Gyúró Zoltán, 2026. március 9., 09:35-n

2026-03-09T09:35:33Z

← Régebbi változat		A lap 2026. március 9., 09:35-kori változata
88. sor:		88. sor:
	-- var. (álló)		-- var. (álló)
	-- '''''epithet''''' (félkövér+dőlt)		-- '''''epithet''''' (félkövér+dőlt)
	return "'''''" .. g .. " " .. s .. "~~'''~~'' " .. r_found .. " ~~'''~~''" .. e .. "''''' " .. (rest or "") .. sec_formatted		return "'''''" .. g .. " " .. s .. "'' " .. r_found .. " ''" .. e .. "''''' " .. (rest or "") .. sec_formatted
	end		end
	end		end
505. sor:		505. sor:
	return {		return {
	args = {		args = {
			accepted = arg[1] or "Echinocereus sciurus subsp. floresii (Schwarz ex Backeb.) N.P.Taylor in Cactaceae Consensus Init. 3: 10. 1997 sec. Guzmán Cruz & al. 2003",
			synonym = arg[1] or "Echinocereus sciurus subsp. floresii (Schwarz ex Backeb.) N.P.Taylor in Cactaceae Consensus Init. 3: 10. 1997 sec. Guzmán Cruz & al. 2003",
	-- accepted = arg[1] or "Astrophytum coahuilense (H.Moeller) K.Kayser in Kakteen-Freund 1: 59. 1932. Sec. Vázquez-Lobo & al. (2015)",		-- accepted = arg[1] or "Astrophytum coahuilense (H.Moeller) K.Kayser in Kakteen-Freund 1: 59. 1932. Sec. Vázquez-Lobo & al. (2015)",
	-- synonym = arg[2] or "Astrophytum myriostigma var. coahuilense (H.Moeller) K.Kayser in Borg, Cacti, ed. 1: 251. 1937 syn. sec. Arias (2021)",		-- synonym = arg[2] or "Astrophytum myriostigma var. coahuilense (H.Moeller) K.Kayser in Borg, Cacti, ed. 1: 251. 1937 syn. sec. Arias (2021)",
	accepted = arg[1] or "Echinocereus ×roetteri (Engelm.) Engelm. ex Rümpler, Handb. Cacteenk., ed. 2, 2(16): 829. 1886. Sec. Hunt (2016)",		-- accepted = arg[1] or "Echinocereus ×roetteri (Engelm.) Engelm. ex Rümpler, Handb. Cacteenk., ed. 2, 2(16): 829. 1886. Sec. Hunt (2016)",
	synonym = arg[2] or "Echinocereus ×roetteri var. lloydii (Britton & Rose) Backeb., Cactaceae 4: 2027. 1960",		-- synonym = arg[2] or "Echinocereus ×roetteri var. lloydii (Britton & Rose) Backeb., Cactaceae 4: 2027. 1960",
	-- accepted = arg[1] or "Lophophora williamsii (Lem. ex Salm-Dyck) J.M.Coult. in Contr. U.S. Natl. Herb. 3(2): 131. 1894 sec. Parfitt & Gibson 2003",		-- accepted = arg[1] or "Lophophora williamsii (Lem. ex Salm-Dyck) J.M.Coult. in Contr. U.S. Natl. Herb. 3(2): 131. 1894 sec. Parfitt & Gibson 2003",
	-- synonym = arg[2] or "Lophophora alberto-vojtechii Šnicer, Bohata & Mysák, 2008",		-- synonym = arg[2] or "Lophophora alberto-vojtechii Šnicer, Bohata & Mysák, 2008",

Dr. Gyúró Zoltán, 2026. március 9., 09:25-n

2026-03-09T09:25:24Z

Változtatások megtekintése

Dr. Gyúró Zoltán, 2026. március 8., 21:27-n

2026-03-08T21:27:18Z

← Régebbi változat		A lap 2026. március 8., 21:27-kori változata
8. sor:		8. sor:
	local TaxonData = require('Modul:TaxonokData')		local TaxonData = require('Modul:TaxonokData')

			----------------------------------------------------------------------------------------------------------------
	-- Segédfüggvény: Kinyeri a nemzetség nevét a fajnévből		-- Segédfüggvény: Kinyeri a nemzetség nevét a fajnévből
	local function extract_genus(full_species_name)		local function extract_genus(full_species_name)
15. sor:		16. sor:
	end		end

			----------------------------------------------------------------------------------------------------------------
	-- Segédfüggvény: Dőlt betűs taxonnév alapformázása (szükséges a clean funkcióhoz is)		-- Segédfüggvény: Dőlt betűs taxonnév alapformázása (szükséges a clean funkcióhoz is)
	local function format_name(name)		local function format_name(name)
35. sor:		37. sor:
	end		end

			----------------------------------------------------------------------------------------------------------------
	-- Segédfüggvény: Teljes formázás rangokkal és sec. megjegyzésekkel (A FEJLÉCHEZ)		-- Segédfüggvény: Teljes formázás rangokkal és sec. megjegyzésekkel (A FEJLÉCHEZ)
	local function format_taxon_full(text, rank)		local function format_taxon_full(text, rank)
95. sor:		98. sor:

	-- 6. Binomiális név (Faj) vs. Monomiális név (Nemzetség + Szerző)		-- 6. Binomiális név (Faj) vs. Monomiális név (Nemzetség + Szerző)
	-- Logika: Ha a második szó kisbetűvel kezdődik, az faji jelző (species epithet) -> dőlt.		-- Logika: Ha a második szó kisbetűvel (vagy ×-el) kezdődik, az faji jelző (species epithet) -> dőlt.
	-- Ha nagybetűvel, zárójellel vagy ponttal kezdődik, az szerző -> nem dőlt.		-- Ha nagybetűvel, zárójellel vagy ponttal kezdődik, az szerző -> nem dőlt.
	local first, second, rest = main_part:match("^([%a%-]+)%s+([^%s]+)%s(.)$")		local first, hybrid, second, rest = main_part:match("^([%a%-]+)%s+(×?)([^%s]+)%s(.)$")

	if first and second then		if first and second then
103. sor:		106. sor:
	if second:match("^[a-z]") then		if second:match("^[a-z]") then
	-- Faj: '''''Genus species'''''		-- Faj: '''''Genus species'''''
	return "'''''" .. first .. " " .. second .. "''''' " .. (rest or "") .. sec_formatted		return "'''''" .. first .. " " .. hybrid .. second .. "''''' " .. (rest or "") .. sec_formatted
	else		else
	-- Nemzetség + Szerző: '''''Genus''''' Szerző		-- Nemzetség + Szerző: '''''Genus''''' Szerző
115. sor:		118. sor:
	end		end

			----------------------------------------------------------------------------------------------------------------
	-- Segédfüggvény: Csak a tiszta, dőlt nevet adja vissza sallangok nélkül (A TÁBLÁZATHOZ)		-- Segédfüggvény: Csak a tiszta, dőlt nevet adja vissza sallangok nélkül (A TÁBLÁZATHOZ)
	local function format_taxon_clean(text)		local function format_taxon_clean(text)
142. sor:		146. sor:
	for _, r in ipairs(infra_ranks) do		for _, r in ipairs(infra_ranks) do
	-- Minta: Genus species rank epithet		-- Minta: Genus species rank epithet
	local g, s, r_found, e = raw_clean:match("^([%a%-]+)%s+([%a%-]+)%s+("..r..")%s+([%a%-]+)")		local g, h, s, r_found, e = raw_clean:match("^([%a%-]+)%s+(×?)([%a%-]+)%s+("..r..")%s+([%a%-]+)")
	if g then		if g then
	formatted = "''" .. g .. " " .. s .. "'' " .. r_found .. " ''" .. e .. "''"		formatted = "''" .. g .. " " .. h .. s .. "'' " .. r_found .. " ''" .. e .. "''"
	plain = g .. " " .. s .. " " .. r_found .. " " .. e		plain = g .. " " .. h .. s .. " " .. r_found .. " " .. e
	found = true		found = true
	break		break
154. sor:		158. sor:
	if not found then		if not found then
	-- Két szót és a maradékot keressük (nem tesszük kisbetűssé!)		-- Két szót és a maradékot keressük (nem tesszük kisbetűssé!)
	local first, second = raw_clean:match("^([%a%-]+)%s+([^%s]+)")		local first, hybrid, second = raw_clean:match("^([%a%-]+)%s+(×?)([^%s]+)")

	if first and second then		if first and second then
	-- Ha a második szó kisbetűvel kezdődik -> Fajnév		-- Ha a második szó kisbetűvel kezdődik -> Fajnév
	if second:match("^[a-z]") then		if second:match("^[a-z]") then
	formatted = "''" .. first .. " " .. second .. "''"		formatted = "''" .. first .. " " .. hybrid .. second .. "''"
	plain = first .. " " .. second		plain = first .. " " .. hybrid .. second
	else		else
	-- Ha nagybetűvel vagy zárójellel kezdődik -> Szerző (csak a nemzetség dőlt)		-- Ha nagybetűvel vagy zárójellel kezdődik -> Szerző (csak a nemzetség dőlt)
178. sor:		182. sor:
	end		end

			----------------------------------------------------------------------------------------------------------------
	function p.buildTaxonbox(frame)		function p.buildTaxonbox(frame)
	local args = frame:getParent().args		local args = frame:getParent().args
228. sor:		233. sor:
	-- Ha nincs az adatbázisban, ellenőrizzük, hogy faj-e		-- Ha nincs az adatbázisban, ellenőrizzük, hogy faj-e
	-- (Csak akkor, ha a második szó kisbetűs)		-- (Csak akkor, ha a második szó kisbetűs)
	local first, second = taxonName:match("^([%a%-]+)%s+([^%s]+)")		local first, hybrid, second = taxonName:match("^([%a%-]+)%s+(×?)([^%s]+)")

	if taxonName == taxonName and first and second and second:match("^[a-z]") then		if taxonName == taxonName and first and second and second:match("^[a-z]") then
			local actual_parent = (parentOverride ~= '' and parentOverride) or extract_genus(taxonName)
			table.insert(hierarchy, { rank = "Faj", name = taxonName })
			taxonName = actual_parent
			elseif taxonName == taxonName and first and hybrid and second and second:match("^[a-z]") then
	local actual_parent = (parentOverride ~= '' and parentOverride) or extract_genus(taxonName)		local actual_parent = (parentOverride ~= '' and parentOverride) or extract_genus(taxonName)
	table.insert(hierarchy, { rank = "Faj", name = taxonName })		table.insert(hierarchy, { rank = "Faj", name = taxonName })
279. sor:		288. sor:
	else		else
	-- Megkeressük az alapnevet a kategória linkhez (szerzők nélkül)		-- Megkeressük az alapnevet a kategória linkhez (szerzők nélkül)
	local category_target = item.name:match("^([%a%-%.%s]+)") or item.name		local category_target = item.name:match("^([%a%-%.%s×]+)") or item.name
	if item.rank == "Nemzetség" then		if item.rank == "Nemzetség" then
	-- A nemzetség kategória linkhez a clean_formatted változót használjuk		-- A nemzetség kategória linkhez a clean_formatted változót használjuk
449. sor:		458. sor:
	end		end

			----------------------------------------------------------------------------------------------------------------
	function p.format_tudomanyos_nev(frame)		function p.format_tudomanyos_nev(frame)
	local args = frame:getParent().args		local args = frame:getParent().args
478. sor:		488. sor:
	return {		return {
	args = {		args = {
	accepted = arg[1] or "Astrophytum coahuilense (H.Moeller) K.Kayser in Kakteen-Freund 1: 59. 1932. Sec. Vázquez-Lobo & al. (2015)",		-- accepted = arg[1] or "Astrophytum coahuilense (H.Moeller) K.Kayser in Kakteen-Freund 1: 59. 1932. Sec. Vázquez-Lobo & al. (2015)",
	synonym = arg[2] or "Astrophytum myriostigma var. coahuilense (H.Moeller) K.Kayser in Borg, Cacti, ed. 1: 251. 1937 syn. sec. Arias (2021)",		-- synonym = arg[2] or "Astrophytum myriostigma var. coahuilense (H.Moeller) K.Kayser in Borg, Cacti, ed. 1: 251. 1937 syn. sec. Arias (2021)",
	"synhetero",		accepted = arg[1] or "Echinocereus ×roetteri (Engelm.) Engelm. ex Rümpler, Handb. Cacteenk., ed. 2, 2(16): 829. 1886. Sec. Hunt (2016)",
			synonym = arg[2] or "Echinocereus ×roetteri var. lloydii (Britton & Rose) Backeb., Cactaceae 4: 2027. 1960",
			-- "synhetero",
	-- "synhomo",		-- "synhomo",
	-- accepted = arg[1] or "Lophophora williamsii (Lem. ex Salm-Dyck) J.M.Coult. in Contr. U.S. Natl. Herb. 3(2): 131. 1894 sec. Parfitt & Gibson 2003",		-- accepted = arg[1] or "Lophophora williamsii (Lem. ex Salm-Dyck) J.M.Coult. in Contr. U.S. Natl. Herb. 3(2): 131. 1894 sec. Parfitt & Gibson 2003",
510. sor:		522. sor:
	-- \| accepted = Astrophytum coahuilense		-- \| accepted = Astrophytum coahuilense
	-- \| synonym = Astrophytum myriostigma var. coahuilense		-- \| synonym = Astrophytum myriostigma var. coahuilense
	-- \| synhomo		-- \| synhomo v. synhetero
	-- \| image = test.jpg		-- \| image = test.jpg
			-- \| imageTitle = "Teszt kép"
	-- }}		-- }}

	return p		return p