Modul:SimpleTaxobox - Laptörténet

Dr. Gyúró Zoltán, 2025. december 29., 10:01-n

2025-12-29T10:01:13Z

← Régebbi változat		A lap 2025. december 29., 10:01-kori változata
108. sor:		108. sor:
	-- A caption helyett th-t használunk (a th kódja: "\|-!"):		-- A caption helyett th-t használunk (a th kódja: "\|-!"):
	output = output .. "\|-\n"		output = output .. "\|-\n"
	output = output .. '! class="taxonnev" colspan="2~~" style="text-align: center; font-size: 125%;~~" \| ' .. format_name(initialTaxonName) .. "\n"		output = output .. '! class="taxonnev" colspan="2" \| ' .. format_name(initialTaxonName) .. "\n"
	if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=		if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=
	output = output .. '\|-\n'		output = output .. '\|-\n'

Dr. Gyúró Zoltán, 2025. december 28., 23:05-n

2025-12-28T23:05:53Z

← Régebbi változat		A lap 2025. december 28., 23:05-kori változata
30. sor:		30. sor:
	local csere = "''%1 %2'' f. ''%3''"		local csere = "''%1 %2'' f. ''%3''"
	formattedName = string.gsub(name, minta, csere)		formattedName = string.gsub(name, minta, csere)
	elseif string.match(name, "[%a%-]+)%s+([%a%-]+)") then		elseif string.match(name, "[%a%-]+%s+[%a%-]+") then
	local minta = "([%a%-]+)~~%s+([%a%-]+)%s+f%.~~%s+([%a%-]+)"		local minta = "([%a%-]+)%s+([%a%-]+)"
	local csere = "''%1 %2''"		local csere = "''%1 %2''"
	formattedName = string.gsub(name, minta, csere)		formattedName = string.gsub(name, minta, csere)

Dr. Gyúró Zoltán, 2025. december 28., 23:03-n

2025-12-28T23:03:39Z

← Régebbi változat		A lap 2025. december 28., 23:03-kori változata
30. sor:		30. sor:
	local csere = "''%1 %2'' f. ''%3''"		local csere = "''%1 %2'' f. ''%3''"
	formattedName = string.gsub(name, minta, csere)		formattedName = string.gsub(name, minta, csere)
			elseif string.match(name, "[%a%-]+)%s+([%a%-]+)") then
			local minta = "([%a%-]+)%s+([%a%-]+)%s+f%.%s+([%a%-]+)"
			local csere = "''%1 %2''"
			formattedName = string.gsub(name, minta, csere)
			else
			formattedName = name
	end		end
	return formattedName		return formattedName

Dr. Gyúró Zoltán, 2025. december 28., 22:58-n

2025-12-28T22:58:39Z

← Régebbi változat		A lap 2025. december 28., 22:58-kori változata
53. sor:		53. sor:
	-- 1. Rekurzív adatgyűjtés a Modul:TaxonData-ból		-- 1. Rekurzív adatgyűjtés a Modul:TaxonData-ból
	while taxonName do		while taxonName do
	local data = TaxonData.getData(~~taxon~~)		local data = TaxonData.getData(taxonName)

	if data then		if data then

Dr. Gyúró Zoltán, 2025. december 28., 22:50-n

2025-12-28T22:50:07Z

← Régebbi változat		A lap 2025. december 28., 22:50-kori változata
38. sor:		38. sor:

	-- A taxon neve, amit a cikkből kaptunk (ez lehet faj vagy nemzetség)		-- A taxon neve, amit a cikkből kaptunk (ez lehet faj vagy nemzetség)
	local initialTaxonName = args.~~taxonNev~~		local initialTaxonName = args.taxon
	-- Javítás: biztosítsuk, hogy az image ne legyen nil, ha nincs megadva		-- Javítás: biztosítsuk, hogy az image ne legyen nil, ha nincs megadva
	local taxonImage = args.image or ''		local taxonImage = args.image or ''

Dr. Gyúró Zoltán, 2025. december 28., 22:47-n

2025-12-28T22:47:26Z

