Модуль:Культурное наследие народов РФ

Этот модуль предназначен для обработки данных регистрационного номера ОКН в шаблоне {{Культурное наследие народов РФ}}

См. также

• Модуль:Памятник культурного наследия Украины

---

require('Module:No globals')
local IRH = {}
IRH.__index = IRH

IRH.config = require('Module:Культурное наследие народов РФ/config')

IRH.Munconfig = nil-- пока пустой, он должен require'ться только при указании региона

IRH.ucfirst = false

IRH.Regconfig = nil

local theobjword, theregword
local wordseparator

local function valkey(t,val)
	 for k,v in pairs(t) do
	 if v==val then return k end
	 end
	 return nil
end

function IRH:regidexists(regid, disp)
if self.config.forceemptycategorization==true then return true end
local cato
if disp==true then cato = 'Объекты культурного наследия ' else cato = 'Объекты культурного наследия России ' end
if mw.title.new('Category:'..cato..self:getregiondatas().regins[regid]).exists then
	return true
end
return false
end

function IRH:isTable(val)
	if val and val~=nil then
		if type(val)=='table' then
			return true
		end
	end
	return false
end

function mw.ustring.ucfirst(str)
	return mw.ustring.upper(mw.ustring.sub(str,1,1))..mw.ustring.sub(str,math.min(mw.ustring.len(str),2),-1)
end

local function cntendsmb(str,smb)
	local cnt
	cnt = 0
	smb = smb or ' '
	local isfinished = false
	while isfinished==false do
		if mw.ustring.sub(str,-1,-1)==smb then
		cnt = cnt + 1
		str = mw.ustring.sub(str,1,-2)
		else
			isfinished = true
		end
	end
	return cnt
	
end

function IRH:isTableandHasKey(tab,key)
	if self:isTable(tab)==true then
		if tab[key] and (tab[key]~=nil) then
			return true
		end
	end
	return false
end

function table.contains(table, element)
  for _, value in pairs(table) do
    if value == element then
      return true
    end
  end
  return false
end

function IRH:armsgen(regid, statusid, munid)
local arms
arms = 'Coat of Arms of the Russian Federation 2.svg'
if statusid~='Ф' then
if regid then
	if self:getregiondatas().regarms[regid] then
		arms = self:getregiondatas().regarms[regid]
		end
	end
	if statusid=='М' then
		if munid and ((munid~=nil) and (munid~='')) then
		if ((self.Munconfig~=nil) and self:isTable(self.Munconfig.munarms)) and self.Munconfig.munarms[munid] then
			arms = self.Munconfig.munarms[munid]
		end
		end
	end
end
return arms
end

function IRH:dispterrcheck(regid)
	if table.contains(self.config.reginsdisp,regid) then return true end
	return false
end

function IRH:firstwordcat(statusid)
	if self.config.statuscats[statusid] and self.config.statuscats[statusid][2] then
		if (self.config.statuscats[statusid][2]~=nil) and (self.config.statuscats[statusid][2]~='') then
			return {false, 2}
		end
	end
	return {true, 1}
end

function IRH:gencatlink(regid, statusid, number, voynumber, munid)
	local regdisp
	local regido
	local cat
	local shallbefirst, firstcatflag, firstcatcell
	shallbefirst = self:firstwordcat(statusid)
	firstcatflag = shallbefirst[1]
	firstcatcell = shallbefirst[2]
	shallbefirst = nil -- дальше нам это не требуется
	if table.contains(self.config.statussuppress,statusid) then return '' end
	cat = 'Объекты культурного наследия России'
	if self.args['утрачен'] then
	cat = ''
	else
	if regid and self:getregiondatas().regins[regid] then
	regdisp = self:dispterrcheck(regid)
	regido = self:regidexists(regid, regdisp)
    else
    regdisp = false
    regido = self.config.forceemptycategorization==true and true or false
	end
	if statusid then
		if regid then
			if self:getregiondatas().regins[regid] then
				if self.config.statuscats[statusid] and self.config.statuscats[statusid][1] then
					if mw.title.new('Category:' .. self.config.statuscats[statusid][1]..' объекты культурного наследия '..self:getregiondatas().regins[regid]).exists then
					cat = self.config.statuscats[statusid][1]..' объекты культурного наследия '..self:getregiondatas().regins[regid]
					else
					local cattemp
					cattemp = cat
					if regdisp==true then
					cat=mw.ustring.sub(cat,1,28)
					end
					if regido==true then
					cat = cat..' '..self:getregiondatas().regins[regid]
					end
					end
					if munid and ((munid~=nil) and (munid~='')) then
					if self.Munconfig~=nil and (self:isTable(self.Munconfig.munins)==true) and self.Munconfig.munins[munid] then
					if self.config.statuscats[statusid] and self.config.statuscats[statusid][1] then
					if mw.title.new('Category:' .. self.config.statuscats[statusid][1]..' объекты культурного наследия '..self.Munconfig.munins[munid]).exists then
					cat = self.config.statuscats[statusid][1]..' объекты культурного наследия '..self.Munconfig.munins[munid]
					else
					local checker
					if regdisp==true then checker = 'Объекты культурного наследия ' else checker = 'Объекты культурного наследия России ' end
					local muncatexist = self.config.forceemptycategorization==true and true or mw.title.new('Category:'..checker..self.Munconfig.munins[munid]).exists
					if muncatexist then
					cat = checker..self.Munconfig.munins[munid]
					end					
					end
					else
					local checker
					if regdisp==true then checker = 'Объекты культурного наследия ' else checker = 'Объекты культурного наследия России ' end
					local muncatexist = self.config.forceemptycategorization==true and true or mw.title.new('Category:'..checker..self.Munconfig.munins[munid]).exists
					if muncatexist then
					cat = checker..self.Munconfig.munins[munid]
					end					
					end
					end
					end
				else
					if regdisp==true then
					cat=mw.ustring.sub(cat,1,28)
					end
					if regido==true then
					cat = cat..' '..self:getregiondatas().regins[regid]
					else
					if cat=='Объекты культурного наследия' then cat = cat..' России' end
					end
					end
					if munid and ((munid~=nil) and (munid~='')) then
					if self.Munconfig~=nil and (self:isTable(self.Munconfig.munins)==true) and self.Munconfig.munins[munid] then
					local checker
					if regdisp==true then checker = 'Объекты культурного наследия ' else checker = 'Объекты культурного наследия России ' end
					local muncatexist = self.config.forceemptycategorization==true and true or mw.title.new('Category:'..checker..self.Munconfig.munins[munid]).exists
					if muncatexist then
					cat = checker..self.Munconfig.munins[munid]
					end
					end
					end				
			end
	end
	else
		if regid then
			if self:getregiondatas().regins[regid] then
				if regido==true then
				if regdisp==true then
				cat=mw.ustring.sub(cat,1,28)
				end
				cat = cat..' '..self:getregiondatas().regins[regid]
				else
				if cat=='Объекты культурного наследия' then cat = cat..' России' end
				end
				end
					if munid and ((munid~=nil) and (munid~='')) then
					if self.Munconfig~=nil and (self:isTable(self.Munconfig.munins)==true) and self.Munconfig.munins[munid] then
					local checker
					if regdisp==true then checker = 'Объекты культурного наследия ' else checker = 'Объекты культурного наследия России ' end
					local muncatexist = self.config.forceemptycategorization==true and true or mw.title.new('Category:'..checker..self.Munconfig.munins[munid]).exists
					if muncatexist then
					cat = checker..self.Munconfig.munins[munid]
					end
					end
					end				
			end
	end
	end
	if cat=='Объекты культурного наследия России' then
	if number or (voynumber and ((voynumber ~='') and (voynumber ~= nil))) then
	cat = ''
	end
	end
	return cat~='Объекты культурного наследия' and (':Категория:'..cat) or ''
				
