Module:Wikidata2

Documentation for this module may be created at Module:Wikidata2/doc

local p = {}
local Frame_args = {}
local Moduletext
local Modulecite
local Moduleflags
local InfoboxImage
local ModuleGlobes
local formatera
local weblink

local citetitle = "Module:Cite Q"
if nil ~= string.find(mw.getCurrentFrame():getTitle(), "ملعب", 1, true) then
	citetitle = "Module:Cite Q/ملعب"
end

local i18n = {
	["errors"] = {
		["property-param-not-provided"] = "وسيط property غير متوفر.",
		["entity-not-found"] = "الكيان غير موجود.",
		["unknown-claim-type"] = "نوع claim غير معروف.",
		["unknown-snak-type"] = "نوع snak غير معروف.",
		["unknown-datatype"] = "نوع data غير معروف.",
		["unknown-entity-type"] = "نوع entity غير معروف.",
		["unknown-value-module"] = "يجب عليك تعيين كل من  value-module و value-function.",
		["unknown-claim-module"] = "يجب عليك تعيين كل من claim-module و claim-function.",
		["unknown-property-module"] = "يجب عليك تعيين كل من property-module و property-function.",
		["property-module-not-found"] = "الوحدة المستخدمة في وسيط property-module غير موجودة.",
		["property-function-not-found"] = "الوظيفة المستخدمة في وسيط property-function غير موجودة.",
		["value-module-not-found"] = "الوحدة المستخدمة في وسيط value-module غير موجودة.",
		["value-function-not-found"] = "الوظيفة المستخدمة في وسيط value-function غير موجودة.",
		["claim-module-not-found"] = "الوحدة المستخدمة في وسيط claim-module غير موجودة.",
		["claim-function-not-found"] = "الوظيفة المستخدمة في وسيط claim-function غير موجودة."
	},
	["noarabiclabel"] = "تصنيف:صفحات_ويكي_بيانات_بحاجة_لتسمية_عربية",
	["warnDump"] = "[[Category:Called function 'Dump' from module Wikidata]]",
	["somevalue"] = "", --'"غير محدد"'
	["novalue"] = "", --قيمة مجهولة
	["cateref"] = "[[" .. "تصنيف:صفحات بها مراجع ويكي بيانات" .. "]]",
	["to translate"] = "صفحات تستعمل معطيات من ويكي بيانات بحاجة لترجمة",
	["trackingcat"] = "صفحات تستخدم خاصية $1",
	["see-wikidata-value"] = "الاطلاع ومراجعة البيانات على ويكي داتا",
	["see-wikidata"] = "راجع العنصر من ويكي بيانات المقابل",
	["see-another-project"] = "مقالة على $1",
	["see-another-language"] = "مقالة على ويكيبيديا $1"
}
local sortingproperties = {"P585", "P571", "P580", "P569", "P582", "P570"}
local sorting_methods = {
	["chronological"] = "chronological",
	["تصاعدي"] = "chronological",
	["asc"] = "chronological",
	["inverted"] = "inverted",
	["تنازلي"] = "inverted",
	["desc"] = "inverted"
}

local falsetitles = {
	"Template:قيمة ويكي بيانات",
	"Module:Wikidata2"
}

local skiip_items = {
	["P106"] = {
		"Q42857", -- prophet
		"Q14886050", -- terrorist
		"Q2159907" -- criminal
	}
}

function isvalid(x)
	if x and x ~= "" then return x end
	return nil
end

function isntvalid(x)
	if not x or x == "" or x == nil then return true end
	return false
end

function No_Tracking_cat(options)
	if isvalid(options.formatting) == "raw" or isvalid(options.formatting) == "sitelink" then
		return true
	end
	local notracking = isvalid(options.nocate) or isvalid(options.notracking) or isvalid(Frame_args.notracking)
	local raw = isvalid(options.raw) or isvalid(Frame_args.raw) or isvalid(options.raw2) or isvalid(Frame_args.raw2)
	local nolink = isvalid(options.nolink) or isvalid(Frame_args.nolink)
	if notracking or raw or nolink then
		return true
	end
	local pagetitle = mw.title.getCurrentTitle().text
	for _, title in pairs(falsetitles) do
		if string.find(pagetitle, title, 1, true) then
			mw.log("notracking for title with: " .. title)
			return true
		end
	end
	return false
end

function addTrackingCategory(options)
	if No_Tracking_cat(options) then
		return ""
	end
	local cat = require("Module:Wikidata/تتبع").makecategory1
	local category = cat(options)
	local nbsp = " "
	if isvalid(options.nbsp) then
		nbsp = ""
	end
	if isvalid(category) then
		return nbsp .. category
	end
	return ""
end

function catewikidatainfo(options)
	--[[  function to add tracking category ]]
	if No_Tracking_cat(options) then
		return ""
	end
	local cat = ""
	local prop = options.property
	cat = cat .. " [[" .. "تصنيف:صفحات بها بيانات ويكي بيانات|" .. (prop or "wikidata") .. "]]"
	if isntvalid(options.nolink) then
		return cat
	else
		return ""
	end
end

function getqualifierbysortingproperty(claim, sortingproperty)
	for k, v in pairs(sortingproperty) do
		if claim and claim.qualifiers and claim.qualifiers[v] and claim.qualifiers[v][1].snaktype == "value" then
			local vali = claim.qualifiers[v][1].datavalue.value.time or claim.qualifiers[v][1].datavalue.value.amount
			if vali:sub(1, 1) == "+" then
				vali = vali:sub(2)
			end
			--mw.log(vali)
			return vali
		end
	end
	return nil
end

function get_sorting_properties(options)
	if type(options.sortingproperty) == "table" then
		return options.sortingproperty
	elseif type(options.sortingproperty) == "string" and options.sortingproperty ~= "" then
		return mw.text.split(options.sortingproperty, ",")
	else
		return sortingproperties
	end
end

function getDate(claim, options)
	local sortingproperty = get_sorting_properties(options)
	return getqualifierbysortingproperty(claim, sortingproperty)
end

function get_entityId(options)
	local id = isvalid(options.entityId) or isvalid(options.id) or isvalid(options.qid)
	if id then
		return id
	end
	if isvalid(options.page) then
		id = mw.wikibase.getEntityIdForTitle(options.page)
	else
		id = mw.wikibase.getEntityIdForCurrentPage()
	end
	return id or ""
end

function countSiteLinks(id)
	local numb = 0
	local entity = mw.wikibase.getEntityObject(id)
	if entity and entity.sitelinks then
		for i, v in pairs(entity.sitelinks) do
			numb = numb + 1
		end
	end
	return numb
end

function make_format_num(String)
	local line = String
	line = mw.getCurrentFrame():preprocess("{{ {{{|safesubst:}}}formatnum: " .. String .. " }}")
	line = mw.ustring.gsub(line, "٫", ".")
	line = mw.ustring.gsub(line, "٬", ",")
	return line
end

function formatcharacters(label, options)
	local formatch = options.formatcharacters
	--if options.FormatfirstCharacter and options.num == 1 then
	--formatch = options.FormatfirstCharacter
	--end

	local String2 = mw.ustring.gsub(label, "–", "-")
	local march_y =
		mw.ustring.match(String2, "%d%d%d%d%-%d%d%d%d", 1) or mw.ustring.match(String2, "%d%d%-%d%d%d%d", 1) or
		mw.ustring.match(String2, "%d%d%d%d", 1) or
		mw.ustring.match(String2, "%d%d%d%d%-%d%d", 1) or
		mw.ustring.match(String2, "%d%d%d%d", 1)

	if isvalid(options.illwd2y) then
		return march_y or label
	end
	if isvalid(options.illwd2noy) and march_y then
		label = mw.ustring.gsub(label, march_y, "")
		return label
	end

	if isntvalid(formatch) then
		return label
	end

	local prepr = {
		["lcfirst"] = "{{lcfirst: " .. label .. " }}",
		["lc"] = "{{lc: " .. label .. " }}",
		["uc"] = "{{uc: " .. label .. " }}"
	}
	if prepr[formatch] then
		return mw.getCurrentFrame():preprocess(prepr[formatch])
	elseif formatch == "ucfirst" then
		return mw.language.getContentLanguage():ucfirst(label)
	elseif formatch == "formatnum" then
		return make_format_num(label)
	end
	return label
end