← Régebbi változat		A lap 2025. december 28., 22:47-kori változata
10. sor:		10. sor:
	local genus_name = full_species_name:match("([^%s]+)")		local genus_name = full_species_name:match("([^%s]+)")
	return genus_name		return genus_name
			end

			-- Segédfüggvény: Dőlt betűs taxonnév
			local function format_name(name)
			if string.match(name, "subsp%.") then
			local minta = "([%a%-]+)%s+([%a%-]+)%s+subsp%.%s+([%a%-]+)"
			local csere = "''%1 %2'' subsp. ''%3''"
			formattedName = string.gsub(name, minta, csere)
			elseif string.match(name, "var%.") then
			local minta = "([%a%-]+)%s+([%a%-]+)%s+var%.%s+([%a%-]+)"
			local csere = "''%1 %2'' var. ''%3''"
			formattedName = string.gsub(name, minta, csere)
			elseif string.match(name, "subvar%.") then
			local minta = "([%a%-]+)%s+([%a%-]+)%s+subvar%.%s+([%a%-]+)"
			local csere = "''%1 %2'' subvar. ''%3''"
			formattedName = string.gsub(name, minta, csere)
			elseif string.match(name, "f%.") then
			local minta = "([%a%-]+)%s+([%a%-]+)%s+f%.%s+([%a%-]+)"
			local csere = "''%1 %2'' f. ''%3''"
			formattedName = string.gsub(name, minta, csere)
			end
			return formattedName
	end		end

16. sor:		38. sor:

	-- A taxon neve, amit a cikkből kaptunk (ez lehet faj vagy nemzetség)		-- A taxon neve, amit a cikkből kaptunk (ez lehet faj vagy nemzetség)
	local ~~initialTaxon~~ = args.~~taxon~~		local initialTaxonName = args.taxonNev
	-- Javítás: biztosítsuk, hogy az image ne legyen nil, ha nincs megadva		-- Javítás: biztosítsuk, hogy az image ne legyen nil, ha nincs megadva
	local taxonImage = args.image or ''		local taxonImage = args.image or ''
	local imageTitle = args.~~imagetitle~~ or ''		local imageTitle = args.imageTitle or ''

	local hierarchy = {}		local hierarchy = {}
	local ~~taxon~~ = ~~initialTaxon~~ -- Ez a változó lépked felfelé a hierarchiában		local taxonName = initialTaxonName -- Ez a változó lépked felfelé a hierarchiában
	local parentOverride = args.parent -- A manuálisan átadott szülő (pl. Szekció)		local parentOverride = args.parent -- A manuálisan átadott szülő (pl. Szekció)

	if not ~~initialTaxon~~ or ~~initialTaxon~~ == '' then		if not initialTaxonName or initialTaxonName == '' then
	return '<div style="color:red;">Taxobox Hiba: Hiányzó <code>\|taxon=</code> paraméter.</div>'		return '<div style="color:red;">Taxobox Hiba: Hiányzó <code>\|taxon=</code> paraméter.</div>'
	end		end

	-- 1. Rekurzív adatgyűjtés a Modul:TaxonData-ból		-- 1. Rekurzív adatgyűjtés a Modul:TaxonData-ból
	while ~~taxon~~ do		while taxonName do
	local data = TaxonData.getData(taxon)		local data = TaxonData.getData(taxon)

	if data then		if data then
	-- 1a. Talált adatot (Rend, Család, Nemzetség, Szekció, stb.)		-- 1a. Talált adatot (Rend, Család, Nemzetség, Szekció, stb.)
	table.insert(hierarchy, { rank = data.rank, name = ~~taxon~~ })		table.insert(hierarchy, { rank = data.rank, name = taxonName })
	~~taxon~~ = data.parent -- Áttérés a szülőre		taxonName = data.parent -- Áttérés a szülőre

	else		else
	-- 1b. Nem talált adatot. Ez a pont csak a legelső elemre lehet a Faj!		-- 1b. Nem talált adatot. Ez a pont csak a legelső elemre lehet a Faj!
	if ~~taxon~~ == ~~initialTaxon~~ then		if taxonName == initialTaxonName then
	-- Megjegyzés: Ellenőrizzük, van-e szóköz a ~~taxon~~ nevében.		-- Megjegyzés: Ellenőrizzük, van-e szóköz a taxonName nevében.
	local is_species = ~~initialTaxon~~:find("%s")		local is_species = initialTaxonName:find("%s")

	if is_species then		if is_species then