end

function IRH:gencat(regid, statusid, number, voynumber, munid)
	local regdisp
	local regido
	local cat
	local shallbefirst, firstcatflag, firstcatcell
	shallbefirst = self:firstwordcat(statusid)
	firstcatflag = shallbefirst[1]
	firstcatcell = shallbefirst[2]
	shallbefirst = nil -- дальше нам это не требуется
	if table.contains(self.config.statussuppress,statusid) then return '' end
	cat = 'Объекты культурного наследия России'
	if self.args['утрачен'] then
	cat = ''
	else
	if regid and self:getregiondatas().regins[regid] then
	regdisp = self:dispterrcheck(regid)
	regido = self:regidexists(regid, regdisp)
    else
    regdisp = false
    regido = self.config.forceemptycategorization==true and true or false
	end
	if statusid then
		if regid then
			if self:getregiondatas().regins[regid] then
				if self.config.statuscats[statusid] and self.config.statuscats[statusid][1] then
					if mw.title.new('Category:' .. self.config.statuscats[statusid][1]..' объекты культурного наследия '..self:getregiondatas().regins[regid]).exists then
					cat = self.config.statuscats[statusid][1]..' объекты культурного наследия '..self:getregiondatas().regins[regid]
					else
					local cattemp
					cattemp = cat
					if regdisp==true then
					cat=mw.ustring.sub(cat,1,28)
					end
					local cattolook
					if firstcatflag==false then
					cattolook = cattemp..' '..self.config.statuscats[statusid][2]
					else
					cattolook = self.config.statuscats[statusid][1]..' объекты культурного наследия России'
					end
					local secondcat
					if self.config.statuscats[statusid] and self.config.statuscats[statusid][firstcatcell] and mw.title.new('Category:' .. cattolook).exists then
					secondcat = ']][[Категория:'..cattolook
					else secondcat = ''
					end
					if regido==true then
					cat = cat..' '..self:getregiondatas().regins[regid]
					else
					if cat=='Объекты культурного наследия' then cat=cat..' России' end
					if number or (voynumber and ((voynumber ~='') and (voynumber ~= nil))) then
					if secondcat~='' then
					cat=mw.ustring.sub(secondcat,15,-1)
					secondcat = ''
					end
					end
					end
					cat = cat..(secondcat or '')
					end
				else
					if regdisp==true then
					cat=mw.ustring.sub(cat,1,28)
					end
					if regido==true then
					cat = cat..' '..self:getregiondatas().regins[regid]
					else
					if cat=='Объекты культурного наследия' then cat = cat..' России' end
					end
					end
			else
					local cattolook
					if firstcatflag==false then
					cattolook = cat..' '..self.config.statuscats[statusid][2]
					else
					cattolook = self.config.statuscats[statusid][1]..' объекты культурного наследия России'
					end
				if self.config.statuscats[statusid] and self.config.statuscats[statusid][firstcatcell] then
					if mw.title.new('Category:' .. cattolook).exists then
					cat = cattolook
					end
				end
			end
					if munid and ((munid~=nil) and (munid~='')) then
					if self.Munconfig~=nil and (self:isTable(self.Munconfig.munins)==true) and self.Munconfig.munins[munid] then
					if self.config.statuscats[statusid] and self.config.statuscats[statusid][1] then
					if mw.title.new('Category:' .. self.config.statuscats[statusid][1]..' объекты культурного наследия '..self.Munconfig.munins[munid]).exists then
					cat = self.config.statuscats[statusid][1]..' объекты культурного наследия '..self.Munconfig.munins[munid]
					else
					local thirdcat
					local checker
					if regdisp==true then checker = 'Объекты культурного наследия ' else checker = 'Объекты культурного наследия России ' end
					local muncatexist = self.config.forceemptycategorization==true and true or mw.title.new('Category:'..checker..self.Munconfig.munins[munid]).exists
					if self:getregiondatas().regins[regid]~=nil then
					if mw.title.new('Category:' .. self.config.statuscats[statusid][1]..' объекты культурного наследия '..self:getregiondatas().regins[regid]).exists then
					if muncatexist then
					thirdcat = ']][[Категория:'..checker..self.Munconfig.munins[munid]
					else thirdcat = '' end
					else
					thirdcat = ''
					if muncatexist then					
					if regdisp==true then
					cat = mw.ustring.gsub(cat,'Объекты культурного наследия '..self:getregiondatas().regins[regid],'Объекты культурного наследия '..self.Munconfig.munins[munid])
					else
					cat = mw.ustring.gsub(cat,'Объекты культурного наследия России '..self:getregiondatas().regins[regid],'Объекты культурного наследия России '..self.Munconfig.munins[munid])
					end
					end
					end
					else
					if muncatexist then					
					thirdcat = ']][[Категория:Объекты культурного наследия России '..self.Munconfig.munins[munid]
					end
					end
					cat = cat..thirdcat
					end
					end
				end
				end
	else
					local cattolook
					if firstcatflag==false then
					cattolook = cat..' '..self.config.statuscats[statusid][2]
					else
					cattolook = self.config.statuscats[statusid][1]..' объекты культурного наследия России'
					end
		if self.config.statuscats[statusid] and self.config.statuscats[statusid][firstcatcell] then
			if mw.title.new('Category:' .. cattolook).exists then
			cat = cattolook
			end
		end
	end
	else
		if regid then
			if self:getregiondatas().regins[regid] then
				if regido==true then
				if regdisp==true then
				cat=mw.ustring.sub(cat,1,28)
				end
				cat = cat..' '..self:getregiondatas().regins[regid]
				else
				if cat=='Объекты культурного наследия' then cat = cat..' России' end
				end
				end
				if munid and ((munid~=nil) and (munid~='')) then
				if (self.Munconfig~=nil and (self:isTable(self.Munconfig.munins)==true) and self.Munconfig.munins[munid]) then
					local checker
					if regdisp==true then
					checker = 'Объекты культурного наследия ' else checker = 'Объекты культурного наследия России '
					end
					if self.config.forceemptycategorization==true or mw.title.new('Category:'..checker..self.Munconfig.munins[munid]).exists then
					cat = checker..self.Munconfig.munins[munid]
					end
				end			
			end
			end
	end
	end
	if cat=='Объекты культурного наследия России' then
	if number or (voynumber and ((voynumber ~='') and (voynumber ~= nil))) then
	cat = ''
	end
	end
	return cat
				