function descriptionIn(langcode, id) -- returns item description for a given language
	if isntvalid(langcode) then
		langcode = "ar"
	end
	langcode = mw.text.trim(langcode or "")
	id = mw.text.trim(id or "")
	if langcode == "ar" then
		local description, lange = mw.wikibase.getDescriptionWithLang(id)
		if lange == langcode then
			return description
		else
			return nil
		end
	else
		local entity = getEntityFromId(id)
		if entity and entity.descriptions then
			local description = entity.descriptions[langcode]
			if description and description.value then
				if description["language"] == langcode then
					return description.value
				end
			end
		end
	end
	return nil
end

function labelIn(langcode, id) -- returns item label for a given language
	if isntvalid(langcode) then
		langcode = "ar"
	end
	if type(id) ~= "string" then
		id = tostring(id)
	end
	langcode = mw.text.trim(langcode or "")
	id = mw.text.trim(id or "")
	local label = mw.wikibase.getLabelByLang(id, langcode) or nil
	return label
end

function get_snak_id(snak)
	if
		snak and snak.type and snak.type == "statement" and snak.mainsnak and snak.mainsnak.snaktype and
			snak.mainsnak.snaktype == "value" and
			snak.mainsnak.datavalue and
			snak.mainsnak.datavalue.type and
			snak.mainsnak.datavalue.type == "wikibase-entityid" and
			snak.mainsnak.datavalue.value and
			snak.mainsnak.datavalue.value.id
	 then
		ID = snak.mainsnak.datavalue.value.id
		return ID
	end
end

function comparedates(a, b) -- returns true if a is earlier than B or if a has a date but not b
	if a and b then
		return a > b
	elseif a then
		return true
	end
end

function getDateArb(claim, sorting_properties)
	local sortingproperty = sorting_properties
	if claim.mainsnak.snaktype == "value" then
		local item = claim.mainsnak.datavalue.value["numeric-id"]
		if claim.mainsnak.datavalue.value["entity-type"] == "item" then
			item = "Q" .. item
		elseif claim.mainsnak.datavalue.value["entity-type"] == "property" then
			item = "P" .. item
		end
		for k, prop in pairs(sortingproperty) do
			local date =
				formatStatements({property = prop, entityId = item, firstvalue = "t", noref = "t", modifytime = "q"})
			if isvalid(date) then
				--mw.log("item:".. item .. ", prop:".. prop .. ", date:".. date)
				return date
			end
		end
	end
end

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

function dontget(claims, options)
	--[[
	options.dontget
	options.dontgetproperty
	]]
	local claims2 = {}
	local dontget_values = mw.text.split(options.dontget, ",")

	for _, claim in pairs(claims) do
		local id = get_snak_id(claim)
		if id then
			local valid = true
			local t2 =
				formatStatements({property = (options.dontgetproperty or "P31"), entityId = id, noref = "t", raw = "t"})

			if t2 and #t2 > 0 then
				for _, state in pairs(t2) do
					if table_contains(dontget_values, state.item) then
						valid = false
						break
					end
				end
			end

			if valid then
				table.insert(claims2, claim)
			end
		end
	end

	return claims2
end

function getonly(claims, options)
	--[[
	-- options.getonly
	-- options.getonlyproperty
	]]
	local claims2 = {}
	local getonly_values = mw.text.split(options.getonly, ",")

	for _, claim in pairs(claims) do
		local id = get_snak_id(claim)
		if id then
			local t2 =
				formatStatements({property = (options.getonlyproperty or "P31"), entityId = id, noref = "t", raw = "t"})
			if t2 and #t2 > 0 then
				for _, state in pairs(t2) do
					if table_contains(getonly_values, state.item) then
						table.insert(claims2, claim)
						break
					end
				end
			end
		end
	end

	return claims2
end

function claimindex(claims, options)
	local claims2 = {}
	for j, index in pairs(mw.text.split(options.claimindex, ",")) do
		if tonumber(index) and #claims >= tonumber(index) then
			table.insert(claims2, claims[tonumber(index)])
		end
	end
	return claims2
end

function avoidvalue(claims, options)
	local avoidvalue = options.avoidvalue
	if type(avoidvalue) == "string" then
		avoidvalue = mw.text.split(avoidvalue, ",")
	elseif type(avoidvalue) ~= "table" then
		return claims
	end

	local claims4 = {}
	for i, j in pairs(claims) do
		local ID = get_snak_id(j)
		if ID and not table_contains(avoidvalue, ID) then
			table.insert(claims4, j)
		end
	end
	return claims4
end

function prefervalue(claims, options)
	local prefervalue = options.prefervalue
	if type(prefervalue) == "string" then
		prefervalue = mw.text.split(prefervalue, ",")
	elseif type(prefervalue) ~= "table" then
		return claims
	end

	local claims3 = {}
	for _, claim in pairs(claims) do
		local ID = get_snak_id(claim)
		if ID and table_contains(prefervalue, ID) then
			table.insert(claims3, claim)
		end
	end

	return claims3
end

function preferqualifier(claims, options)
	--[[
	-- options.preferqualifier
	-- options.preferqualifiervalue
	]]
	local claims2 = {}
	local preferq_values = mw.text.split(options.preferqualifiervalue or "", ",")

	for _, statement in pairs(claims) do
		if statement.qualifiers and statement.qualifiers[options.preferqualifier:upper()] then
			if isvalid(options.preferqualifiervalue) then
				for _, quall in pairs(statement.qualifiers[options.preferqualifier:upper()]) do
					if quall.snaktype == "value" and table_contains(preferq_values, quall.datavalue.value["id"]) then
						table.insert(claims2, statement)
						break
					end
				end
			else
				table.insert(claims2, statement)
			end
		end
	end

	return claims2
end

function avoidqualifier(claims, options)
	-- options.avoidqualifier
	-- options.avoidqualifiervalue
	if isntvalid(options.avoidqualifier) then
		return claims
	end

	local av = options.avoidqualifier:upper()
	local avoidqualifiervalue_values =
		type(options.avoidqualifiervalue) == "string" and mw.text.split(options.avoidqualifiervalue, ",") or
		options.avoidqualifiervalue
	local claims2 = {}

	for _, statement in pairs(claims) do
		if not statement.qualifiers or not statement.qualifiers[av] then
			table.insert(claims2, statement)
		elseif isvalid(options.avoidqualifiervalue) then
			local active = true
			for _, quall in pairs(statement.qualifiers[av]) do
				if
					quall.snaktype == "value" and quall.datavalue and quall.datavalue.value and
						quall.datavalue.value["id"] and
						table_contains(avoidqualifiervalue_values, quall.datavalue.value["id"])
				 then
					active = false
					break
				end
			end
			if active then
				table.insert(claims2, statement)
			end
		end
	end

	return claims2
end

function claims_limit(claims, limit)
	local newclaims = {}
	if type(limit) ~= "number" then
		limit = tonumber(limit)
	end
	if limit and type(limit) == "number" then
		if limit < 1 or #claims < limit then
			return claims
		end
		for i = 1, #claims do
			if i <= limit then
				newclaims[i] = claims[i]
			end
		end
		return newclaims
	end
	return claims
end