52. sor:		74. sor:
	else		else
	-- 2. Különben kinyerjük a nemzetséget a fajnévből (automatikusan)		-- 2. Különben kinyerjük a nemzetséget a fajnévből (automatikusan)
	actual_parent = extract_genus(~~initialTaxon~~)		actual_parent = extract_genus(initialTaxonName)
	end		end

	-- Hozzáadjuk magát a fajt a hierarchiához		-- Hozzáadjuk magát a fajt a hierarchiához
	table.insert(hierarchy, { rank = "Faj", name = ~~initialTaxon~~ })		table.insert(hierarchy, { rank = "Faj", name = initialTaxonName })

	-- Áttérünk a Nemzetségre VAGY a Szekcióra		-- Áttérünk a Nemzetségre VAGY a Szekcióra
	~~taxon~~ = actual_parent		taxonName = actual_parent
	else		else
	-- Ez egy Nemzetség VAGY magasabb ~~taxon~~ (egy szó), de nincs adata.		-- Ez egy Nemzetség VAGY magasabb taxonName (egy szó), de nincs adata.
	-- Ez hibás TaxonData bejegyzésre utal.		-- Ez hibás TaxonData bejegyzésre utal.
	return '<div style="color:red;">Taxobox Hiba: A Modul:TaxonData nem tartalmazza a "' .. ~~initialTaxon~~ .. '" taxont, ami egy Nemzetség vagy magasabb szintű taxon. Kérem adja hozzá.</div>'		return '<div style="color:red;">Taxobox Hiba: A Modul:TaxonData nem tartalmazza a "' .. initialTaxonName .. '" taxont, ami egy Nemzetség vagy magasabb szintű taxon. Kérem adja hozzá.</div>'
	end -- is_species vége		end -- is_species vége
	else		else
	-- Nem a legelső elem, és nincs adat (a lánc megszakad)		-- Nem a legelső elem, és nincs adat (a lánc megszakad)
	return '<div style="color:red;">Taxobox Hiba: Nem található adat a "' .. ~~taxon~~ .. '" taxonhoz a Modul:TaxonData-ban.</div>'		return '<div style="color:red;">Taxobox Hiba: Nem található adat a "' .. taxonName .. '" taxonhoz a Modul:TaxonData-ban.</div>'
	end		end
	end		end
76. sor:		98. sor:

	-- A caption kódja: "\|+""		-- A caption kódja: "\|+""
	-- output = output .. "\|+'''" .. ~~initialTaxon~~ .. "'''\n"		-- output = output .. "\|+'''" .. initialTaxonName .. "'''\n"

	-- A caption helyett th-t használunk (a th kódja: "\|-!"):		-- A caption helyett th-t használunk (a th kódja: "\|-!"):
	output = output .. "\|-\n"		output = output .. "\|-\n"
	output = output .. '! class="taxonnev" colspan="2" style="text-align: center; font-size: 125%;" \| ' .. ~~initialTaxon~~ .. "\n"		output = output .. '! class="taxonnev" colspan="2" style="text-align: center; font-size: 125%;" \| ' .. format_name(initialTaxonName) .. "\n"
	if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=		if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=
	output = output .. '\|-\n'		output = output .. '\|-\n'
127. sor:		149. sor:
	-- Kiemeljük az aktuális cikk tárgyát (ami a hierarchia legalján van)		-- Kiemeljük az aktuális cikk tárgyát (ami a hierarchia legalján van)
	if item.rank == "Faj" then		if item.rank == "Faj" then
	name_display = "''" .. name_display .. "''"		-- name_display = "''" .. name_display .. "''"
			name_display = format_name(name_display)
	end		end

139. sor:		162. sor:
	-- A hierarchy[1] az az elem, amit legelőször adtunk hozzá (az aktuális taxon)		-- A hierarchy[1] az az elem, amit legelőször adtunk hozzá (az aktuális taxon)
	if hierarchy[1] and hierarchy[1].rank == "Faj" then		if hierarchy[1] and hierarchy[1].rank == "Faj" then
	local searchTerm = ~~initialTaxon~~ -- Így nem csak egy növényre fog működni		local searchTerm = initialTaxonName -- Így nem csak egy növényre fog működni
	-- A szóközöket URL-kompatibilis + jellé alakítjuk		-- A szóközöket URL-kompatibilis + jellé alakítjuk
	-- local encodedTerm = searchTerm:gsub(" ", "+")		-- local encodedTerm = searchTerm:gsub(" ", "+")

