Module:Cite

د ويکيپېډيا، وړیا پوهنغونډ له خوا

استعمالېدنه لخوا د: Module:wikidata2.

سﺭچينه[سمول]

{{#invoke:Cite|cite|item=Q45604}}

Who's on First ID: https://spelunker.whosonfirst.org/id/421186119/ — د برېتانيکا انلاين پوهنغونډ پېژند: https://www.britannica.com/place/Kandahar — د کامنز انځورتون: کندهار — MusicBrainz area ID: https://musicbrainz.org/area/a8809616-2bd6-401a-b348-cea47df47697 — Gran Enciclopèdia Catalana ID: https://www.enciclopedia.cat/gran-enciclopedia-catalana/qandahar-0 — Bibliothèque nationale de France ID: https://catalogue.bnf.fr/ark:/12148/cb15321973q — GADM ID: https://www.gbif.org/occurrence/map?gadm_gid=AFG.15_1 — Trismegistos Geo ID: http://www.trismegistos.org/place/37191 — WordNet 3.1 Synset ID: http://wordnet-rdf.princeton.edu/id/08722223-n — Numista mint ID: https://en.numista.com/catalogue/mint.php?id=5439 — OpenStreetMap node ID: https://www.openstreetmap.org/node/97993575 — museum-digital place ID: https://term.museum-digital.de/md-de/place/1804 — NE.se ID: https://www.ne.se/uppslagsverk/encyklopedi/lång/kandahar — U.S. National Archives Identifier: https://catalog.archives.gov/id/10044392 — Online PWN Encyclopedia ID: https://encyklopedia.pwn.pl/haslo/;3919779.html — د اسرائيلي کتابتون J9U پېژند: http://olduli.nli.org.il/F/?func=find-b&local_base=NLX10&find_code=UID&request=987007536659905171 — پريبيس پېژند: https://g.co/kg/m/04dj2 — د کانګرېس کتابتون تائيد کوډ: https://id.loc.gov/authorities/n83042981 — UN/LOCODE: https://locode.info/AFKDH — Quora topic ID: https://www.quora.com/topic/Kandahar-Afghanistan — X username: https://x.com/KandaharMedia — WorldCat Identities ID (superseded): https://worldcat.org/identities/lccn-n83042981/ — جيونيمز پېژند: https://www.geonames.org/1138336 — ځايي مالوماتو پېژند: https://geonames.nga.mil/gn-ags/rest/services/RESEARCH/GIS_OUTPUT/MapServer/0/query?outFields=*&where=ufi+%3D+-3379064 — کی بي پېډيا پېژند: https://kbpedia.org/knowledge-graph/reference-concept/?uri=Kandahar-ProvinceAfghanistan — Interlingual Index ID: http://globalwordnet.org/ili/i82645 — کامنز وېشنيزه: Kandahar — په پکټ ګريډ کې د يوې سکالو پېژند: https://database.factgrid.de/wiki/Item:Q87022 — Gran Enciclopèdia Catalana ID (former scheme): https://www.enciclopedia.cat/ec-gec-0053473.xml — WOEID: https://www.flickr.com/places/info/1935376 — Pleiades ID: https://pleiades.stoa.org/places/59669 — Store norske leksikon ID: https://wikidata-externalid-url.toolforge.org/?p=4342&url_prefix=https://snl.no/&id=Kandahar — Den Store Danske ID: https://wikidata-externalid-url.toolforge.org/?p=8313&url_prefix=https://denstoredanske.lex.dk/&id=Kandahar — Larousse ID: https://www.larousse.fr/encyclopedie/ville/wd/126510 — RKD thesaurus ID: https://rkd.nl/explore/thesaurus?term=94695 — TDV İslam Ansiklopedisi ID: https://islamansiklopedisi.org.tr/kandehar — انسايکلوپېډيا نړيوال پېژند: https://www.universalis.fr/encyclopedie/kandahar/ — منود پېژندونکی: https://viaf.org/viaf/134903120/ — iNaturalist place ID: https://www.inaturalist.org/places/13586 — NL CR AUT ID: https://aleph.nkp.cz/F/?func=find-c&local_base=aut&ccl_term=ica=ge307111 — دوتنې ټوليزه پېژندنه: https://d-nb.info/gnd/4109990-4 — فېسبوک پېژند: https://www.facebook.com/Kandahar.mediaoffice — Getty Thesaurus of Geographic Names ID: https://vocab.getty.edu/page/tgn/1001493 — idRef پېژند: https://www.idref.fr/158141245 — لويې روسيې پوهنغونډ پېژند (زړه نسخه): https://old.bigenc.ru/text/2041084

ښکاﺭېدنه[سمول]

{{#invoke:Cite|reflist|item=Q14405740 Q17355847 Q15220486}}

{{#ifeq:Cite|sandbox|| 

--/-- Creates a timeline for an item based on various properties 
local Known_properties = {"P304",  "P50", "P957",  "P478", "P98", "P393", "P1476", "P357", "P123", "P577", "P433", "P275", "P698", "P356", "P958", "P1433",  "P1680", "P1683", "P387", "P1065" ,"P212","P854","P170","P248","P143"}--,"P345"
local p = {}
local wikidata = require('Module:Wikidata2').formatStatementsFromLua
local quall =  require('Module:Cite/quall')
--local wikidata2 = require(''Module:Wikidata2').formatEntityId -- table
local Options = {}

local function make_P345_link( s ) 
	local IMDB_Table = {
	['tt'] = 'https://www.imdb.com/title/$1/',
	['co'] = 'https://www.imdb.com/search/title?companies=$1',
	['ev'] = 'https://www.imdb.com/event/$1/',
	['nm'] = 'https://www.imdb.com/name/$1/',
	['ni'] = 'https://www.imdb.com/news/$1/',
	}
	local s2 = s:sub(1,2)
	--mw.log("s2" .. s2 )
	if IMDB_Table[s2] then 
		local fo = mw.ustring.gsub( IMDB_Table[s2], '$1', s )
		return '[' .. fo .. ' ' .. fo .. ']' 
	end
	return s
end
local function getentityprop(entity, p , pattern )
    -- get automatically url
    local addTracking = "t"
	local Pattern = (pattern or 'autourl4')--autourl3
	if p == "P345" then 
		Pattern = "" 
		addTracking = "" 
		end
	local tot =  wikidata({ property = p , pattern = "" , noref = 'true', conjunction = ' & ',enlabelcate ='true', addTrackingCat= addTracking
		, noicon = "t" , raw2  = Options.raw or ""
	})
	if not tot or tot == '' then
		tot =  wikidata({entityId = entity, property = p , pattern = Pattern , noref = 'true', conjunction = ' & ',enlabelcate ='true'
			, addTrackingCat= addTracking , noicon = "t" , raw2  = Options.raw or "" })
	end
	
	if p == "P345" then tot = make_P345_link(tot) end
--	if tot and tot ~= '' then
	--	return tot --نښلول: 
	--end
	
	if tot and tot ~= '' then
		tot = 'پیوستون : ' .. tot
	end
	return  tot
end

--[[
   يجلب خواص معينة عند وجود مراجع محددة مسبقاً
--]]
local function getsomequall(entity, snak, property)
	if snak[property]
	and snak[property][1]
	and snak[property][1].datavalue
	and snak[property][1].datavalue.value['numeric-id']
	then 
		id = snak[property][1].datavalue.value['numeric-id'] 
		local l10n = quall[id]
		if l10n then
			local q = {}
			for _, v in pairs(l10n) do
				mw.log("Module:Cite finding " .. v[1] .. ", id:" .. id )
				b =  getentityprop (entity, v[1] , v[3])
				if b and b ~= '' 
					then table.insert( q, b ) 
				end
			end
			t =  table.concat( q )
			if t and t ~= '' then
				return t
			end
		end
	end
end

local function get_property_label( Id )
	local label = mw.wikibase.label( Id )
	return label
end

local function geturl(url,text)
	if url and url ~= '' then 
		return '[' .. url .. ' ' .. (text or url) .. ']'
	end
end

local function labeel(property,text)
		local pro = mw.wikibase.label( property ) 
			if not text or text == '' then text = pro end 
		if text then 
			return text
		end
end
local function P1629(property,text)
	--local pro = wikidata({property = 'P1629', nolink = 'true', entityId = property, firstvalue = 'true', noref = 'true',enlabelcate ='true' , label = get_property_label(property) }) 
	local pro = get_property_label(property)
	if not text or text == '' then text = pro end 
	if text then 
		return text
	end
end

local function ValueFromItem(items, property,firstvalue)
	local pattern = 'autourl'
	if property =='P212' or property =='P957' then pattern = nil end -- no automatic link for ISBN
	for i, item in pairs(items) do
		ednumber = wikidata({entityId = item, property = property , firstvalue = firstvalue, pattern =pattern
			, noref = 'true', modifytime = 'longdate',enlabelcate ='true'})
	end
	return ednumber 
end

local function ValueFromEntityId(entity, property,firstvalue)
	local pattern = 'autourl'
	val = wikidata({entityId = entity, property = property, firstvalue = firstvalue, pattern = pattern
		, noref = 'true', modifytime = 'longdate',enlabelcate ='true'})
	if val then 
		return val 
	end
end

--local function GetValueFromEntityId(snak,entity, property, firstvalue)
local function GetValueFromEntityId(snak , property , firstvalue)
	--local A = wikidata({property = 'P1629', entityId = property,enlabelcate ='true' , firstvalue = 'true', noref = 'true', label = get_property_label( property )}) 
	local A = get_property_label(property)
	local Pattern = "autourl"
	if property == "P345" then Pattern = "" end
	local prop = wikidata({property = property, firstvalue = firstvalue, noref = 'true'
		, pattern = Pattern, modifytime = 'longdate'}, snak)
	--mw.log("prop" .. prop )
	if property == "P345" then prop = make_P345_link(prop) end
	--mw.log('Module:Cite property:"' .. property .. '"' )
	--mw.log('Module:Cite prop:"' .. prop .. '"' )
	--if not prop then prop = ValueFromEntityId(entity, property,firstvalue) end
	if prop  and prop ~= '' then
		if A  and A ~= '' then
			return A .. ': ' .. prop
		else
			return prop
		end
	end
end

local function GetValueFromItem(items, snak, property , text,firstvalue)
	local pattern = 'autourl'
	if property =='P212' or property =='P957' then pattern = nil end -- no automatic link for ISBN
	local prop = wikidata({property = property
		, firstvalue = firstvalue
		, pattern = pattern
		, noref = 'true'
		, modifytime = 'longdate'
		,enlabelcate ='true'}, snak)
	if not prop 
		then prop = ValueFromItem(items, property,firstvalue)
	end
	if prop and prop ~= '' then
		if text and text ~= '' then prop  = text ..': '.. prop end
	end
	return prop
end

local function get_number_from_item(items, property)
	for i, item in pairs(items) do
		ednumber = wikidata({entityId = item, property = property, firstvalue = 'yes',enlabelcate ='true'})
		if ednumber then 
			return ednumber 
		end
	end
end
local function getnumber(items, snak, property,text)

	--local tex = wikidata({property = 'P1629', entityId = property, firstvalue = 'true', noref = 'true', label = get_property_label(property ) 
		--, label = wikidata2(property, {nolink = 'true', noref = 'true',enlabelcate ='true'}).value
	--})
	local tex = get_property_label(property ) 

	local number = wikidata({property = property, firstvalue = 'true',enlabelcate ='true'}, snak)
	if not number then
		number = get_number_from_item(items, property)
	end
    if not text then text = tex else end

	if number  and number ~= '' then
		 if text then
		 	return text ..': '.. number  
	 			else return number
	 		end
	end
end

local function GetItemValue(items, snak, property , text,firstvalue)
	local pattern = 'autourl'
	--	if property =='P212' or property =='P957' then pattern = nil end -- no automatic link for ISBN
	local prop = wikidata({property = property, firstvalue = (firstvalue or ''), pattern = pattern, noref = 'true', modifytime = 'longdate'
		,separator='، او',conjunction='، او'}, snak)
		if not prop then prop = ValueFromItem(items, property,(firstvalue or '')) end
	
	if prop and prop ~= '' then
		if text and text ~= '' then prop  = text ..': ' .. prop end
	end
	return prop
end

local function GetNumberFromItem(items, snak, property , text,firstvalue)
	local prop = wikidata({property = property, firstvalue = 't'}, snak)
	for i, item in pairs(items) do
		ednumber = wikidata({entityId = item, property = property , firstvalue = 'true', noref = 'true'})
	end
		if not prop then prop = ednumber  end
	if prop and prop ~= '' then
		if text and text ~= '' then prop  = text .. prop end
	end
	return prop
end

--[[
  د ملکیتونو لپاره چې د ملکیت هیڅ حواله نه لري     P1065,P854
--]]

local function getLink(items, snak, property,text)
	-- local tex = labeel(property,text)
	local links = wikidata({property = property, pattern = 'true', noref = 'true' , firstvalue = 'true'}, snak)
	if links and links ~= '' then
		if text and text ~= '' 
			then return geturl(links,text)
			else return links
 		end
	end
end
local function get_Link_from_item(items, snak, property,text)
	local links = ValueFromItem(items, property,'true')
	local tex = labeel(property,text)
	if links and links ~= '' then
		if tex and tex ~= '' 
			then return  tex ..': '.. links
			else return links
 		end
	end
end
--[[
  جلب أي تاريخ من الخواص مثل
     P813,P577
--]]

local function getdate( snak, property,text)
	-- local tex = labeel(property,text)
	if snak[property] then
		local dat = wikidata({property = property, pattern = 'true', noref = 'true', modifytime = 'longdate'}, snak)
		if dat and dat ~= '' then
			if text and text ~= '' 
				then return text .. ': '.. dat
				else return dat
	 		end
		end
	end
end

local function getdate1(items, snak, property,text)
	for i, item in pairs(items) do
		local datetime1 = wikidata({entityId = item, property =property, noref = 'true',enlabelcate ='true', modifytime = 'longdate' })
	end
	if text then
		return text ..': '.. datetime1
			else return datetime1
	end
end

local function getedition(items, snak )
	local ordning = {'اول', 'دوهم', 'دريم', 'څلرم', 'ّپنجم', 'شپږم', 'اووم', 'اتم', 'نهم', 'لسم', 'يوولس', 'دوولس'}	local ednumber;
	if snak['P393'] then
		ednumber = wikidata({property = 'P393', firstvalue = 'true',enlabelcate ='true'}, snak)
	else
		ednumber = get_number_from_item(items, "P393")
	end
	if not ednumber then 
		return nil
	end
	if not tonumber(ednumber) then
		return  ' نسخه ' .. ednumber 
	end
	if ordning[tonumber(ednumber)] then
		return  ' نسخه' .. ordning[tonumber(ednumber)] 
	end
	local sist = string.sub(ednumber, string.len(ednumber))
	if sist == '1' or sist == '2' then
		return  ' : نسخه' .. ednumber 
	else
		return ' : نسخه' .. ednumber 
	end
end

local function getsubtitle(items, snak)-- needs i18n some languages do not use this format
	local s = {}
	if snak['P1680'] then
		table.insert(s, wikidata({property = 'P1680', firstvalue = 'true',enlabelcate ='true'}, snak))
	else
		for i, item in pairs( items) do
			local lab = wikidata({property = 'P1680',enlabelcate ='true', entityId = item, firstvalue = 'true', noref = 'true'})
			local sitelink = mw.wikibase.sitelink( item )
			if sitelink and lab then
				table.insert(s, '[[:' .. sitelink .. '|' .. lab .. ']]')
			elseif sitelink then
				table.insert(s, '[[:' .. sitelink .. ']]')
			elseif lab then
				table.insert(s, lab)
			end
		end
	end
	tot = table.concat(s, ' — ')
	if tot and tot ~= '' then
		return tot
	else
		return nil
	end
end

local function gettitle(items, snak)
	local link = getLink(items, snak, 'P854') or getLink(items, snak, 'P1065','')  -- the title will be with the link
	local title = GetItemValue(items, snak, 'P1476' ,  'سرليک' ,' ')
	local subtitle = GetItemValue(items, snak, 'P1680' ,  'سرليک' ,' ')
		if not title or title =='' then title = subtitle end
		if link and link ~= ''
		then
			return '' 
		else 
			return title
		end
end

local function getwhatever(snak, property)
	if snak[property] then
		--mw.log("Module:Cite getwhatever property " .. property)
		local a = get_property_label(property)
		--local a = wikidata({property = 'P1629', entityId = property, firstvalue = 'true', noref = 'true',enlabelcate ='true', label =  get_property_label(property)}) 
			
		local s = {}
		--local items = {}
		--mw.log("Module:Cite find snak.property " .. property)
		for j, prop in pairs(snak[property]) do
			if prop.snaktype == 'value' then
				item = 'Q' .. prop.datavalue.value['numeric-id']
				--table.insert(items, item)
				faso =  wikidata({entityId = item, property = property, noref = 'true', conjunction = ', ',enlabelcate ='true'})
				table.insert( s, faso )
			end 
		end
		if property == "P143" then a = 'عواید له  ' end
		if property == "P248" then a = "'''یادونه لخوا د'''" end
		--table.insert(s, wikidata({property = property, conjunction = ', ',enlabelcate ='true'}, snak))
		if #s > 0 then
			return (a or  '') .. "''':''' " .. table.concat(s, ', ')
		end
	end
end

--local function gettherest(snak, entity)
local function gettherest(snak)
	local s = {}
	for property, j in pairs(snak) do
		Known = false
		for k, l in pairs(Known_properties) do
			if property == l then 
				Known = true
			end
		end
		if not Known then
			local entity1 = mw.wikibase.getEntityObject( property )
			if entity1.claims and ( entity1.datatype == 'string' or entity1.datatype == 'external-id' ) then
				--local vaa =  GetValueFromEntityId(snak , entity , property , 'true' )
				local vaa =  GetValueFromEntityId(snak , property , 'true' )
				--mw.log("Module:Cite gettherest property:" .. property )
				table.insert(s, vaa) 
			end
		end
	end
	if #s > 0 then
		return table.concat(s, ' — ')
	end
end

function numbers( items, snak)
	local section  = GetNumberFromItem(items, snak, 'P958','موضوع: ')
	local volume  = GetNumberFromItem(items, snak, 'P478','ورځپاڼه: ')
	local page = GetNumberFromItem(items, snak, 'P304','پاڼه: ')
	local issue = GetNumberFromItem(items, snak, 'P433','اعداد: ')

	field = {}
		if section and section ~= '' then 	table.insert(field, section)	end
		if volume and volume ~= '' then 	table.insert(field, volume)	end
		if page and page ~= '' then 	table.insert(field, page)	end
		if issue and issue ~= '' then 	table.insert(field, issue)	end
	return table.concat(field, ' — ')
end

local function getISBN(items, snak)
	local ISBN13 = GetNumberFromItem(items, snak, 'P212' ,'ISBN ','yes') --ISBN 13
	local ISBN10 = GetNumberFromItem(items, snak, 'P957' ,'ISBN ','yes')  --ISBN 10
		if not ISBN13 or ISBN13 =='' then ISBN13 = ISBN10 end
	return ISBN13  
end

function doipmid( items, snak)
	local doi = GetValueFromItem(items, snak, "P356" )-- Digital Object Identifier
	local pmid = GetValueFromItem(items, snak, "P698" )-- Identifier for journal 
	local pmc = GetValueFromItem(items, snak,'P932')-- identifier issued by PubMed Central
	field = {}
	if doi and doi ~= '' then 	table.insert(field, doi)	end
	if pmid and pmid ~= '' then 	table.insert(field, pmid)	end
	if pmc and pmc ~= '' then 	table.insert(field, pmc)	end
	return table.concat(field, ' — ')
end

local function Getquall(snak , entity)
	local quall = getsomequall(entity, snak, "P143" )
	local quall1 = getsomequall(entity, snak, "P248" )
		if not quall or quall =='' then quall = quall1 end
	return quall
end

function getMultiLink(items, snak , entity)
	local title = GetItemValue(items, snak, 'P1476' ,'' ,'')
	local link = getLink(items, snak, 'P854',title)--,'یو آر ایل اخیستنه له'
	local link1 = get_Link_from_item(items, snak, 'P854') -- 
	--local therest = gettherest(snak, entity)
	local therest = gettherest(snak)
	local quall = Getquall(snak , entity)
	local fulltext = get_Link_from_item(items, snak, 'P953') -- 
	local accessdate =getdate(snak, 'P813','د نشر نېټه')
	local archive  = getLink(items, snak, 'P1065','')
	field = {}
	if link and link ~= '' 					then newtab = link  --We don't need to search for some links if they here already
	elseif therest and therest ~= ''  		then newtab = therest 
	elseif quall and quall ~= ''  			then newtab = quall 
	elseif link1 and link1 ~= ''  			then newtab = link1  -- last thing we want to see
	elseif fulltext and fulltext ~= ''  	then newtab = fulltext
	end
	if link and link ~='' then if archive and archive ~='' then archiveandlink = 't' end end
		if newtab and newtab ~= '' then
			table.insert(field, newtab) 
			if accessdate and accessdate ~= '' then table.insert(field, accessdate)  end
		end
	if archiveandlink and archiveandlink ~= '' 
	then 
		return '' 
	else
		return table.concat(field, ' — ')
	end
end

function getarchiveLink(items, snak , entity)
	local title = GetItemValue(items, snak, 'P1476' ,'' ,'')
	local link = getLink(items, snak, 'P854','')

	local archive  = getLink(items, snak, 'P1065','')
	local archive1  = getLink(items, snak, 'P1065','آرکیو یو آر ایل')
	local archivedate =getdate(snak, 'P2960','')-- د ارشیف نېټه 
	local accessdate =getdate(snak, 'P813','د نشر نېټه')
	local aa =  geturl((archive or link),title)
	
	field = {}
	if archive and archive ~= '' then 
		if aa and aa ~= '' then table.insert(field, aa) end
		if link and link ~='' then
			org = geturl(link,'اصل')
			if accessdate and accessdate ~= '' then table.insert(field, accessdate)  end
		end
			a =  ' آرشيف ' .. (org or 'اصل')
			if archivedate and archivedate ~= ''  then a =a ..   ' په ' 	.. archivedate end
			table.insert(field, a)
	end
	return table.concat(field, ' — ')
end

function getreftable( items, snak , hash , options )
    local entity = options.entityId
	local author = GetValueFromItem(items, snak, 'P50','دوتنه')
	--local editor = getEditor(items, snak )
	local editor = GetValueFromItem(items, snak, 'P98','سمونګر')
	local title = gettitle(items, snak )
	local publisher = GetValueFromItem(items, snak, 'P123','خپرونکی')
	local creator = GetValueFromItem(items, snak, 'P170','پیدا کوونکی')
	local publishedin = GetValueFromItem(items, snak, 'P1433','نشرونه لخوا د')

	--local publishedin = getpublishedin(items, snak )
	--local publishdate = getPublishdate(items, snak )
	local publishdate = getdate( snak, 'P577','د خپرولو نیټه')
	local edition = getedition(items, snak )
	local number = numbers( items, snak)
	local doipmid = doipmid( items , snak)
	local isbn = getISBN(items, snak ) --0

	--local whatever= whatever(items, snak, "P212" )
	local import = getwhatever(snak, "P143" ) or getwhatever(snak, "P248" )

	local MultiLink = getMultiLink(items, snak , entity)
	local archiveLink = getarchiveLink(items, snak , entity)
	
	local license = GetItemValue(items, snak, 'P275','منښتلیک')
	local quote =  GetItemValue(items, snak, 'P1683' ,  'ارزښت' ,' ') --  
	if title and title ~= '' and subtitle and subtitle ~= '' then 
		--title = title .. ' : ' .. subtitle
	end
	for i, item in pairs(items) do
		if item == 'Q36578' 
			then edition,author  = nil,nil
		end
	end
	field = {}
	--if whatever and whatever ~= '' then table.insert(field,whatever) end
	if import and import ~= '' then table.insert(field, import) end
	
	if MultiLink and MultiLink ~= '' then table.insert(field, MultiLink)  end
	if archiveLink and archiveLink ~= '' then table.insert(field, archiveLink)  end

	if author and author ~= '' then table.insert(field, author) end
	if editor and editor ~= '' then table.insert(field, editor) end
	if title and title ~= '' then table.insert(field, title) end
	if edition and edition ~= '' then table.insert(field, edition) end
	if number and number ~= '' then 	table.insert(field, number)	end

	if publisher and publisher ~= '' then table.insert(field, publisher) end
	if creator and creator ~= '' then table.insert(field, creator) end
	if publishedin and publishedin ~= '' then table.insert(field, publishedin) end
	if publishdate and publishdate ~= '' then table.insert(field, publishdate) end
    if appliestopart and appliestopart ~= '' then table.insert(field, appliestopart) end
	if isbn and isbn ~= '' then 	table.insert(field, isbn)	end
	if doipmid and doipmid ~= '' then 	table.insert(field, doipmid)	end

	if license and license ~= '' then table.insert(field, license) end
	if quote and quote  ~= '' then table.insert(field, quote ) end
	
	local doo =  table.concat(field, ' — ')
	if doo and doo ~= '' then
		return doo --mw.getCurrentFrame():extensionTag( 'ref', doo, {name = hash} )
	end
end

local function findblacklist(items)
	 -- function to ignore Sister projects
	local val = 'false'
	local s = {}
		for i, item in pairs(items) do
			function qoo(item,property)
				return wikidata({entityId = item, property = property , noref = 'true',firstvalue='1',formatting = 'raw'})
			end
			local wiki = qoo(item, 'P1800') or qoo(item, 'P1566') or qoo(item,'P21') -- all wikimedia site ,GeoNames ,gender
			local wik2 = qoo(item, 'P31')
			local blackk = {"Q20651139"
				,  "Q465"
				, "Q15241312" 
				, 'Q52'  -- Wikipedia 
				} 
			for k, b in pairs(blackk) do
				if item == b then  val = 'true' end
			end
			if wiki and wiki  ~= ''
				then val = 'true'
				elseif wik2 == 'Q5' -- Human is not a direct reference
					or wik2 == 'Q184188'  -- Also Canton
					or wik2 == 'Q1250464' then val = 'true' -- Also places
			end
	end
	return val
end

local ref_cash = {}

function p.citeitem( items, snak , hash , options , notag)
	Options = options
	if hash and hash ~= "" and ref_cash[hash] then 
		--mw.log("Module:Cite ref_cash[hash] = " .. hash)
		return ref_cash[hash] 
	end
	if not items and not snak then return nil end
	if type(items) == 'string' then
		items= {items}
	end
	items= {}
	if snak.P248 then
		for j, prop in pairs(snak.P248) do
			if prop.snaktype == 'value' then
				table.insert(items, 'Q' .. prop.datavalue.value['numeric-id'])
			end 
		end
	elseif snak.P143 then
		for j, prop in pairs(snak.P143) do
			if prop.snaktype == 'value' then
			table.insert(items, 'Q' .. prop.datavalue.value['numeric-id'])
			end 
		end
	end
	local blacklist1 = findblacklist(items)
	if blacklist1 == 'true' then return nil end
	--local findtype = FindTypeOfRefrence(items, snak, options)
	local refrence = getreftable( items, snak , hash , options )
	if refrence and refrence ~=''  then
		if notag and notag ~=''  then
			refrence = refrence
		else
			refrence = mw.getCurrentFrame():extensionTag( 'ref', refrence, {name = hash} )
		end
	end
	if hash and hash ~= "" then 
		ref_cash[hash] = refrence
	end
	return refrence
end

function p.citeitem2( ref , options , notag)
	Options = options
	if not ref then return nil end
	local hash = ref.hash
	local snak = ref.snaks
	local snnaks = ""
	if hash and hash ~= "" and ref_cash[hash] then 
		--mw.log("Module:Cite ref_cash[hash] = " .. hash)
		return ref_cash[hash] 
	end
	for Px, prope in pairs(snak) do
		snnaks = snnaks .. "," .. Px
	end
	--mw.log( "Module:Cite Citeitem2 hash: " ..  hash )
	--mw.log( "Module:Cite *snnaks : " ..  snnaks )
	items= {}
	if snak.P248 then
		for j, prop in pairs(snak.P248) do
			if prop.snaktype == 'value' then
				table.insert(items, 'Q' .. prop.datavalue.value['numeric-id'])
			end 
		end
	elseif snak.P143 then
		for j, prop in pairs(snak.P143) do
			if prop.snaktype == 'value' then
			table.insert(items, 'Q' .. prop.datavalue.value['numeric-id'])
			end 
		end
	end
	local blacklist1 = findblacklist(items)
	if blacklist1 == 'true' then return nil end
	--local findtype = FindTypeOfRefrence(items, snak, options)
	local refrence = getreftable( items, snak , hash , options )
	if refrence and refrence ~='' then
		if notag and notag ~='' then
			refrence = refrence
			else
			refrence = mw.getCurrentFrame():extensionTag( 'ref', refrence, {name = hash} )
			end
		end
	if hash and hash ~= "" then 
		ref_cash[hash] = refrence
	end
	return refrence
end

function p.reflist(frame)
	local list = mw.text.split( frame.args.item, ' ')
	local s = {}
	for i, j in pairs(list) do
    	local item = mw.wikibase.getEntityObject( mw.text.trim(j) )
		local str = p.citeitem( {mw.text.trim(j)} , item.claims, mw.text.trim(j)..i , frame.args , 't')
		if str then table.insert(s, '*'.. str) end
	end
	return table.concat(s, '\n')
end

function p.cite(frame)
    	local item = mw.wikibase.getEntityObject( frame.args.item )
    	if not item then return 'no item ' end
    		return p.citeitem( {frame.args.item} , item.claims, frame.args.item, frame.args , 't')
end

function p.listquall(frame)
	local list = mw.html.create("table")
	list:addClass("wikitable sortable collapsible")
	local head = list:tag("tr")
	head:tag("th"):wikitext("#")
	head:tag("th"):wikitext("خاصیت")
	head:tag("th"):wikitext("خاصیت")
	local number = 0
	for v, nam in pairs(quall) do
		for _1, nam1 in pairs(nam) do
			number = number + 1
			local row = list:tag("tr")
			row:tag("td"):tag("span"):wikitext(number)
			local th = row:tag("td")
			local rr = row:tag("td")
			local dd = frame:preprocess("{{Q|Q".. v .."}}") 
			th:tag("span"):wikitext(dd)
			local u = frame:preprocess("{{P|".. nam1[1] .."}}") 
			rr:tag("span"):wikitext(u)
		end
	end
	return list
end	
return p
"https://ps.wikipedia.org/w/index.php?title=Module:Cite&oldid=262809" نه اخيستل شوی