function claims_offset(claims, offset)
	local offsetclaims = {}
	if type(offset) ~= "number" then
		offset = tonumber(offset)
	end
	if offset and type(offset) == "number" then
		for i = offset + 1, #claims do
			offsetclaims[#offsetclaims + 1] = claims[i]
		end
		return offsetclaims
	end
	return claims
end

function sortbyarb(claims, sorting_properties, options)
	local sortingmethod = options.sortbyarbitrary or options.sortingmethod
	--mw.log("sortbyarb: " .. sortingmethod)

	table.sort(
		claims,
		function(a, b)
			local timeA = getDateArb(a, sorting_properties)
			local timeB = getDateArb(b, sorting_properties)
			if sortingmethod == "inverted" or sorting_methods[sortingmethod] == "inverted" then
				return comparedates(timeB, timeA)
			else
				return comparedates(timeA, timeB)
			end
		end
	)
	return claims
end

function sort_langs(claims, options)
	local claims7 = {}
	local arabic_id = {["P407"] = 13955, ["P282"] = 8196} -- Q13955 = "العربية", Q8196 = "أبجدية عربية"

	for _, statement in pairs(claims) do
		for prop, id in pairs(arabic_id) do
			if statement.qualifiers and statement.qualifiers[prop] then
				for _, v in pairs(statement.qualifiers[prop]) do
					if v.snaktype == "value" and v.datavalue.value["numeric-id"] == id then
						table.insert(claims7, statement)
						break
					end
				end
			end
		end
	end

	if #claims7 > 0 then
		claims = claims7
	end

	return claims
end

function sortbyqualifier(claims, sorting_properties, options)
	if not sorting_properties or #sorting_properties == 0 then
		sorting_properties = get_sorting_properties(options)
	end
	
	local sort_by = sorting_methods[options.sortbytime] or options.sortbytime

	table.sort(
		claims,
		function(a, b)
			local timeA = getqualifierbysortingproperty(a, sorting_properties)
			local timeB = getqualifierbysortingproperty(b, sorting_properties)
			if sort_by == "inverted" then
				return comparedates(timeB, timeA)
			else
				return comparedates(timeA, timeB)
			end
		end
	)
	return claims
end

function sortbyqualifiernumber(claims, sorting_properties, options)
	if not sorting_properties or #sorting_properties == 0 then
		sorting_properties = get_sorting_properties(options)
	end

	local sort_by = sorting_methods[options.sortbynumber] or options.sortbynumber

	table.sort(
		claims,
		function(a, b)
			local timeA = getqualifierbysortingproperty(a, sorting_properties)
			local timeB = getqualifierbysortingproperty(b, sorting_properties)
			if sort_by == "inverted" then
				return comparedates(timeB, timeA)
			else
				return comparedates(timeA, timeB)
			end
		end
	)
	return claims
end

function sort_claims(claims, options)
	local sortingmethod = options.sortbyarbitrary or options.sortingmethod
	local sorting_properties = get_sorting_properties(options)

	if isvalid(options.sortbytime) and sorting_methods[options.sortbytime] then
		if #sorting_properties == 0 then
			sorting_properties = sortingproperties
		end
		claims = sortbyqualifier(claims, sorting_properties, options)
	elseif isvalid(options.sortbynumber) and sorting_methods[options.sortbynumber] then
		claims = sortbyqualifiernumber(claims, sorting_properties, options)
	elseif isvalid(sortingmethod) and sorting_methods[sortingmethod] then
		claims = sortbyarb(claims, sorting_properties, options)
	end
	return claims
end

function filter_claims(claims, options)
	local claims = claims

	if isntvalid(options.langpref) then
		claims = sort_langs(claims, options)
	end

	claims = sort_claims(claims, options)

	local offset = options.offset
	if isvalid(offset) then
		claims = claims_offset(claims, offset)
	end

	local limit = options.limit
	if isvalid(limit) then
		claims = claims_limit(claims, limit)
	end

	if isvalid(options.avoidqualifier) then -- to avoid value with a given qualifier
		claims = avoidqualifier(claims, options)
	end

	if isvalid(options.preferqualifier) then
		claims = preferqualifier(claims, options)
	end

	-- options.avoidvalue
	if isvalid(options.avoidvalue) then
		claims = avoidvalue(claims, options)
	end

	-- options.prefervalue
	if isvalid(options.prefervalue) then
		claims = prefervalue(claims, options)
	end

	-- options.getonly
	if isvalid(options.getonly) then
		claims = getonly(claims, options)
	end

	-- options.dontget
	if isvalid(options.dontget) then
		claims = dontget(claims, options)
	end

	local firstvalue = options.enbarten or options.firstvalue
	local first = isvalid(tonumber(firstvalue))
	if isvalid(first) and #claims > 1 then
		if #claims > 0 then
			first = tonumber(first) or 1
			if first > 0 and first <= #claims then
				claims = {claims[first]}
			else
				claims = {claims[1]}
			end
		end
	elseif isvalid(firstvalue) and #claims > 0 then
		claims = {claims[1]}
	end

	local numval = options.numval
	if numval and type(numval) ~= "number" then
		numval = tonumber(numval)
	end
	if numval and type(numval) == "number" and #claims > 1 and #claims > numval then
		local claimsnumval = {}
		local ic = 1
		while (numval >= ic) and (#claims >= ic) do
			table.insert(claimsnumval, claims[ic])
			ic = ic + 1
		end
		claims = claimsnumval
	end

	return claims
end

function getEntityFromId(id)
	return isvalid(id) and mw.wikibase.getEntityObject(id) or mw.wikibase.getEntityObject()
end

function formatError(key)
	return i18n.errors[key]
end

function formatOneStatement(statement, ref, options)
	local value = nil
	local stat = formatStatement(statement, options)
	if not stat then
		return {v = value, raw = stat}
	end

	local s = stat.value
	if isntvalid(s) then
		return {v = value, raw = stat}
	end

	if not stat.qualifiers then
		stat.qualifiers = {}
	end

	local P585 = stat.P585 or ""
	local tf = stat.tifr
	local awardqual = stat.foto
	local ro = stat.ro
	local qp1a = stat.qp1a
	local onlyqualifier = stat.onlyqualifier
	local qp1 = stat.qp1
	local qp2 = stat.qp2
	local qp3 = stat.qp3
	local qp4 = stat.qp4
	local qp5 = stat.qp5
	local reff = stat.reff

	if reff and isvalid(options.reff) then
		s = s .. reff
	end
	if isvalid(options.template) then
		s =
			mw.getCurrentFrame():expandTemplate {
			title = options.template,
			args = {
				stat.QQ1,
				s,
				stat.QQ2,
				stat.QQ3,
				stat.QQ4,
				stat.QQ5,
				stat.QQ6,
				stat.QQ7,
				stat.QQ8,
				stat.QQ9,
				stat.QQ10,
				entityId = options.entityId,
				v1 = options.v1,
				id = stat.ID
			}
		}
	end
	if isvalid(options.football) then
		s =
			mw.getCurrentFrame():expandTemplate {
			title = "صندوق معلومات سيرة كرة قدم/سطر فريق",
			args = {
				stat.qualifiers.P580 or "",
				stat.qualifiers.P582 or "",
				s,
				stat.amatch,
				stat.goal
			}
		}
	end

	if isvalid(options.office) then
		s =
			mw.getCurrentFrame():expandTemplate {
			title = "معلومات صاحب منصب/منصب ويكي بيانات/نواة",
			args = {
				office = s,
				termstart = stat.qualifiers.P580 or "",
				termend = stat.qualifiers.P582 or "",
				constituency = stat.qualifiers.P768 or "",
				predecessor = stat.qualifiers.P1365 or "",
				successor = stat.qualifiers.P1366 or "",
				series = stat.qualifiers.P1545 or "",
				of = stat.qualifiers.P642 or "",
				electedin = stat.qualifiers.P2715 or "",
				jurisdiction = stat.qualifiers.P1001 or "",
				employer = stat.qualifiers.P108 or "",
				entityId = options.entityId
			}
		}
	end

	local function qoo(Prefix, qualpref, p, Suffix)
		if isvalid(p) then
			local stri = (Prefix or " (") .. (qualpref or "") .. p .. (Suffix or ")")
			if isvalid(options.nosmall) then
				return stri
			else
				return mw.text.tag("small", {}, stri)
			end
		end
	end
			  
	local QPrefix = isvalid(options.qualifierprefix)
	local QSuffix = isvalid(options.qualifiersuffix)

	if isvalid(qp1) and isvalid(options.qual1) and isvalid(qp1a) and isvalid(options.qual1a) then
		s = s .. 
			qoo(QPrefix, options.qual1pref, qp1, QSuffix) .. qoo(QPrefix, options.qp1apref, qp1a, QSuffix)

	elseif isvalid(qp1) and isvalid(options.qual1) then
		s = s .. qoo(QPrefix, options.qual1pref, qp1, QSuffix)

	elseif isvalid(qp1a) and isvalid(options.qual1a) then
		s = s .. qoo(QPrefix, options.qp1apref, qp1a, QSuffix)
	end

	if isvalid(qp2) and isvalid(options.qual2) then
		s = s .. qoo(QPrefix, options.qual2pref, qp2, QSuffix)
	end

	if isvalid(qp3) and isvalid(options.qual3) then
		s = s .. qoo(QPrefix, options.qual3pref, qp3, QSuffix)
	end
	if isvalid(qp4) and isvalid(options.qual4) then
		s = s .. qoo(QPrefix, options.qual4pref, qp4, QSuffix)
	end
	if isvalid(qp5) and isvalid(options.qual5) then
		s = s .. qoo(QPrefix, options.qual5pref, qp5, QSuffix)
	end

	if isvalid(options.justthisqual) then
		if onlyqualifier then
			s = onlyqualifier
		else
			s = nil -- We need only the qualifier
		end
	end
	if isvalid(ro) and isvalid(options.withro) then
		s = s .. qoo(QPrefix, "", ro, QSuffix)
	end

	if isvalid(P585) and isvalid(options.withdate) then
			if options.withdate == "y" then
				s = s .. qoo(QPrefix, "سنة ", P585, QSuffix)
			elseif options.withdate == "before" then
				s = "*" .. P585 .. ":" .. s .. "\n"
			else
				s = s .. qoo(QPrefix, "", P585, QSuffix)
			end
		end

	if awardqual and isvalid(options.awardqua) then
		s = s .. qoo(QPrefix, "", awardqual, QSuffix)
	end

	local bothdates = options.withintervall or options.bothdates
	if tf and isvalid(bothdates) then
		if bothdates == "line" then
			s = s .. mw.text.tag("br") .. qoo(QPrefix, "", tf, QSuffix)
		elseif bothdates == "before" then
			s = qoo(QPrefix, "", tf, QSuffix) .. s
		else
			s = s .. qoo(QPrefix, "", tf, QSuffix)
		end
	end

	if type(ref) == "table" or (isvalid(options.noref)) or (isvalid(options.justthisqual)) then
		value = s
	else
		local t = formatReferences(statement, options)
		stat.ref = t
		if isvalid(options.justref) then
			value = t
		elseif isvalid(options.onlyvaluewithref) then
			if isvalid(t) then
				value = s .. t
			end
		else
			value = s .. t
		end
	end
	return {v = value, raw = stat}
end

function formatStatements(options, LuaClaims)
	local valuetable = {} -- formattedStatements
	local claims = {}

	if isntvalid(options.property) and isvalid(options.pid) then
		options.property = options.pid
	end
	
	if isntvalid(options.property) then
		return formatError("property-param-not-provided")
	end
	local option1 = options.option1
	if option1 and options.option1value then
		options[option1] = options.option1value
		options['"' .. option1 .. '"'] = options.option1value
	--mw.log( "option1: " .. option1 .. "value: " .. options.option1value  )
	end
	if type(LuaClaims) == "table" then
		claims = LuaClaims[options.property] or {}
		mw.log("module:wikidata2: claims = LuaClaims[options.property]")
	else
		--Get entity
		local entity = nil
		if options.entity and type(options.entity) == "table" then
			entity = options.entity
		else
			local id = get_entityId(options)
			if isvalid(id) then
				local check = mw.ustring.match(id, "Q%d+") or mw.ustring.match(id, "P%d+")
				if check == nil then
					mw.addWarning(id .. " لا يمثل معرف ويكي بيانات صحيح")
					return ""
				else
					options.entityId = id
					options.qid = id
				end
			end
			entity = getEntityFromId(id)
		end
		--local property = mw.wikibase.resolvePropertyId( options.property:upper() )
		local property = options.property:upper()

		if not entity then
			return ""
		end --TODO error?
		if not entity.claims or not entity.claims[property] then
			if isvalid(options.otherproperty) then
				options.property = options.otherproperty
				property = options.otherproperty:upper()
			end
		end
		if property == nil then
			return ""
		end
		if not entity.claims or not entity.claims[property] then
			return "" --TODO error?
		end

		--Format statement and concat them cleanly
		if options.rank == "best" or isntvalid(options.rank) then
			--claims = entity:getAllStatements( property )
			claims = entity:getBestStatements(property)
		elseif options.rank == "valid" then
			for i, statement in pairs(entity.claims[property]) do
				if statement.rank == "preferred" or statement.rank == "normal" then
					table.insert(claims, statement)
				end
			end
		elseif options.rank == "all" then
			for i, statement in pairs(entity.claims[property]) do
				table.insert(claims, statement)
			end
		else
			for i, statement in pairs(entity.claims[property]) do
				if statement.rank == options.rank then
					table.insert(claims, statement)
				end
			end
		end
	end
	claims = filter_claims(claims, options)
	local statementsraw = {}
	local All_claims = claims
	if claims then
		if options["property-module"] or options["property-function"] then
			if not options["property-module"] or not options["property-function"] then
				return formatError("unknown-property-module")
			end
			local formatter = require("Module:" .. options["property-module"])
			if not formatter then
				return formatError("property-module-not-found")
			end
			local fun = formatter[options["property-function"]]
			if not fun then
				return formatError("property-function-not-found")
			end

			mw.log("work with property-module: " .. options["property-module"] .. "|" .. options["property-function"])
			return fun(claims, options)
		else
			for i, statement in pairs(claims) do
				options.num = i
				local va = formatOneStatement(statement, LuaClaims, options)
				if va.v then
					table.insert(valuetable, va.v)
				end
				table.insert(statementsraw, va.raw)
			end
		end
	end

	if isvalid(options.raw) then
		if isvalid(options.rawtolua) then
			return mw.getCurrentFrame():extensionTag("source", mw.dumpObject(statementsraw), {lang = "lua"})
		end
		return statementsraw
	end

	local priff = ""
	local Separator = options.separator -- or ""
	local Conjunction = options.conjunction -- or ""

	if Separator == "br" or Conjunction == "br" then
		Separator = mw.text.tag("br")
	end
	if Separator == "*" then
		priff = "\n*"
		Separator = "\n*"
	end
	if Separator == "#" then
		priff = "\n#"
		Separator = "\n#"
	end
	if isvalid(options.justref) then
		priff = ""
		Separator = ""
	end

	local tot = mw.text.listToText(valuetable, Separator, Separator)
	if #valuetable > 1 then
		tot = priff .. tot
	end

	if isntvalid(tot) then
		tot = nil
	end
	if isvalid(options.returnnumberofvalues) or options.returnnumberofvalues == true then
		return tot, #valuetable
	end
	if isvalid(options.numberofclaims) then
		return #All_claims
	end
	return tot
end

function p.formatAndCat(args)
	if args == nil then
		return nil
	end

	Frame_args = args
	args.linkback = args.linkback or true
	args.addcat = true
	if isvalid(args.value) and args.value == "-" then
		return nil
	end
	if isvalid(args.value) then
		local val = args.value .. addTrackingCategory(args)
		val = p.addLinkBack(val, args.entity, args.property)
		return val
	end
	return p.formatStatementsFromLua(args)
end

function formatReferences(statement, options)
	local ic = 1
	local reference = {}
	local numberofref = tonumber(options.numberofreferences) or 7
	local qid = get_entityId(options)
	local statementreferences = statement.references

	if statementreferences then
		if Modulecite == nil then
			Modulecite = require(citetitle)
		end
		for i, ref in ipairs(statementreferences) do
			if ref.snaks and numberofref >= ic then
				local s = Modulecite._cite_wikidata(ref, qid)
				if isvalid(s) then
					ic = ic + 1
					table.insert(reference, s)
				end
			end
		end
	end

	local final = table.concat(reference)
	if isvalid(final) then
		final = final .. i18n.cateref
	end
	return final or ""
end

function formatqualifiers(statement, s, options)
	s.qualifiers = {}
	local function qua(p, firstvalue, modifytime)
		local vvv
		if isvalid(p) then
			vvv =
				formatStatements(
				{
					property = p,
					enlabelcate = "t",
					firstvalue = (firstvalue or ""),
					modifytime = (modifytime or "longdate"),
					noref = "t"
				},
				statement.qualifiers
			) or ""
			s.qualifiers[p] = vvv
			return vvv
		end
	end

	if isvalid(options.template) then
		s.ID = statement.mainsnak.datavalue.value.id
		s.QQ1 = qua(options.Q1)
		s.QQ2 = qua(options.Q2)
		s.QQ3 = qua(options.Q3)
		s.QQ4 = qua(options.Q4)
		s.QQ5 = qua(options.Q5)
		s.QQ6 = qua(options.Q6)
		s.QQ7 = qua(options.Q7)
		s.QQ8 = qua(options.Q8)
		s.QQ9 = qua(options.Q10)
		s.QQ10 = qua(options.Q10)
	end
	if isvalid(options.football) then
		if statement.qualifiers.P1350 or statement.qualifiers.P1351 then
			s.amatch = qua("P1350", "true")
			s.goal = qua("P1351", "true")
		end
	end
	if (isvalid(options.football)) or (isvalid(options.office)) then
		s.start1 = qua("P580", "true")

		s.finish1 = qua("P582", "true")
	end
	if isvalid(options.office) then
		if
			statement.qualifiers.P580 or statement.qualifiers.P582 or statement.qualifiers.P1365 or
				statement.qualifiers.P1366
		 then
			s.before1 = qua("P1365", "true")
			s.after1 = qua("P1366", "true")
			s.constituency1 = qua("P768")
			s.series1 = qua("P1545")
			s.electedin1 = qua("P2715", "")
			s.pp1001 = qua("P1001")
			s.pp108 = qua("P108")
			s.pp642 = qua("P642")
		end
	end

	if isvalid(options.withdate) then
		--if statement.qualifiers.P585 then
		s.P585 = qua("P585", "true", options.modifyqualifiertime)
	end
	local qwe = options.qwer
	if statement.qualifiers.qwe then
		s.ro = qua(qwe, "true")
	end
	local bothdates_option = options.withintervall or options.bothdates
	if isvalid(bothdates_option) then
		if statement.qualifiers.P580 or statement.qualifiers.P582 then
			local f = qua("P580", "true", options.modifyqualifiertime)
			local t = qua("P582", "true", options.modifyqualifiertime)
			s.tifr = f .. "–" .. t
		end
	end
	if isvalid(options.awardqua) then
		if statement.qualifiers.P585 or statement.qualifiers.P1346 then
			local fo = qua("P585", "true", options.modifyqualifiertime)
			local to = qua("P1346", "true")
			s.foto = fo .. " " .. mw.text.tag("span", {}, " " .. to .. "")
		end
	end
	local function quaaal(opti, options)
		if isvalid(opti) and statement.qualifiers[opti] then
			local kkk =
				formatStatements(
				{
					property = opti,
					noref = "t",
					separator = options.qualifierseparator,
					conjunction = options.qualifierconjunction,
					size = options.size,
					image = options.image,
					modifytime = options.modifyqualifiertime,
					enlabelcate = "t",
					langpref = options.langpref,
					showlang = options.showlang
				},
				statement.qualifiers
			) or ""

			s.qualifiers[opti] = kkk
			return kkk
		end
	end

	if isvalid(options.justthisqual) and statement.qualifiers[options.justthisqual] then
		s.onlyqualifier = quaaal(options.justthisqual, options)
	end
	if isvalid(options.qual1) and statement.qualifiers[options.qual1] then
		s.qp1 = quaaal(options.qual1, options)
	end
	if isvalid(options.qual1a) and statement.qualifiers[options.qual1a] then
		s.qp1a = quaaal(options.qual1a, options)
	end
	if isvalid(options.qual2) and statement.qualifiers[options.qual2] then
		s.qp2 = quaaal(options.qual2, options)
	end
	if isvalid(options.qual3) and statement.qualifiers[options.qual3] then
		s.qp3 = quaaal(options.qual3, options)
	end
	if isvalid(options.qual4) and statement.qualifiers[options.qual4] then
		s.qp4 = quaaal(options.qual4, options)
	end
	if isvalid(options.qual5) and statement.qualifiers[options.qual5] then
		s.qp5 = quaaal(options.qual5, options)
	end
end

function formatSnak(snak, options)
	if snak.snaktype == "somevalue" then
		local somevalue = options.somevalue or i18n["somevalue"]
		return {value = somevalue}
	elseif snak.snaktype == "novalue" then
		local novalue = options.novalue or i18n["novalue"]
		return {value = novalue}
	elseif snak.snaktype == "value" then
		local s = formatDatavalue(snak.datavalue, snak.datatype, options)
		if s and s.value and isvalid(s.value) then
			s.value = (options.prefix or "") .. s.value .. (options.suffix or "")
		end
		return s
	else
		return {value = formatError("unknown-snak-type")}
	end
end

function formatStatement(statement, options)
	if options["claim-module"] or options["claim-function"] then
		if not options["claim-module"] or not options["claim-function"] then
			return {value = formatError("unknown-claim-module")}
		end
		local formatter = require("Module:" .. options["claim-module"])
		if formatter == nil then
			return {value = formatError("claim-module-not-found")}
		end
		local fun = formatter[options["claim-function"]]
		if fun == nil then
			return {value = formatError("claim-function-not-found")}
		end
		return {value = fun(statement, options)}
	elseif statement.type == "statement" then
		local s = formatSnak(statement.mainsnak, options)
		if isvalid(s) then
			s.qualifiers = {}
			if statement.qualifiers then
				local qualu = formatqualifiers(statement, s, options)
			--if isvalid(qualu) then table.insert(qualu) end
			end
			if statement.references then
				if isvalid(options.reff) then
					s.reff = formatReferences(statement, options)
				end
			end
		end
		return s
	elseif not statement.type then
		return formatSnak(statement, options)
	end
	return {value = formatError("unknown-claim-type")}
end



function get_property1(options, item)
	--[[ function to get countries flags without reload large countries items ]]
	local flagprop = {"p27", "p1532", "p17", "p495", "p1376"}
	local work_flag = false
	if string.lower(options.property1) == "p41" then
		for k, l in pairs(flagprop) do
			if string.lower(options.property) == l then
				work_flag = true
			end
		end
	end
	local caca = ""
	local size = options.size or ""
	if isntvalid(size) then
		size = "20"
	end
	if work_flag then
		if Moduleflags == nil then
			Moduleflags = require("Module:Wikidata2/Flags")
		end
		local flag = Moduleflags[item]
		if isntvalid(flag) then
			flag =
				formatStatements(
				{
					property = options.property1,
					otherproperty = options.otherproperty1,
					entityId = item,
					rank = options.property1rank,
					pattern = options.property1pattern,
					formatting = options.property1formatting,
					noref = "t",
					firstvalue = "t"
				}
			)
		--mw.log("get flag2 :" .. flag .. ", for item ".. item )
		end
		if isvalid(flag) then -- return real image
			if isvalid(options.image) then -- return real image
				caca = "[[file:" .. flag .. "|" .. size .. "px|" .. "border" .. "]]"
			--caca = Infobox_Image( {image=flag, size=size, maxsize = "280x330px", center=options.center} )
			--mw.log("get flag :" .. flag .. ", for item ".. item )
			end
		end
	end
	if isntvalid(caca) then
		caca =
			formatStatements(
			{
				property = options.property1,
				otherproperty = options.otherproperty1,
				entityId = item,
				rank = options.property1rank,
				pattern = options.property1pattern,
				formatting = options.property1formatting,
				size = options.size,
				image = options.image,
				noref = "t",
				firstvalue = "t"
			}
		)
	end
	return caca
end

function formatwikibaseitem(datavalue, datatype, options)
	--[[  datatype	wikibase-item	]]
	local value
	local itemqid = datavalue.value.id
	local Skipped = skiip_items[options.property] or {}
	for k, v in pairs(Skipped) do
		if datavalue.value.id == v then
			return {value = "", item = ""}
		end
	end
	if isvalid(options.formatting) then
		if options.formatting == "raw" then
			return {value = itemqid, item = itemqid}
		elseif options.formatting == "rawtotemplate" and isvalid(options.rawtotemplate) then
			local args = {q = itemqid, no1 = options.no1 or "", no2 = options.no2 or ""}
			value = mw.getCurrentFrame():expandTemplate {title = options.rawtotemplate, args = args} .. "\n"
			return {value = value, item = itemqid}
		elseif options.formatting == "fu" then
			value =
				mw.getCurrentFrame():expandTemplate {
				title = "Cycling race/stageclassification2",
				args = {itemqid, type = "1"}
			}
			return {value = value, item = itemqid}
		elseif options.formatting == "sitelink" then
			value = formatsitelink(datavalue.value.id, options)
			return {value = value, item = itemqid}
		else
			value = formatcharacters(datavalue.value, options)
			if isvalid(options.pattern) then
				value = formatFromPattern(value, options)
			end
			return {value = value, item = itemqid}
		end
	end

	local itemValue = formatEntityId(itemqid, options).value
	if isvalid(itemValue) then
		if isvalid(options.property1) and options.property1:upper():sub(1, 1) == "P" then
			local prop1value = get_property1(options, itemqid)
			if isvalid(prop1value) then
				prop1value = (options.property1pref or "") .. "" .. prop1value .. "" .. (options.property1suff or "")
				value = prop1value .. " " .. itemValue
				if isvalid(options.property1after) then
					value = itemValue .. prop1value
				end
			else
				value = itemValue
			end
			return {value = value, item = itemqid}
		elseif isvalid(options.propertyimage) then
			local p_f = options.propertyimageformatting or options.formattingpropertyimage
			local vas =
				formatStatements(
				{
					property = options.propertyimage,
					formatting = p_f,
					entityId = itemqid,
					rank = options.rank,
					pattern = options.pattern,
					size = options.size,
					image = options.image,
					noref = "t",
					avoidvalue = options.avoidvaluepropertyimage,
					firstvalue = "t",
					nolink = options.nolink
				}
			)
			if isvalid(vas) then
				return {value = vas}
			end
		elseif isvalid(options.property2) then
			local caca =
				formatStatements(
				{
					property = options.property2,
					entityId = itemqid,
					noref = options.noref,
					rank = options.rank,
					pattern = options.property2pattern,
					size = options.size,
					image = options.image,
					propertyimage = options.property3,
					firstvalue = "t"
				}
			)
			if isvalid(caca) then
				return {value = caca .. " " .. itemValue}
			end
		end
	end
	return {value = itemValue, item = itemqid}
end

function formatwikibaseproperty(datavalue, datatype, options)
	--[[  datatype	wikibase-property	]]
	local tid = ""
	if isvalid(options.formatting) then
		if options.formatting == "raw" then
			tid = datavalue.value.id
		end
	else
		tid = formatEntityId(datavalue.value.id, options).value
	end
	return {value = tid}
end

function formattabulardata(datavalue, datatype, options)
	--[[  tabular-data ]]
	local data = "[[commons:" .. datavalue.value .. "|" .. datavalue.value .. "]]"
	return {value = data}
end

function formatgeoshape(datavalue, datatype, options)
	--[[  geo-shape	 ]]
	local shape = "[[commons:" .. datavalue.value .. "|" .. datavalue.value .. "]]"
	return {value = shape}
end

function formatcommonsMedia(datavalue, datatype, options)
	local tid
	--[[ commonsMedia ]]
	local size = options.size or ""
	if isvalid(options.image) then -- return real image
		--tid = "[[file:" .. datavalue.value  .. "|".. (options.size or "20").."px|border]]"
		--if isvalid(options.center) then
		--tid = "[[file:" .. datavalue.value  .. "|".. (options.size or "20").."px|border|center]]"
		--end
		--tid = "[[file:" .. datavalue.value  .. "|".. (options.size or "60").."px|".."border".."]]"
		local params = {image = datavalue.value, maxsize = "280x330px", center = (options.center or "")}
		if isvalid(options.size) then
			params.size = size
		end
		if InfoboxImage == nil then
			InfoboxImage = require("Module:InfoboxImage")
		end
		tid = InfoboxImage.Infobox_Image(params)
	else
		tid = formatcharacters(datavalue.value, options)
	end
	return {value = tid}
end

function formatmath(datavalue, datatype, options)
	--[[datatype math ]]
	--return	{value=mw.text.tag("math", {}, "".. datavalue.value.."") } -- that doesn't work well
	local result = mw.getCurrentFrame():callParserFunction("#tag:math", datavalue.value)
	return {value = result}
end

function formatstring(datavalue, datatype, options)
	--[[  datatype string ]]
	local par = options.pattern
	local result = formatcharacters(datavalue.value, options)
	local tid = result

	if isvalid(options.stringpattern) then
		tid = mw.ustring.gsub(options.stringpattern, "$1", datavalue.value)
	elseif isvalid(par) then
		if par ~= "autourl" and par ~= "autourl2" and par ~= "autourl3" and par ~= "autourl4" then
			tid = formatFromPattern(result, options)
		end
	end
	return {value = tid}
end

function formatexternalid(datavalue, datatype, options)
	local result = formatcharacters(datavalue.value, options)
	if isntvalid(options.pattern) then
		return {value = result} --just return value
	end
	local patter =
		formatStatements({property = "P1630", entityId = options.property, firstvalue = "t", noref = "t", rank = "all"}) -- get formatter URL

	local par = options.pattern
	local tid = result

	if isvalid(patter) then -- if P1630 are there
		local pp = formatFromPattern(datavalue.value, {pattern = patter})
		local plabel = mw.wikibase.label(options.property) or pp
		local ppp = mw.ustring.gsub(pp, " ", "_")

		local results = {
			["autourl"] = ppp, -- like http://example.com/$1.html
			["autourl2"] = "[" .. ppp .. " " .. datavalue.value .. "]", -- like [http://example.com/$1.html $1]
			["autourl3"] = "[" .. ppp .. " " .. ppp .. "]", -- like [http://example.com/$1.html http://example.com/$1.html]
			["autourl4"] = "[" .. ppp .. " " .. plabel .. "]"
		}
		if results[par] then
			tid = results[par]
		else
			tid = formatFromPattern(result, options)
		end
	elseif isvalid(par) then
		if par ~= "autourl" and par ~= "autourl2" and par ~= "autourl3" and par ~= "autourl4" then
			tid = formatFromPattern(result, options)
		end
	end
	return {value = tid}
end

function formattime(datavalue, datatype, options)
	--[[  datatype	time  ]]
	local ModuleTime = require "Module:wikidata2/time"
	local timen = datavalue.value
	local tid = ModuleTime.getdate(timen, options)
	-- local tid = mw.getCurrentFrame():preprocess(mall)
	if isvalid(options.modifytime) then
		if options.modifytime == "q" then
			local mall = datavalue.value.time
			tid = mw.getCurrentFrame():preprocess(mall)
		elseif options.modifytime == "precision" then
			local mall = datavalue.value.precision
			tid = mw.getCurrentFrame():preprocess(mall)
		end
	end
	return {value = tid}
end

function formatcoordinate(datavalue, datatype, options)
	--[[  datatype	globe-coordinate  ]]
	--local GlobeCoordinate = require "Module:GlobeCoordinate"
	--return {value=GlobeCoordinate.newFromWikidataValue( datavalue.value ):toHtml()}
	if ModuleGlobes == nil then
		ModuleGlobes = require("Module:Wikidata2/Globes")
	end
	local coord = datavalue.value
	local globe = datavalue.value.globe
	local globe2 = ModuleGlobes[globe] or ""
	local results = {
		["latitude"] = coord.latitude,
		["longitude"] = coord.longitude,
		["dimension"] = coord.dimension,
		["precision"] = coord.precision,
		["globe"] = globe:match("Q%d+"),
		["globe2"] = globe2
	}

	local pro = options.formatting and results[options.formatting]
	if pro == nil then
		pro =
			mw.getCurrentFrame():preprocess(
			"{{ {{{|safesubst:}}}#invoke:Coordinates|coord" ..
			"|" .. coord.latitude ..
			"|" .. coord.longitude ..
			"|display=inline" ..
			"|globe:" .. globe2 .. "_type:landmark" ..
			"|format=" .. (options.formatcoord or "") .. "}}"
		) .. catewikidatainfo(options)
	end

	return {value = pro}
end

function formatquantity(datavalue, datatype, options)
	--[[  datatype quantity	 ]]
	local amount, unit = datavalue.value.amount, datavalue.value.unit
	amount = mw.ustring.gsub(amount, "+", "")
	if unit then
		unit = unit:match("Q%d+")
	end
	if formatera == nil then
		formatera = require("Module:Wikidata2/Math")
	end
	local number = formatera.newFromWikidataValue(datavalue.value)
	local unitraw = unit
	if unit then
		-- يتحقق اذا كان هناك اي اختصار لوحدة القياس
		--if lab and ( isntvalid(options.nounitshort) ) then
		if isvalid(options.unitshort) then
			local lab =
				options.label or formatStatements({property = "P498", entityId = unit, firstvalue = "t", noref = "t"}) or
				formatStatements(
					{property = "P5061", entityId = unit, firstvalue = "t", langpref = options.langpref, noref = "t"}
				) or
				""
			local s =
				formatEntityId(unit, {label = lab, enlabelcate = "t", nolink = (options.nounitlink or options.nolink)})
			unit = s.value
		else
			local s = formatEntityId(unit, {nolink = options.nounitlink, enlabelcate = "t"})
			unit = s.value
		end
	end
	if options.formatcharacters and options.formatcharacters == "formatnum" then
		amount = make_format_num(amount)
	end
	local Value = amount .. " " .. (unit or "")
	if isvalid(options.nounit) then
		Value = amount
	end
	return {value = Value, amount = amount, unit = unit, unitraw = unitraw}
end

function formaturl(datavalue, datatype, options)
	--[[  datatype	url	 ]]
	local label = options.label
	if isvalid(options.urllabel) then
		label = options.urllabel
	end
	local va = mw.ustring.gsub(datavalue.value, " ", "_")
	if label == nil and options.property == "P856" then
		label = "الموقع الرسمي"
	end
	if isvalid(options.displayformat) == "weblink" then
		if weblink == nil then
			weblink = require("Module:Weblink")
		end
		return {value = weblink.makelink(va)}
	end
	if isvalid(options.formatting) == "raw" then
		return {value = va}
	end
	local pro = va
	if isvalid(label) then
		pro = "[" .. va .. " " .. label .. "]"
	end
	return {value = pro}
end

function formatmonolingualtext(datavalue, datatype, options) -- showlang
	local text = datavalue.value.text
	if isvalid(options.textformat) == "text" then
		return {value = text}
	end
	if Moduletext == nil then
		Moduletext = require "Module:wikidata2/monolingualtext"
	end
	local tid = Moduletext._main(datavalue, datatype, options)
	return {value = tid}
end

function formatDatavalue(datavalue, datatype, options)
	--Use the customize handler if provided
	if options["value-module"] or options["value-function"] then
		if not options["value-module"] or not options["value-function"] then
			return {value = formatError("unknown-value-module")}
		end
		local formatter = require("Module:" .. options["value-module"])
		if not formatter then
			return {value = formatError("value-module-not-found")}
		end
		local fun = formatter[options["value-function"]]
		if not fun then
			return {value = formatError("value-function-not-found")}
		end
		return {value = fun(datavalue, datatype, options)}
	end

	--Default dataformatters
	local dataformatters = {
		["wikibase-item"] = formatwikibaseitem,
		["wikibase-property"] = formatwikibaseproperty,
		["commonsMedia"] = formatcommonsMedia,
		["math"] = formatmath,
		["time"] = formattime,
		["external-id"] = formatexternalid,
		["string"] = formatstring,
		["globe-coordinate"] = formatcoordinate,
		["quantity"] = formatquantity,
		["url"] = formaturl,
		["monolingualtext"] = formatmonolingualtext,
		["geo-shape"] = formatgeoshape,
		["tabular-data"] = formattabulardata
	}

	local dataformatter = dataformatters[datatype]
	if not dataformatter then
		return {value = formatError("unknown-data-type")}
	end
	return dataformatter(datavalue, datatype, options)
end

function Labelfunction(qid, arlabel, options) -- label with no arwiki sitelink
	local value
	local cat = ""
	local use_en_label = isvalid(options.enlabelcate) or isvalid(options.use_en_labels)
	local Args = {fromlua = "t", ["المعرف"] = qid, nocat = "t"}
	if isvalid(options.illwd2noy) then
		Args.noy = "t"
	end
	if isvalid(options.illwd2y) then
		Args.y = "t"
	end

	if isvalid(arlabel) then
		value = arlabel
		if isvalid(options.illwd2) then
			Args.label = arlabel
			value = mw.getCurrentFrame():expandTemplate {title = "Ill-WD2", args = Args}
		end
	elseif isntvalid(options.justarabic) then
		-- else
		--cat = " [[".. i18n.noarabiclabel .."|".. qid .."]]"
		local en_label = mw.wikibase.label(qid) or ""
		if isvalid(options.illwd2noarlabel) then
			if isvalid(en_label) then
				Args.enlabel = en_label
			end
			value = mw.getCurrentFrame():expandTemplate {title = "Ill-WD2", args = Args}
		elseif use_en_label and isvalid(en_label) then
			value = en_label
		end
	end
	return {value = value or "", cat = cat}
end

function formatEntityId(qid, options)
	local labeloption = options.label
	local label = ""
	local value
	local arlabel = labelIn("ar", qid) or "" -- The arabic label
	local link = mw.wikibase.sitelink(qid)

	if isvalid(labeloption) then
		label = labeloption
	elseif isvalid(arlabel) then
		--mw.log("arlabel" .. arlabel)
		label = arlabel
	elseif isvalid(link) then
		label = link
		arlabel = link
	end

	if isvalid(link) then
		-- elseif isvalid(arlabel) then
		local linklabel = isvalid(label) or link
		if (isntvalid(options.nolink)) then
			value = "[[:" .. link .. "|" .. formatcharacters(linklabel, options) .. "]]"
			label = linklabel
		else
			value = formatcharacters(linklabel, options)
			label = linklabel
		end
	else
		local va = Labelfunction(qid, arlabel, options)
		label = va.value
		value = va.value -- .. va.cat
	end
	return {value = value or "", label = label or ""}
end

function sitelink_g(id, wikisite)
	--[[ function to get any link from any sister project ]]
	local site = wikisite or "arwiki"
	local link = mw.wikibase.sitelink(id, site) or ""
	--mw.log("mw.wikibase.sitelink,site: " .. site.. ",link:" .. link )
	return link
end

function sitelink(id, wikisite)
	local site = wikisite or "arwiki"
	local link = ""
	--local link = mw.wikibase.getSitelink( id, site ) or ""

	local entity = mw.wikibase.getEntityObject(id)
	if
		entity and entity.sitelinks and entity.sitelinks["" .. site .. ""] and entity.sitelinks["" .. site .. ""].site and
			entity.sitelinks["" .. site .. ""].title
	 then
		if entity.sitelinks["" .. site .. ""].site == site then
			link = entity.sitelinks["" .. site .. ""].title
		end
	end
	return link
end

function formatsitelink(entityId, options)
	--[[ function to get only the value with link ]]
	local link = sitelink(entityId)
	if isvalid(link) and isntvalid(options.nolink) then
		return "[[" .. link .. "]]" .. catewikidatainfo(options)
	end
	return link
end

function formatFromPattern(str, options)
	-- [[  function to replace $1 with string  ]]
	if isvalid(options.pattern) then
		str = string.gsub(str, "%%", "%%%%")
		str = mw.ustring.gsub(options.pattern, "$1", str)
	end
	return str
end

function p.getEntity(id)
	if type(id) == "table" then
		return id
	end
	return getEntityFromId(id)
end

function p.translate(str, rep1, rep2)
	str = i18n[str] or str
	if rep1 and (type(rep1) == "string") then
		str = str:gsub("$1", rep1)
	end
	if rep2 and (type(rep2) == "string") then
		str = str:gsub("$2", rep2)
	end
	return str
end

function p.getId(snak)
	if (snak.snaktype == "value") then
		if snak.datavalue.type == "wikibase-entityid" then
			return "Q" .. snak.datavalue.value["numeric-id"]
		end
	end
end

function p.addLinkBack(str, id, property)
	if not id then
		id = p.getEntity()
	end
	if not id then
		return str
	end
	if type(property) == "table" then
		property = property[1]
	end
	if type(id) == "table" then
		id = id.id
	end
	local class = ""
	if property then
		class = "wd_" .. string.lower(property)
	end
	local icon = "[[File:Blue pencil.svg|%s|10px|baseline|class=noviewer|link=%s]]"
	local title = i18n["see-wikidata-value"]
	local url = mw.uri.fullUrl("d:" .. id, "uselang=ar")
	url.fragment = property
	url = tostring(url)
	local v =
		mw.html.create("span"):addClass(class):wikitext(str):tag("span"):addClass("noprint wikidata-linkback"):css(
		"padding-left",
		"0.5em"
	):wikitext(icon:format(title, url)):allDone()
	return tostring(v)
end

-- Function to check whether a certain item is a parent of a given item.
-- If pExitItem is reached without finding the searched parent item, the search stops.
-- A parent is connected via P31 or P279.
-- Attention: very intensive function, use carefully!
function isParent(property, pItem, pParent, pExitItem, pMaxDepth, pDepth)
	if not pDepth then
		pDepth = 0
	end

	local entity = mw.wikibase.getEntity(pItem)
	if not entity then
		return false
	end
	local claims31
	local claims279
	if entity.claims then
		if isvalid(property) then
			claims31 = entity.claims[property]
		else
			claims31 = entity.claims["P31"]
			claims279 = entity.claims["P279"]
		end
	else
		return false
	end
	if not claims31 and not claims279 then
		return false
	end
	local parentIds = {}
	if claims31 and #claims31 > 0 then
		for i, v in ipairs(claims31) do
			parentIds[#parentIds + 1] = p.getId(v.mainsnak)
		end
	end
	if claims279 and #claims279 > 0 then
		for i, v in ipairs(claims279) do
			parentIds[#parentIds + 1] = p.getId(v.mainsnak)
		end
	end
	-- check if searched parent or exit item is reached or do recursive call
	if not parentIds[1] or #parentIds == 0 then
		return false
	end
	local itemString = ""
	local result = nil
	for i, qid in ipairs(parentIds) do
		if not qid then
			return false
		end
		--itemString = "Q" .. v
		itemString = qid
		if itemString == pParent then
			-- successful!
			return true
		elseif itemString == pExitItem then --or itemString == "Q35120"
			-- exit if either "exit item" or node item (Q35120) is reached
			return false
		else
			if pDepth + 1 < pMaxDepth then
				result = isParent(property, itemString, pParent, pExitItem, pMaxDepth, pDepth + 1)
			else
				return false
			end

			if result == true then
				return result
			end
		end
	end
	do
		return false
	end
end

function p.Subclass(options)
	if options then
		Frame_args = options
	end
	local parent = options.parent or ""
	local id = options.id or ""
	local Entity = getEntityFromId(id)
	if Entity then
		id = Entity.id
	end
	local property = options.property or "P31"
	if isntvalid(parent) or isntvalid(id) or isntvalid(property) then
		return false
	end
	local tab = mw.text.split(options.parent, ",")
	local result = mw.wikibase.getReferencedEntityId(id, property, tab) -- { "Q5", "Q2095" } )
	if result == nil and property == "P31" then
		result = mw.wikibase.getReferencedEntityId(id, "P279", tab)
	end
	if result then
		return true
	end
end

function old_isSubclass(options)
	if isntvalid(options.parent) then
		return false
	end
	local maxDepth
	maxDepth = tonumber(options.maxDepth) or 10
	if not type(maxDepth) == "number" then
		maxDepth = 5
	end
	local property = options.property
	local result
	result = isParent(property, options.id, options.parent, options.exitItem, maxDepth)
	if options.returnInt then
		if result == true then
			return 1
		else
			return nil
		end
	else
		return result
	end
end

function p.formatSnak(snak, options)
	return formatSnak(snak, options)
end

function p.formatEntityId(entityId, options)
	return formatEntityId(entityId, (options or {}))
end

function p.formatStatements(frame, key)
	if frame.args then
		if type(key) == "table" and key ~= {} then
		else
			Frame_args = frame.args
		end
	end
	--[[ The main function ]]
	local args = frame.args
	--If a value if already set, use it
	if isvalid(args.value) then
		return args.value
	end
	local wd_arg = frame:getParent().args["ويكي بيانات"] or frame.args["ويكي بيانات"] -- arg used to ban wikidata value
	if isvalid(wd_arg) == "لا" then
		return ""
	end

	local valuesnumb = 0
	local s
	local prop = formatStatements(args, key)
	if isvalid(args.returnnumberofvalues) then
		s, valuesnumb = formatStatements(frame.args, key)
	end
	if isvalid(prop) then
		if isvalid(args.mainprefix) then -- mainprefix
			prop = args.mainprefix .. prop
		end
		if isvalid(args.mainsuffix) then -- mainsuffix
			prop = prop .. args.mainsuffix
		end
		if isvalid(args.addTrackingCat) then -- add tracking cat
			prop = prop .. addTrackingCategory(frame.args)
		end
		if isvalid(args.mainsuffixAfterIcon) then -- another suffix but after wikidata icon
			prop = prop .. args.mainsuffixAfterIcon
		end
	else
		if isvalid(args.NoPropValue) then -- value if no local value and no wikidata value
			prop = args.NoPropValue
		end
	end
	if isvalid(args.returnnumberofvalues) then
		mw.log("valuesnumb: " .. valuesnumb)
		return s, valuesnumb
	end
	return prop
end

function p.formatStatementsFromLua(options, key) --	 main function but to use from lua module
	if options then
		if type(key) == "table" and key ~= {} then
		else
			Frame_args = options
		end
	end

	--If a value if already set, use it
	if isvalid(options.value) then
		return options.value
	end
	local valuesnumb = 0
	local s = formatStatements(options, key)
	if isvalid(options.returnnumberofvalues) then
		s, valuesnumb = formatStatements(options, key)
	end
	if isntvalid(s) then
		s = nil
	end
	if isvalid(s) then
		if isvalid(options.mainprefix) then -- mainprefix
			s = options.mainprefix .. s
		end
		if isvalid(options.mainsuffix) then -- mainsuffix
			s = s .. options.mainsuffix
		end
		if isvalid(options.addTrackingCat) then -- add tracking cat
			s = s .. addTrackingCategory(options)
		end
		if isvalid(options.mainsuffixAfterIcon) then -- another suffix but after wikidata icon
			s = s .. options.mainsuffixAfterIcon
		end
	else
		if isvalid(options.NosValue) then -- value if no local value and no wikidata value
			s = options.NosValue
		end
	end
	if isvalid(options.returnnumberofvalues) then
		--	mw.log( "valuesnumb: " .. valuesnumb )
		return s, valuesnumb
	end
	return s
end

function p.isSubclass(frame)
	return p.Subclass(frame.args)
end

-- Return the site link for a given data item and a given site (the current site by default)

function p.getSiteLink(frame)
	local site = frame.args[2] or frame.args.site
	local id = frame.args[1] or frame.args.id
	local count = frame.args.countsitelinks
	if isntvalid(id) then
		if isvalid(frame.args.page) then
			id = mw.wikibase.getEntityIdForTitle(frame.args.page)
		end
	end
	if isvalid(count) then
		return countSiteLinks(id)
	end
	local link = sitelink(id, site)
	if isvalid(link) then
		return link
	end
end

function p.getSiteLink1(frame)
	local project = frame.args[1]
	local id = frame.args[2]
	local link = sitelink(id, project)
	return link
end

-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata
function p.pageId(frame)
	return mw.wikibase.getEntityIdForCurrentPage()
end

function p.descriptionIn(frame)
	local langcode = frame.args[1] or frame.args["lang"]
	local id = frame.args[2] or frame.args["id"]
	return descriptionIn(langcode, id)
end

function p.labelIn(frame)
	local langcode = frame.args[1] or frame.args["lang"]
	local id = frame.args[2] or frame.args["id"]
	return labelIn(langcode, id)
end

function p.getLabel(entity, lang)
	return labelIn(lang, entity)
end

function p.ViewSomething(frame) -- from en:Module:Wikidata
	local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
	local aa
	if isvalid(f.args.id) then
		aa = f.args.id
	end
	local data = mw.wikibase.getEntityObject(aa)
	if data == nil then
		return nil
	end
	local i = 1
	while true do
		local index = f.args[i]
		if index == nil then
			if type(data) == "table" then
				return mw.text.jsonEncode(data, mw.text.JSON_PRESERVE_KEYS + mw.text.JSON_PRETTY)
			else
				return tostring(data)
			end
		end
		data = data[index] or data[tonumber(index)]
		if data == nil then
			return
		end
		i = i + 1
	end
end

function p.Dump(frame)
	local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
	local aa
	if isvalid(f.args.id) then
		aa = f.args.id
	end
	local data = mw.wikibase.getEntityObject(aa)
	if data == nil then
		return i18n.warnDump
	end
	local i = 1
	while true do
		local index = f.args[i]
		if index == nil then
			return frame:extensionTag("source", mw.dumpObject(data), {lang = "lua"}) .. i18n.warnDump
		end
		data = data[index] or data[tonumber(index)]
		if data == nil then
			return i18n.warnDump
		end
		i = i + 1
	end
end

function p.countSiteLinks(id)
	return countSiteLinks(id)
end

function p.EntityIdForTitle(frame)
	local title = frame.args[1]
	local str = mw.wikibase.getEntityIdForTitle(title)
	--mw.log(str)
	return str
end

function p.Qidfortitleandwiki(frame)
	local title = frame.args[1]
	local wiki = frame.args[2]
	local str = mw.wikibase.getEntityIdForTitle(title, wiki)
	return str
end

return p