end

function IRH:genmunicipality(munid)
	if munid then
	if tonumber(munid) then
		if self.Munconfig~=nil and (self:isTable(self.Munconfig.municipality)==true) then
		munid = self.Munconfig.municipality[munid]
		else
			munid = nil
		end
	end
	if not ((self.Munconfig~=nil) and (self:isTableandHasKey(self.Munconfig.munarms,munid) or (self:isTableandHasKey(self.Munconfig.munins,munid)))) then
		munid = nil
		end
	end
	return munid
end

function IRH:returnnotnil(variable)
	if variable then
		if variable ~=nil then
			return variable
			end
		end
	return ''
end

function IRH:getregiondatas()
	if self.Regconfig~=nil then
		return self.Regconfig
	else
		return self.config
	end
end

function IRH:genstatus(statusid, number, voyagecode)
	local statusword, statusfirstword
	statusword, statusfirstword = ''
	if statusid then
	if tonumber(statusid) then
	statusid = self.config.statuskeys[tostring(statusid)] else
	if (mw.ustring.len(statusid)==3) then
	if mw.ustring.sub(statusid,-2) == 'ВГ' then
	statusid = self.config.statuskeysvoy[tostring(mw.ustring.sub(statusid,1,1))]
	end
	else
	statusid = statusid
	end
	end
	else 
	if number then
	statusid = statusid or self.config.statuskeys[tostring(mw.ustring.sub(number,-1))]
	else
		if voyagecode then
			statusid = statusid or self.config.statuskeysvoy[tostring(mw.ustring.sub(voyagecode, 3, 3))]
		end
	end
	end
	if statusid then
	if not self.config.statuscats[statusid] then
	statusid = nil
	end	
	if statusid~=nil and self.config.statuscats[statusid] and self.config.statuscats[statusid][2] then
    statusword = self.config.statuscats[statusid][2]
    else statusword = '' end
    if statusid ~=nil and self.config.statuscats[statusid] and self.config.statuscats[statusid][1] then
    statusfirstword = mw.ustring.sub(self.config.statuscats[statusid][1],1,-2)..'й'
    else
    statusfirstword = ''
    end
    end
	return {['statusid']=statusid, ['statusword']=statusword, ['statusfirstword']=statusfirstword,}
end

function IRH:genreg(regid, number, voynumber)
	if regid then
	if tonumber(regid) then
	regid = self.config.regionsEGR[tostring(regid)]
	else
	if mw.ustring.len(regid)==4 then
	if mw.ustring.sub(regid,-2)=='ВГ' then
	regid = self.config.regionsvoy[tostrins(mw.ustring.sub(regid,1,2))]
	end
	end
	end
	end
	if number then
	regid = regid or self.config.regionsEGR[mw.ustring.sub(number,1,2)]
	else
	if voynumber then
		if (voynumber ~= nil) and (voynumber ~= '') then
		regid = regid or self.config.regionsvoy[mw.ustring.sub(voynumber,1,2)]
		end
	end
	end
	if self.config.regionsaliases[regid] then
	regid = self.config.regionsaliases[regid] end
	for _,v in ipairs(self.config.fdlist) do
		for b,r in ipairs(self.config.feddistr[v]) do
			if regid==r then
				self.Regconfig = 'Модуль:Культурное наследие народов РФ/config/'..v
				break
			end
		if self.Regconfig ~=nil then break end
		end
	end
	if self.Regconfig ~= nil then
		if not mw.title.new(self.Regconfig).exists then
			self.Regconfig=nil
		end
	end
	if self.Regconfig ~= nil then
		self.Regconfig = require(self.Regconfig).Reg()
	end
	return regid
end

function IRH:tablecount(tab)
local Count
Count = 0
for Index, Value in pairs( tab ) do
  Count = Count + 1
end
return Count
end

function IRH:getMunconfig(regid)
	local IsFD
	IsFD = false
	local MCSTRtest
	local Munconfigstring
	for _,v in ipairs(self.config.fdlist) do
		for _,s in ipairs(self.config.feddistr[v]) do
			if regid==s then
				Munconfigstring = 'Модуль:Культурное наследие народов РФ/config/'..v
				IsFD = true
				break
			end
		if Munconfigstring~=nil then break end
		end
	end
	if Munconfigstring ~= nil then
		if not mw.title.new(Munconfigstring).exists then
			Munconfigstring=nil
			IsFD = false
		end
	end
		--if IsFD==false or self.args['reg_pages'] then
		if mw.title.new('Модуль:Культурное наследие народов РФ/config/'..regid).exists then
			MCSTRtest = require('Модуль:Культурное наследие народов РФ/config/'..regid)
			if (MCSTRtest~=nil) and (type(MCSTRtest)~='boolean') then
			Munconfigstring ='Модуль:Культурное наследие народов РФ/config/'..regid
			end
		end
		--end
	if Munconfigstring~= nil and Munconfigstring~='' then
	if IsFD==true then 
	return require(Munconfigstring).Mun(tostring(regid))
	else
	return require(Munconfigstring)
	end
	else
	return nil
	end