Dr. Gyúró Zoltán, 2025. december 28., 20:57-n

2025-12-28T20:57:51Z

← Régebbi változat		A lap 2025. december 28., 20:57-kori változata
84. sor:		84. sor:
	output = output .. '\|-\n'		output = output .. '\|-\n'
	output = output .. '!colspan="2"\|[[Fájl:' .. taxonImage .. '\|340px'		output = output .. '!colspan="2"\|[[Fájl:' .. taxonImage .. '\|340px'
			if imageTitle and imageTitle ~= '' then -- nem egyenlő ~=
			output = output .. '\|' .. imageTitle
			end
			output = output .. ']]\n'
	end		end
	~~if imageTitle and imageTitle ~= '' then -- nem egyenlő ~=~~
	~~output = output .. '\|' .. imageTitle~~
	~~end~~
	~~output = output .. ']]\n'~~

	output = output .. '\|-\n'		output = output .. '\|-\n'

Dr. Gyúró Zoltán, 2025. december 28., 20:52-n

2025-12-28T20:52:35Z

← Régebbi változat		A lap 2025. december 28., 20:52-kori változata
72. sor:		72. sor:
	end		end

	-- 2. Wikitext Taxobox táblázat felépítése ~~(a régebbi kód, de javított változónevekkel)~~		-- 2. Wikitext Taxobox táblázat felépítése
	local output = '{\| class="infobox biota" style="text-align: left; width: 22em;"\n'		local output = '{\| class="infobox biota" style="text-align: left; width: 22em;"\n'

85. sor:		85. sor:
	output = output .. '!colspan="2"\|[[Fájl:' .. taxonImage .. '\|340px'		output = output .. '!colspan="2"\|[[Fájl:' .. taxonImage .. '\|340px'
	end		end
	if ~~taxonImage~~ and ~~taxonImage~~ ~= '' then -- nem egyenlő ~=		if imageTitle and imageTitle ~= '' then -- nem egyenlő ~=
	output = output .. '\|' .. imageTitle ~~.. ']]\n'~~		output = output .. '\|' .. imageTitle
	end		end
	output = output .. ']]\n'		output = output .. ']]\n'

Dr. Gyúró Zoltán, 2025. december 28., 20:42-n

2025-12-28T20:42:07Z

← Régebbi változat		A lap 2025. december 28., 20:42-kori változata
87. sor:		87. sor:
	if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=		if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=
	output = output .. '\|' .. imageTitle .. ']]\n'		output = output .. '\|' .. imageTitle .. ']]\n'
	~~else~~
	~~output = output .. ']]\n'~~
	end		end
			output = output .. ']]\n'

	output = output .. '\|-\n'		output = output .. '\|-\n'
	output = output .. '!colspan="2"\|Rendszertani besorolás\n'		output = output .. '!colspan="2"\|Rendszertani besorolás\n'

Dr. Gyúró Zoltán, 2025. december 28., 16:40-n

2025-12-28T16:40:55Z

← Régebbi változat		A lap 2025. december 28., 16:40-kori változata
83. sor:		83. sor:
	if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=		if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=
	output = output .. '\|-\n'		output = output .. '\|-\n'
	output = output .. '!colspan="2"\|[[Fájl:' .. taxonImage .. '\|340px]\|' .. imageTitle .. ']\n'		output = output .. '!colspan="2"\|[[Fájl:' .. taxonImage .. '\|340px'
			end
			if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=
			output = output .. '\|' .. imageTitle .. ']]\n'
			else
			output = output .. ']]\n'
	end		end
	output = output .. '\|-\n'		output = output .. '\|-\n'

← Régebbi változat		A lap 2025. december 29., 10:01-kori változata
108. sor:		108. sor:
	-- A caption helyett th-t használunk (a th kódja: "\|-!"):		-- A caption helyett th-t használunk (a th kódja: "\|-!"):
	output = output .. "\|-\n"		output = output .. "\|-\n"
	output = output .. '! class="taxonnev" colspan="2~~" style="text-align: center; font-size: 125%;~~" \| ' .. format_name(initialTaxonName) .. "\n"		output = output .. '! class="taxonnev" colspan="2" \| ' .. format_name(initialTaxonName) .. "\n"
	if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=		if taxonImage and taxonImage ~= '' then -- nem egyenlő ~=
	output = output .. '\|-\n'		output = output .. '\|-\n'