end

function IRH:coregen(number, url, regid, statusid, wikivoyageid, munid)
	self.shortminiview = mw.ustring.find(self:returnnotnil(self.args['мини']),'short',0,true)~=nil and true or false
	self.regwordtooltip = nil
	local munarray = {}
	local numarray = {}
	local munarmsid
	local munplaceid
	local numWVarray = {}
	local statusword, statusfirstword
	local regidword
	local statusarms
	local regcatword
	local wikivoyageword
	if munid then
	if mw.ustring.sub(munid,1,1)=='{' and mw.ustring.sub(munid,-1)=='}' then
	munid = mw.ustring.sub(munid,2,-2)
	munid = string.gsub(munid, "%s+", "")
	munarray = mw.text.split(munid,',')	
	end
	end
	if self:tablecount(munarray)>0 then
	if self:tablecount(munarray)>2 then
	munarray={munarray[1], munarray[2]}
	else if self:tablecount(munarray)==1 then
	munid = munarray[1]
	munarray = {}
	end
	end
	end
	if munarray[1] then
	munarmsid = munarray[1]
	end
	if munarray[2] then
	munplaceid = munarray[2]
	end
	if munarmsid=='~0' then
	munarmsid=''
	end
	if munplaceid=='~0' then
	munplaceid=''
	end
	if not theregword then
	if self.shortminiview==true then
	theregword = 'р. №'
	self.regwordtooltip = 'Регистрационный номер в Едином государственный реестр объектов культурного наследия'
	else
	theregword = 'рег. №'
	end
	end
	if not theobjword then
	theobjword = (self.shortminiview==true and self.frame:preprocess('{{abbr|'..(self.ucfirst==true and 'О' or 'о')..'б.|объект(ы)|0}}') or 'объект')..' №'
	end
	if self.ucfirst == true then
		theregword,theobjword = mw.ustring.ucfirst(theregword),mw.ustring.ucfirst(theobjword)
	end
	wikivoyageword = ''
	if wikivoyageid then
		if (wikivoyageid~=nil) and (wikivoyageid~='') then
		if ((wikivoyageid) and (mw.ustring.sub(wikivoyageid,1,1) == '{')) and (mw.ustring.sub(wikivoyageid,-1) == '}') or (mw.ustring.find(self:returnnotnil(wikivoyageid),', ',0,true)~=nil) then
		if ((wikivoyageid) and (mw.ustring.sub(wikivoyageid,1,1) == '{')) and (mw.ustring.sub(wikivoyageid,-1) == '}') then
		wikivoyageid = mw.ustring.sub(wikivoyageid,2,-2)
		end
		wikivoyageid = string.gsub(wikivoyageid, "%s+", "")
		numWVarray = mw.text.split(wikivoyageid,',')
		if cntendsmb(theobjword,'№')==1 then theobjword = theobjword..'№' end
		theobjword = mw.ustring.gsub(theobjword,'ъект ','ъекты ')
		wikivoyageword = theobjword..(self.micro~=true and ': ' or '')
		local indexoWV
		local wikivoyageido
		local WVsubarray
		WVsubarray = ''
		if (self:tablecount(numWVarray)>2) and (self.config.collapsiblenumbers) then
		wikivoyageword = wikivoyageword..'[https://tools.wmflabs.org/ru_monuments/wikivoyage.php?id='..numWVarray[1]..' '..numWVarray[1]..']'
		end		
		for i=(((self:tablecount(numWVarray)<=2) or (not self.config.collapsiblenumbers)) and 1 or 2),self:tablecount(numWVarray) do
		if i==1 then
		indexoWV=''
		else
		indexoWV = ((self:tablecount(numWVarray)<=2) or (not self.config.collapsiblenumbers)) and wordseparator or (wordseparator~='<br>' and wordseparator or ', ')
		end
		wikivoyageido = numWVarray[i]
		if (self:tablecount(numWVarray)>2) and (self.config.collapsiblenumbers) then
		WVsubarray = WVsubarray..(i>2 and indexoWV or '')..'[https://tools.wmflabs.org/ru_monuments/wikivoyage.php?id='..wikivoyageido..' '..wikivoyageido..']'
		else
		wikivoyageword = wikivoyageword..indexoWV..'[https://tools.wmflabs.org/ru_monuments/wikivoyage.php?id='..wikivoyageido..' '..wikivoyageido..']'
		end
		end
		if WVsubarray ~= '' then
		WVsubarray = self.frame:preprocess(' <div class="NavFrame collapsed" style="border: none;display:inline; padding: 0px;"><div class="NavHead" style="height:auto; font-size:105%; background:transparent; display:inline; font-weight: normal;">и другие:</div><div class="NavContent" style="font-size:105%; display:inline;>'..WVsubarray..'</div></div>')
		wikivoyageword = wikivoyageword..WVsubarray
		end
		else
		wikivoyageword = (self.config.disableWDlookup[2]~=true) and self.frame:preprocess('{{wikidata|p1483|'..self:returnnotnil(self.args['Код-памятника'])..'|title='..theobjword..' $1}}') or '[https://tools.wmflabs.org/ru_monuments/wikivoyage.php?id='..self:returnnotnil(self.args['Код-памятника'])..' '..theobjword..self:returnnotnil(self.args['Код-памятника'])..']'
		end
		end
	end
	local namespacecheck = mw.ustring.len(self.frame:preprocess('{{NAMESPACE}}'))
	regidword = ''
	if number then
	if (number~=nil) and (number~='') then
	if (mw.ustring.sub(number,1,1)=='{' and mw.ustring.sub(number,-1)=='}') or (mw.ustring.find(number,', ',0,true)~=nil) then
	if (mw.ustring.sub(number,1,1)=='{' and mw.ustring.sub(number,-1)=='}') then
	number = mw.ustring.sub(number,2,-2)
	end
	number = string.gsub(number, "%s+", "")
	numarray = mw.text.split(number,',')
	if cntendsmb(theregword,'№')==1 then
	theregword = theregword..'№'
	end
	if self:returnnotnil(self.regwordtooltip)~='' then
	theregword = self.frame:preprocess('{{Abbr|'..theregword..'|'..self.regwordtooltip..'|0}}')
	end
	regidword = theregword..(self.micro~=true and ': ' or '')
	local indexo
	local numbero
	local numsubarray
	numsubarray = ''
	if (self:tablecount(numarray)>2) and (self.config.collapsiblenumbers) then
	regidword = regidword..'[https://tools.wmflabs.org/ru_monuments/get_info.php?id='..numarray[1]..' '..numarray[1]..']'
	end
	for i=(((self:tablecount(numarray)<=2) or (not self.config.collapsiblenumbers)) and 1 or 2),self:tablecount(numarray) do
		if i==1 then
		indexo=''
		else
		indexo = ((self:tablecount(numarray)<=2) or (not self.config.collapsiblenumbers)) and wordseparator or (wordseparator~='<br>' and wordseparator or ', ')
		end
		numbero = numarray[i]
		if (self:tablecount(numarray)>2) and (self.config.collapsiblenumbers) then
		numsubarray = numsubarray..(i>2 and indexo or '')..'[https://tools.wmflabs.org/ru_monuments/get_info.php?id='..numbero..' '..numbero..']'
		else
		regidword = regidword..indexo..'[https://tools.wmflabs.org/ru_monuments/get_info.php?id='..numbero..' '..numbero..']'
		end
	end
	if numsubarray ~= '' then
	numsubarray = self.frame:preprocess(' <div class="NavFrame collapsed" style="border: none;display:inline; padding: 0px;"><div class="NavHead" style="height:auto; font-size:105%; background:transparent; display:inline; font-weight: normal;">и другие:</div><div class="NavContent" style="font-size:105%; display:inline;>'..numsubarray..'</div></div>')
	regidword = regidword..numsubarray
	end
	else
	if not url then
		regidword = (self.config.disableWDlookup[1]~=true) and self.frame:preprocess('{{wikidata|P5381|'..number..'|title='..theregword..' $1}}') or '[https://tools.wmflabs.org/ru_monuments/get_info.php?id='..number..' '..theregword..' '..number..']'
	else
		regidword = '[https://okn-mk.mkrf.ru/cultureObjects/viewMaps/'..url..' '..theregword..' '..number..']'

	end
	end
	end
	end
	local statusarray = self:genstatus(statusid, numarray[1] or number, numWVarray[1] or wikivoyageid)
	statusid = statusarray.statusid
	statusword = statusarray.statusword or ''
	statusfirstword = statusarray.statusfirstword or ''
	local addstatuses = {}
	local addstatuseshash = {}
	local addstatusesfinal = {}
	if self.config.multistatuses==true then
	if math.max(self:tablecount(numarray), self:tablecount(numWVarray))>1 then
	local statustemp
	for i=2,math.max(self:tablecount(numarray), self:tablecount(numWVarray)),1 do
	statustemp = self:genstatus((self.args['Статус'] or self.args['статус'] or self.args['4'] or nil), numarray[i] or nil, numWVarray[i] or nil)
	addstatuses[#addstatuses+1]={['statusid']=statustemp.statusid,['statusword']=statustemp.statusword,['statusfirstword']=statustemp.statusfirstword}
	end
	if self:tablecount(addstatuses)>0 then
		addstatuseshash[statusarray] = true
	end
	for _,v in ipairs(addstatuses) do
	if (not addstatuseshash[v]) then
       addstatusesfinal[#addstatusesfinal+1] = v -- you could print here instead of saving to result table if you wanted
       addstatuseshash[v] = true
	end
	end
	--addstatuses, addstatuseshash = {}, {}
	end
	end
	regid = self:genreg(regid, numarray[1] or number, wikivoyageid)
	local coredataRegidtoreturn = statusid~='Ф' and regid or nil
	regcatword = ''
	if regid then
		if munid then
		self.Munconfig = self:getMunconfig(regid)
		end
	end
    statusarms = self:armsgen(regid, statusid, self:genmunicipality(munarmsid or munid))
    local munarmsID = statusid=='М' and (self:genmunicipality(munarmsid or munid)) or nil
    local addstatusesarms = {}
    if self.config.multistatuses==true then
    if self:tablecount(addstatusesfinal)>0 then
    	for _,v in pairs(addstatusesfinal) do
    	addstatusesarms[#addstatusesarms+1] = self:armsgen(regid, v.statusid, self:genmunicipality(munarmsid or munid))
    	end
    end
	end
	local gencatlink = self:gencatlink(regid, statusid, number, wikivoyageid, self:genmunicipality(munplaceid or munid))
	if not self.args['nocat'] then
	if namespacecheck==0 then
	if not self.args['утрачен'] then
	if self:gencat(regid, statusid, number, wikivoyageid, self:genmunicipality(munplaceid or munid))~='' then
	regcatword='[[Категория:'..self:gencat(regid, statusid, number, wikivoyageid, self:genmunicipality(munplaceid or munid))..']]'
	end
	if number or (wikivoyageid and ((wikivoyageid ~='') and (wikivoyageid ~= nil))) then
	if not table.contains(self.config.statussuppress,statusid) then
	regcatword='[[Категория:Объекты культурного наследия России по алфавиту]]'..regcatword
	--if not number then
	--добавляем tracking category
	--regcatword='[[Категория:Объекты культурного наследия России без 15-значных номеров]]'..regcatword
	--end
	if self.config.multistatuses==true then
	if self:tablecount(addstatusesfinal)>0 then
	for _,v in pairs(addstatusesfinal) do
	if not table.contains(self.config.statussuppress,v.statusid) then		
	regcatword=regcatword..'[[Категория:'..self:gencat(regid, v.statusid, number, wikivoyageid, self:genmunicipality(munplaceid or munid))..']]'
	end
	end
	end
	end
	end
	end
	end
	end
	end	
	return {['number']=number, ['regidword']=regidword, ['regcatword']=regcatword, ['statusid']=statusid, ['munarmsID']=munarmsID, ['regid']=coredataRegidtoreturn, ['gencatlink']=gencatlink, ['statusword']=statusword, ['statusarms']=statusarms, ['wikivoyageword']=wikivoyageword, ['statusfirstword']=statusfirstword,['addstatuses']=addstatusesfinal,['addstatusesarms']=addstatusesarms,}
end

function IRH:rendercatWVonly()
	if self.args['мини'] then self.config.collapsiblenumbers=false end
	local WVwikidata
	WVwikidata=self.frame:preprocess('{{wikidata|p1483|'..self:returnnotnil(self.args['1'] or self.args['Код-памятника'])..'|plain=true}}')
	local region = self.args['Регион'] or self.args['регион']
	local status = self.args['Статус'] or self.args['статус']
	local municipality = self.args['Муниципалитет'] or self.args['МО'] or self.args['Район'] or self.args['Город']
	self.ucfirst = true
	local Coredata = self:coregen(nil, nil, region, status, WVwikidata, municipality)
	return self.frame:preprocess(Coredata.regcatword)
end

function IRH:render()
	if self.args['мини'] then self.config.collapsiblenumbers=false end
	local WVwikidata
	WVwikidata = (self.config.disableWDlookup[2]~=true) and self.frame:preprocess('{{wikidata|p1483|'..self:returnnotnil(self.args['Код-памятника'])..'|plain=true}}') or self:returnnotnil(self.args['Код-памятника'])
	local EGRNNum
	EGRNNum = (self.config.disableWDlookup[1]~=true) and self.frame:preprocess('{{wikidata|P5381|'..self:returnnotnil(self.args['рег_N'] or self.args['1'])..'|plain=true}}') or self:returnnotnil(self.args['рег_N'] or self.args['1'])
	local URLnum = self.args['id_страницы'] or self.args ['2']
	local region = self.args['Регион'] or self.args['регион'] or self.args['3']
	local status = self.args['Статус'] or self.args['статус'] or self.args['4']
	local municipality = self.args['Муниципалитет'] or self.args['МО'] or self.args['Район'] or self.args['Город']
	local doc = self.args['док'] or self.args['Док']
	local renderdoc
	renderdoc = ''
	local div, divend
	div, divend = '', ''
	self.micro = mw.ustring.find(self:returnnotnil(self.args['мини']),'микро',0,true)~=nil and true or false
	if (self.micro==true) then
	self.micro = true
	theobjword, theregword = '',''
	end
	if doc and ((doc~=nil) and (doc~='')) then
	renderdoc = ' '..'('..doc..')'
	end		
	local statuswordrender
	local regidrender
	local WVrender
	local firstword
	local suppressrender
	wordseparator = self.args['мини'] and ', ' or '<br>'
	self.ucfirst = self.args['мини'] and true or false
	local Coredata = self:coregen(EGRNNum, URLnum, region, status, WVwikidata, municipality)
	local minidiv = mw.ustring.find(self:returnnotnil(self.args['мини']),'div',0,true)~=nil and true or false
	suppressrender = false
	if self.config.suppressablerender==true then
	if Coredata.statusid=='В' then
		if not (doc and ((doc~=nil) and (doc~=''))) then
			suppressrender=true
		end
	elseif table.contains(self.config.statussuppress,Coredata.statusid) then return ''
	else
		if (Coredata.wikivoyageword == '') and (not (Coredata.number and ((Coredata.number~=nil) and (Coredata.number~='')))) then
			if not (doc and ((doc~=nil) and (doc~=''))) then
			suppressrender=true
			end
		end
	end
	end
	if suppressrender==true then
		return ''
	else
	if self.args['мини'] then
	if (minidiv==true) then
	div, divend = '<div>','</div>'
	end
	if self.args['утрачен'] then 
		firstword = self.frame:preprocess('{{abbr|Утраченный|может быть восстановлен|0}} [[Объект культурного наследия России|'..(self.shortminiview==true and 'ОКН' or 'объект культурного наследия народов&nbsp;РФ')..']]')
	else
		firstword = '[[Объект культурного наследия России|'..(self.shortminiview==true and 'ОКН' or 'Объект культурного наследия народов&nbsp;РФ')..']]'
	end	
	if self.args['NumOnly'] then statuswordrender = '' else
	if Coredata.statusword == '' then statuswordrender = '' else statuswordrender = ' '..(self.shortminiview==true and self.frame:preprocess('{{Abbr|'..(mw.ustring.lower(mw.ustring.sub(Coredata.statusfirstword,1,(self.config.statshortnum[Coredata.statusid] or 3)))..'. зн')..'|'..Coredata.statusword..'|0}}') or Coredata.statusword) end
	end
	if (Coredata.statusword=='') and (Coredata.statusfirstword~='') then
	if not self.args['утрачен'] then
		firstword = (self.shortminiview==true and mw.ustring.sub(Coredata.statusfirstword,1,(self.config.statshortnum[Coredata.statusid] or 3)) or Coredata.statusfirstword)..' [[Объект культурного наследия России|объект культурного наследия народов&nbsp;РФ]]'
	end
	else
	if not ((Coredata.wikivoyageword == '') and (not (Coredata.number and ((Coredata.number~=nil) and (Coredata.number~=''))))) then
	renderdoc = ''
	end
	end
	local regdot
	if self.args['NumOnly'] then regdot = '' else regdot = (self.micro~=true and '. ' or '') end
	if Coredata.regidword~='' then
	local regnote
	regnote = self.shortminiview==false and ' ({{abbr|ЕГРОКН|Единый государственный реестр объектов культурного наследия|0}})' or ''
	if self.micro==true then
	if Coredata.wikivoyageword=='' then
	regnote = ''
	end
	end
	if (mw.ustring.sub(EGRNNum,1,1) == '{') or (mw.ustring.find(self:returnnotnil(EGRNNum),', ',0,true)~=nil) then
	regidrender =regdot..Coredata.regidword..regnote
	else
	regidrender =regdot..'{{nobr|1='..Coredata.regidword..'}}'..regnote end else regidrender = '' end
	local margin
	margin='margin-left: 0.2em; '
	local ArmstoRender
	if self.args['Без герба'] then
	ArmstoRender = ''
	if self.args['Без герба']=='nomargin' then
	margin = ''
	end
	else ArmstoRender = '[[Файл:'..Coredata.statusarms..'|20px|link='..(Coredata.gencatlink or '')..'|Объект культурного наследия народов РФ '..statuswordrender..(Coredata.statusarms~='Coat of Arms of the Russian Federation 2.svg' and (' ('..(Coredata.munarmsID~=nil and Coredata.munarmsID or Coredata.regid)..')') or '')..']]&nbsp;' end
	if self.args['NumOnly'] then firstword = '' end
	if Coredata.wikivoyageword~='' then
	local wvnote 
	wvnote = self.shortminiview==false and ' (БД Викигида)' or ''
	if (self.args['NumOnly']) and (Coredata.regidword=='') then WVrender = '{{nobr|1='..Coredata.wikivoyageword..'}}'..wvnote else WVrender = '. {{nobr|1='..Coredata.wikivoyageword..'}}'..wvnote end else WVrender = '' end
	local stringtoreturn = self.frame:preprocess(div..ArmstoRender..'<span title="Объект культурного наследия народов РФ" style="'..margin..'font-size: 85%;">'..(self.micro~=true and ((firstword or '[[Объект культурного наследия России|'..(self.shortminiview==true and 'ОКН' or 'Объект культурного наследия народов&nbsp;РФ')..']]')..statuswordrender..renderdoc) or '')..regidrender.. WVrender..'</span>'..div..Coredata.regcatword)
    return stringtoreturn	
	else
	if self.args['утрачен'] then
	firstword = self.frame:preprocess('{{abbr|Утраченный|Объект может быть восстановлен|0}} [[объект культурного наследия России]]')
	else
	firstword = self.frame:preprocess('[[Объект культурного наследия России]]')
	end
	if Coredata.statusword == '' then statuswordrender = '' else statuswordrender = ' '..Coredata.statusword
	end
	if (Coredata.statusword == '') and (Coredata.statusfirstword~='') then
	if not self.args['утрачен'] then
		firstword = Coredata.statusfirstword..' [[Объект культурного наследия России|объект культурного наследия народов&nbsp;РФ]]'
	end
	else
	if not ((Coredata.wikivoyageword == '') and (not (Coredata.number and ((Coredata.number~=nil) and (Coredata.number~=''))))) then
	renderdoc = ''
	end
	end
	if Coredata.regidword~='' then
	regidrender = self.frame:preprocess('<br><small>'..Coredata.regidword..' ({{abbr|ЕГРОКН|Единый государственный реестр объектов культурного наследия|0}})</small>') else regidrender = '' end
	if Coredata.wikivoyageword~='' then
	WVrender = '<br><small>'..Coredata.wikivoyageword..' (БД Викигида)</small>' else WVrender = '' end
	if renderdoc ~= '' then renderdoc = '<br>'..renderdoc end
	local embwidth, embclass, embbordercss, cellspa
	if not self.args['встраивать'] then
		embclass = 'infobox'
		embwidth = nil
		embbordercss = nil
	else
		embclass = nil	
		embwidth = '100%'
		embbordercss = '1px solid #a2a9b1'
		if self.args['встраивать']=='UNESCO' then
		cellspa = '5'
		end
	end	
	local builder = mw.html.create()
	builder = builder:tag('table')
    	:attr('width', embwidth)
    	:attr('cellspacing', cellspa)
    	:addClass(embclass)
    	:css('border', embbordercss)
    	:tag('tr')
    		:tag('td')
    			:cssText('vertical-align: middle; padding: 5px;')
    			:wikitext('[[Файл:'..Coredata.statusarms..'|45px|link='..(Coredata.gencatlink or '')..'|Объект культурного наследия народов РФ'..statuswordrender..(Coredata.statusarms~='Coat of Arms of the Russian Federation 2.svg' and (' ('..(Coredata.munarmsID~=nil and Coredata.munarmsID or Coredata.regid)..')') or '')..']]')
    			:done()
    		:tag('td')
    			:cssText('text-align:center; vertical-align:middle; background:'..(self.args['цвет']=='transparent' and self.args['цвет'] or '#dcebff')..'; width:100%')
    			:wikitext('<span style="white-space: normal !important; font-weight: bold;">'..(firstword or '[[Объект культурного наследия России]]')..statuswordrender..'</span>'..renderdoc..regidrender..WVrender..Coredata.regcatword)
    			:done()
    		:done()
    builder = builder:done()
	return builder 
	end
	end
end

function IRH:renderTextOnly()
	if self.args['мини'] then self.config.collapsiblenumbers=false end
	local WVwikidata
	WVwikidata = (self.config.disableWDlookup[2]~=true) and self.frame:preprocess('{{wikidata|p1483|'..self:returnnotnil(self.args['Код-памятника'])..'|plain=true}}') or self:returnnotnil(self.args['Код-памятника'])
	local EGRNNum
	EGRNNum = (self.config.disableWDlookup[1]~=true) and self.frame:preprocess('{{wikidata|P5381|'..self:returnnotnil(self.args['рег_N'] or self.args['1'])..'|plain=true}}') or self:returnnotnil(self.args['рег_N'] or self.args['1'])
	local URLnum = self.args['id_страницы'] or self.args ['2']
	local region = self.args['Регион'] or self.args['регион'] or self.args['3']
	local status = self.args['Статус'] or self.args['статус'] or self.args['4']
	local municipality = self.args['Муниципалитет'] or self.args['МО'] or self.args['Район'] or self.args['Город']
	local doc = self.args['док'] or self.args['Док']
	local renderdoc
	renderdoc = ''
	local div, divend
	div, divend = '', ''
	if doc and ((doc~=nil) and (doc~='')) then
	renderdoc = ' '..'('..doc..')'
	end		
	local statuswordrender
	local regidrender
	local WVrender
	local firstword
	local suppressrender
	wordseparator = self.args['мини'] and ', ' or '<br>'
	self.ucfirst = self.args['мини'] and true or false
	local Coredata = self:coregen(EGRNNum, URLnum, region, status, WVwikidata, municipality)
	suppressrender = false
	if Coredata.statusid=='В' then
		if not (doc and ((doc~=nil) and (doc~=''))) then
			suppressrender=true
		end
	elseif table.contains(self.config.statussuppress,Coredata.statusid) then return ''
	else
		if (Coredata.wikivoyageword == '') and (not (Coredata.number and ((Coredata.number~=nil) and (Coredata.number~='')))) then
			if not (doc and ((doc~=nil) and (doc~=''))) then
			suppressrender=true
			end
		end
	end
	if suppressrender==true then
		return ''
	else
	if self.args['мини'] then
	if self.args['мини']=='div' then
	div, divend = '<div>','</div>'
	end
	if self.args['утрачен'] then 
		firstword = self.frame:preprocess('{{abbr|Утраченный|может быть восстановлен|0}} [[Объект культурного наследия России|объект культурного наследия народов&nbsp;РФ]]')
	else
		firstword = '[[Объект культурного наследия России|Объект культурного наследия народов&nbsp;РФ]]'
	end	
	if self.args['NumOnly'] then statuswordrender = '' else
	if Coredata.statusword == '' then statuswordrender = '' else statuswordrender = ' '..Coredata.statusword end
	end
	if (Coredata.statusword=='') and (Coredata.statusfirstword~='') then
	if not self.args['утрачен'] then
		firstword = Coredata.statusfirstword..' [[Объект культурного наследия России|объект культурного наследия народов&nbsp;РФ]]'
	end
	else
	if not ((Coredata.wikivoyageword == '') and (not (Coredata.number and ((Coredata.number~=nil) and (Coredata.number~=''))))) then
	renderdoc = ''
	end
	end
	local regdot
	if self.args['NumOnly'] then regdot = '' else regdot = '. ' end
	if Coredata.regidword~='' then
	if mw.ustring.sub(EGRNNum,1,1) == '{' then
	regidrender =regdot..Coredata.regidword..' ({{abbr|ЕГРОКН|Единый государственный реестр объектов культурного наследия|0}})'
	else
	regidrender =regdot..'{{nobr|1='..Coredata.regidword..'}} ({{abbr|ЕГРОКН|Единый государственный реестр объектов культурного наследия|0}})' end else regidrender = '' end
	local margin
	margin='margin-left: 0.2em; '
	local ArmstoRender
	if self.args['NumOnly'] then firstword = '' end
	if Coredata.wikivoyageword~='' then 
	if (self.args['NumOnly']) and (Coredata.regidword=='') then WVrender = '{{nobr|1='..Coredata.wikivoyageword..'}} (БД Викигида)' else WVrender = '. {{nobr|1='..Coredata.wikivoyageword..'}} (БД Викигида)' end else WVrender = '' end
	local stringtoreturn = self.frame:preprocess((firstword or '[[Объект культурного наследия России|Объект культурного наследия народов&nbsp;РФ]]')..statuswordrender..renderdoc..regidrender.. WVrender..Coredata.regcatword)
    return stringtoreturn	
	else
	if self.args['утрачен'] then
	firstword = self.frame:preprocess('{{abbr|Утраченный|Объект может быть восстановлен|0}} [[объект культурного наследия России]]')
	else
	firstword = self.frame:preprocess('[[Объект культурного наследия России]]')
	end
	if Coredata.statusword == '' then statuswordrender = '' else statuswordrender = ' '..Coredata.statusword
	end
	if (Coredata.statusword == '') and (Coredata.statusfirstword~='') then
	if not self.args['утрачен'] then
		firstword = Coredata.statusfirstword..' [[Объект культурного наследия России|объект культурного наследия народов&nbsp;РФ]]'
	end
	else
	if not ((Coredata.wikivoyageword == '') and (not (Coredata.number and ((Coredata.number~=nil) and (Coredata.number~=''))))) then
	renderdoc = ''
	end
	end
	if Coredata.regidword~='' then
	regidrender = self.frame:preprocess('<br><small>'..Coredata.regidword..' ({{abbr|ЕГРОКН|Единый государственный реестр объектов культурного наследия|0}})</small>') else regidrender = '' end
	if Coredata.wikivoyageword~='' then
	WVrender = '<br><small>'..Coredata.wikivoyageword..' (БД Викигида)</small>' else WVrender = '' end
	if renderdoc ~= '' then renderdoc = '<br>'..renderdoc end
	local toreturn = self.frame:preprocess('<span style="white-space: normal !important; font-weight: bold;">'..(firstword or '[[Объект культурного наследия России]]')..statuswordrender..'</span>'..statuswordrender..renderdoc..regidrender..WVrender..Coredata.regcatword)
	return toreturn 
	end
	end
end

function IRH:GetArms()
	if self.args['мини'] then self.config.collapsiblenumbers=false end
	local WVwikidata
	WVwikidata = (self.config.disableWDlookup[2]~=true) and self.frame:preprocess('{{wikidata|p1483|'..self:returnnotnil(self.args['Код-памятника'])..'|plain=true}}') or self:returnnotnil(self.args['Код-памятника'])
	local EGRNNum
	EGRNNum = (self.config.disableWDlookup[1]~=true) and self.frame:preprocess('{{wikidata|P5381|'..self:returnnotnil(self.args['рег_N'] or self.args['1'])..'|plain=true}}') or self:returnnotnil(self.args['рег_N'] or self.args['1'])
	local URLnum = self.args['id_страницы'] or self.args ['2']
	local region = self.args['Регион'] or self.args['регион'] or self.args['3']
	local status = self.args['Статус'] or self.args['статус'] or self.args['4']
	local municipality = self.args['Муниципалитет'] or self.args['МО'] or self.args['Район'] or self.args['Город']
	local doc = self.args['док'] or self.args['Док']
	local renderdoc
	renderdoc = ''
	local div, divend
	div, divend = '', ''
	if doc and ((doc~=nil) and (doc~='')) then
	renderdoc = ' '..'('..doc..')'
	end		
	local statuswordrender
	local regidrender
	local WVrender
	local firstword
	local suppressrender
	wordseparator = self.args['мини'] and ', ' or '<br>'
	self.ucfirst = self.args['мини'] and true or false
	local Coredata = self:coregen(EGRNNum, URLnum, region, status, WVwikidata, municipality)
    return Coredata.statusarms
end

function IRH.new(frame, args)
	if not args then
		args = require('Module:Arguments').getArgs(frame, {wrappers = {'Template:Культурное наследие народов РФ', 'Template:Культурное наследие РФ', 'Template:Культурное наследие РФ 4', 'Template:Культурное наследие Крым','Template:Песочница/Seryo93/Культурное наследие Крым'}})
		--return
	end
	local obj = {
		frame = frame,
		args = args
	}
	return setmetatable(obj, IRH)
end

local p = {}

function p.main(frame)
	return IRH.new(frame):render()
	
end


function p.mainCatonly(frame)
	return IRH.new(frame):rendercatWVonly()
	
end

function p.mainCoregen(frame,args)
	return IRH.new(frame,args):renderTextOnly()
end


function p.mainArms(frame,args)
	return IRH.new(frame):GetArms()
end

return p