Modul:VCard

Die Dokumentation für dieses Modul kann unter Modul:VCard/doc erstellt werden

-- module variable and administration
local vc = {
	moduleInterface = {
		suite  = 'vCard',
		serial = '2022-12-17',
		item   = 58187507
	}
}

-- module import
-- require( 'strict' )
local mi = require( 'Module:Marker utilities/i18n' )
local mu = require( 'Module:Marker utilities' )
local vp = require( 'Module:VCard/Params' ) -- parameter lists
local vi = require( 'Module:VCard/i18n' ) -- parameter translations
local vq = mw.loadData( 'Module:VCard/Qualifiers' ) -- comment tables

local cm = require( 'Module:CountryData' )
local er -- modules will be loaded later if needed
local hi
local hr
local lg
local lp = require( 'Module:LinkPhone' )
local wu = require( 'Module:Wikidata utilities' )

local function addWdClass( key )
	return mu.addWdClass( vp.wdContent[ key ] )
end

local function forceFetchFromWikidata( tab )
	for key, value in pairs( tab ) do
		vp.ParMap[ key ] = true
	end
end

-- copying args parameters to vp.ParMap parameters
local function copyParameters( args, show )
	local t, value

	-- force getting data from Wikidata for missing parameters
	show.inlineDescription = true -- description with div or span tag
	if vp.ParMap.auto == true then
		forceFetchFromWikidata( vp.ParWD )
		forceFetchFromWikidata( vp.ParWDAdd )
	end

	-- copying args parameters to vp.ParMap parameters
	for key, v in pairs( vi.p ) do
		value = args[ key ]

		if value then
			value, t =
				mu.removeCtrls( value, show.inline or key ~= 'description' )
			if t then
				show.inlineDescription = false
			end

			if key ~= 'auto' and key ~= 'show' and key ~= 'wikidata' then
				if value == '' then
					value = 'y'
				end
				t = mu.yesno( value )
				if t then
					if vp.ParMap.wikidata ~= '' then
						vp.ParMap[ key ] = t == 'y'
					else
						vp.ParMap[ key ] = ''
					end
				else
					vp.ParMap[ key ] = value
				end
			end
		end
	end

	-- force fetching data from Wikidata if empty
	for key, value in ipairs( { 'name', 'type' } ) do
		if type( vp.ParMap[ value ] ) == 'boolean' or vp.ParMap[ value ] == '' then
			vp.ParMap[ value ] = true
		end
	end

	if mu.isSet( vp.ParMap.styles ) then
		vp.ParMap.styles = mi.nameStyles[ vp.ParMap.styles:lower() ] or vp.ParMap.styles
	else
		vp.ParMap.styles = nil
	end
end

local function initialParameterCheck( frame )
	local country, entity, param, show, t, v, wrongQualifier
	local args = mu.checkArguments( frame:getParent().args, vi.p )

	vp.ParMap.wikidata, entity, wrongQualifier =
		wu.getEntity( args.wikidata or '' )
	if wrongQualifier then
		mu.addMaintenance( mi.maintenance.wrongQualifier )
	elseif mu.isSet( vp.ParMap.wikidata ) then
		mu.addMaintenance( mi.maintenance.wikidata )
	end
	if mu.isSet( vp.ParMap.wikidata ) then
		v = mu.yesno( args.auto or '' )
		if v then
			vp.ParMap.auto = v == 'y'
		else
			vp.ParMap.auto = mi.options.defaultAuto
		end
	else
		vp.ParMap.auto = false
	end

	-- making phone number table
	t = {}
	for i, key in ipairs( vp.phones ) do
		mu.tableInsert( t, args[ key ] )
	end
	-- getting country-specific technical parameters
	country = cm.getCountryData( entity, t, args.country )
	if country.fromWD then
		mu.addMaintenance( mi.maintenance.countryFromWD )
	end
	if country.unknownCountry then
		mu.addMaintenance( mi.maintenance.unknownCountry )
	end
	if country.cc ~= '' then
		country.trunkPrefix = lp.getTrunkPrefix( country.cc )
	end
	country.extra = mi.defaultSiteType
	if mu.isSet( country.iso_3166 ) then
		country.extra = country.extra .. '_region:' .. country.iso_3166
		-- country-specific default show
	end
	if mu.isSet( country.show ) then
		vp.ParMap.show = country.show
	end

	-- handling args and vp.ParMap show arrays
	v = args.show
	show = mu.getShow( vp.ParMap.show, v, vp.show )
	if v and v:find( 'inline', 1, true ) then
		show.inlineSelected = true
		mu.addMaintenance( mi.maintenance.inlineSelected )
	end
	if v and v:find( 'poi', 1, true ) then
		mu.addMaintenance( mi.maintenance.showPoiUsed )
	end
	show.name = true

	-- copying args parameters to vp.ParMap parameters
	copyParameters( args, show )
	-- checking coordinates and converting DMS to decimal coordinates if necessary
	mu.checkCoordinates( vp.ParMap )
	-- remove namespace from category
	mu.checkCommonsCategory( vp.ParMap )
	for i, param in ipairs( mi.maintenance.parameters ) do
		if mu.isSet( vp.ParMap[ param ] ) then
			mu.addMaintenance( mw.ustring.format( mi.maintenance.parameterUsed, param ) )
		end
	end

	vp.ParMap.subtypeAdd = not show.nosubtype and not show.nowdsubtype

	if type( vp.ParMap.lastedit ) == 'string' and vp.ParMap.lastedit ~= ''
		and not vp.ParMap.lastedit:match( mi.dates.yyyymmdd.p ) then
		mu.addMaintenance( mi.maintenance.wrongDate )
		vp.ParMap.lastedit = ''
	end

	return entity, show, country
end

local function getQuantity( value, formatter, page )
	local a, f, u, unit, unitId
	if type( value ) == 'number' then
		return tostring( value )
	elseif value.amount == '0' then
		return '0'
	else
		a = mu.formatNumber( value.amount )
		u = ''
		unitId = value.unit
		unit = cm.getCurrency( unitId )
		if mu.isSet( unit ) then
			if unit.mul then
				a = mu.formatNumber( string.format( '%.2f', -- 2 decimal places
					tonumber( value.amount ) * unit.mul ) )
			end
			if not mi.noCurrencyConversion[ unit.iso ] then
				if not er then
					er = require( 'Module:Exchange rate' )
				end
				unit = er.getWrapper( a, unit.iso, '', 2, cm.getCurrencyFormatter )
					.. mi.maintenance.currencyTooltip	
			else
				unit = tostring ( mw.html.create( 'span' )
					:addClass( 'voy-currency' )
					:addClass( 'voy-currency-' .. unit.iso:lower() )
					:wikitext( cm.getCurrencyFormatter( unitId ) )
				)
			end
		else
			unit = vq.labels[ unitId ]
		end
		if unit and unit:find( '%s', 1, true ) then
			a = mw.ustring.format( unit, a )
		elseif unit then
			u = unit
		elseif mw.wikibase.isValidEntityId( unitId ) then
			-- currency code
			u = wu.getValue( unitId, mi.properties.iso4217 )
			if u == '' then
				-- unit symbol
				u = wu.getValuesByLang( unitId, mi.properties.unitSymbol, 1,
					page.lang )
				u = u[ 1 ] or ''
			end
			if u ~= '' then
				mu.addMaintenance( mi.maintenance.unitFromWD )
			else
				u = unitId
				mu.addMaintenance( mi.maintenance.unknownUnit )
			end
		end
		if a ~= '' and u ~= '' and formatter ~= '' and
			formatter:find( '$1', 1, true ) and formatter:find( '$2', 1, true ) then
			a = mw.ustring.gsub( f, '($1)', a )
			a = mw.ustring.gsub( a, '($2)', u )
		else
			a = ( u ~= '' ) and a .. ' ' .. u or a
		end
	end
	return a
end

local function getHourModules()
	if not hr then
		hi = require( 'Module:Hours/i18n' )
		hr = require( 'Module:Hours' )
	end
end

local function getLabel( id )
	local label = id
	local tables = { vq.labels }
	if hi then
		table.insert( tables, hi.dateIds )
	end
	if id:match( '^Q%d+$' ) then
		for i, tab in ipairs( tables ) do
			if type( tab[ id ] ) == 'string' then
				label = tab[ id ]
				break
			end
		end
		if label == '' then
			return label
		elseif label == id then
			label = mu.getTypeLabel( id )
		end
		if label == '' or label == id then
			label = wu.getLabel( id ) or ''
			if label == '' then
				mu.addMaintenance( mi.maintenance.unknownLabel )
			else
				mu.addMaintenance( mi.maintenance.labelFromWD )
			end
		end
	end
	return label
end

-- getting comments for contacts and prizes from Wikidata using tables
local function getComments( statement, properties, page )
	local comments = {}
	local isMobilephone = false
	local calendarmodel, minAge, maxAge
	for i, property in ipairs( properties ) do
		local pType = property .. '-type'
		if statement[ property ] then
			if property == mi.properties.minimumAge then
				minAge = getQuantity( statement[ property ][ 1 ], '', page )
			elseif property == mi.properties.maximumAge then
				maxAge = getQuantity( statement[ property ][ 1 ], '', page )
			end

			for j, id in ipairs( statement[ property ] ) do
				if statement[ pType ] == 'monolingualtext' then
					id = id.text
				elseif statement[ pType ] == 'time' then
					id, calendarmodel = wu.getDateFromTime( id )
					id = mw.ustring.format( mi.texts.asOf, id )
				elseif type( id ) == 'table' then
					id = ''
				end
				if id == mi.qualifiers.mobilePhone then
					isMobilephone = true
				else
					mu.tableInsert( comments, getLabel( id ) )
				end
			end
		end
	end

	if minAge and maxAge then
		mu.tableInsert( comments, mw.ustring.format( mi.texts.fromTo,
			minAge:gsub( '(%d+).*', '%1' ), maxAge ) )
	elseif minAge then
		mu.tableInsert( comments, mw.ustring.format( mi.texts.from, minAge ) )
	elseif maxAge then
		mu.tableInsert( comments, mw.ustring.format( mi.texts.to, maxAge ) )
	end

	if #comments > 0 then
		mu.addMaintenance( mi.maintenance.commentFromWD )
		return table.concat( comments, ', ' ), isMobilephone
	else
		return '', isMobilephone
	end
end

local function hasValue( tab, val )
	for i = 1, #tab do
		if tab[ i ] == val then
			return true
		end
	end
	return false
end

local function getLngProperty( lng, p )
	if not mu.isSet( lng ) then
		return ''
	end

	if not lg then
		lg = require( 'Module:Languages' )
	end
	local item = lg.lngProps[ lng ]
	if not item then
		local hyphen = lng:find( '-', 1, true )
		if hyphen and hyphen > 1 then
			item = lg.lngProps[ lng:sub( 1, hyphen - 1 ) ]
		end
	end
	if item then
		item = item[ p ]
	end

	return item or ( p == 'c' and 0 or '' )
end

local function removeStringDuplicates( ar )
	local hash = {}
	local result = {}

	for i, val in ipairs( ar ) do
		if not hash[ val ] then
			table.insert( result, val )
			hash[ val ] = 1
		end
	end
	return result
end

local function removeTableDuplicates( ar )
	local hash = {}
	local result = {}
	local hashVal

	for i, tab in ipairs( ar ) do
		hashVal = tab.value .. '#' .. tab.comment
		if not hash[ hashVal ] then
			table.insert( result, tab )
			hash[ hashVal ] = 1
		end
	end
	return result
end

local function mergeComments( ar )
	if #ar > 1 then
		for i = #ar, 2, -1 do
			for j = 1, i - 1, 1 do
				if ar[ i ].value == ar[ j ].value and ar[ i ].comment ~= ''
					and ar[ j ].comment ~= '' then
					ar[ j ].comment = ar[ j ].comment .. '; ' .. ar[ i ].comment
					table.remove( ar, i )
					break
				end
			end
		end
	end
end

local function convertTableWithComment( ar )
	for i = 1, #ar, 1 do
		if ar[ i ].comment == '' then
			ar[ i ] = ar[ i ].value
		else
			ar[ i ] = ar[ i ].value .. ' ('.. ar[ i ].comment .. ')'
		end
	end
end

--[[
properties are defined in Module:vCard/Params

p property or set of properties
f formatter string
c maximum count of results, default = 1
m concat mode (if c > 1), default concat with ', '
v value type,
	empty: string value (i.e. default type),
	id:    string value of an id like Q1234567  
	idl:   string value of the label of an id like Q1234567
	il:    language-dependent string value
	iq:    string value with qualifier ids
	au:    quantity consisting of amount and unit
	pau:   quantity consisting of amount (for P8733)
	vq:    string or table value with qualifiers ids and references
l = true: language dependent
l = wiki / local: monolingual text by wiki or local language
le = true: use date for lastedit parameter
--]]

-- function returns an array in any case
local function getWikidataValues( propDef, entity, page, country )
	local r = ''
	local ar = {}
	local a, i, isMobilephone, id, q, t, u, w

	-- setting defaults
	propDef.v = propDef.v or ''
	propDef.f = propDef.f or ''
	propDef.c = propDef.c or 1

	-- getting value arrays
	if propDef.l == 'wiki' then
		ar = wu.getValuesByLang( entity, propDef.p, propDef.c, page.lang )
	elseif propDef.l == 'local' then
		ar = wu.getValuesByLang( entity, propDef.p, propDef.c, country.lang )
	elseif propDef.l == true and propDef.c == 1 then
		id = getLngProperty( country.lang, 'q' )
		if id == '' then
			country.unknownLanguage = true
		else
			-- language of work or name
			a = wu.getValuesByQualifier( entity, propDef.p, mi.properties.languageOfName, id )
			if next( a ) then
				i = a[ getLngProperty( page.lang, 'q' ) ] -- item in page.lang
					or a[ id ] -- item in country lang
					or a[ next( a, nil ) ] -- first item
				ar = { i }
			end
		end
	elseif propDef.v == 'iq' or propDef.v == 'iqp' then
		q = propDef.v == 'iq' and mi.propTable.quantity or
			mi.propTable.policyComments
		ar = wu.getValuesWithQualifiers( entity, propDef.p, propDef.q, q,
			{ mi.properties.retrieved }, propDef.c )
		if propDef.le then
			vp.ParMap.lastedit = wu.getLastedit( vp.ParMap.lastedit, ar )
		end
	elseif propDef.v == 'au' or propDef.v == 'vq' then
		q = propDef.v == 'au' and mi.propTable.feeComments or
			mi.propTable.contactComments
		ar = wu.getValuesWithQualifiers( entity, propDef.p, nil, q,
			{ mi.properties.retrieved }, propDef.c )
		-- maybe a change of nil to a properties table is useful
		if propDef.le then
			vp.ParMap.lastedit = wu.getLastedit( vp.ParMap.lastedit, ar )
		end
	else
		ar = wu.getValues( entity, propDef.p, propDef.c )
	end
	if #ar == 0 and propDef.p ~= mi.properties.instanceOf then
		return ar
	elseif propDef.p == mi.properties.instanceOf then -- instance of
		return { mu.typeSearch( ar, entity ) }
	end

	for i = #ar, 1, -1 do
		-- amount with unit (for fees)
		if propDef.v == 'au' then
			a = getQuantity( ar[ i ].value, propDef.f, page )
			if a == '0' then
				a = vq.labels.gratis
			end
			u, isMobilephone = getComments( ar[ i ], mi.propTable.feeComments, page )
			ar[ i ] = { value = a, comment = u }

		-- for number of rooms P8733
		elseif propDef.v == 'pau' then
			if ar[ i ].unit == '1' then
				a = tonumber( ar[ i ].amount ) or 0
			else
				a = 0
			end
			ar[ i ] = {}
			ar[ i ][ mi.properties.quantity ] = { a }
			ar[ i ][ mi.properties.quantity .. '-type' ] = 'quantity'
			ar[ i ].value = mi.qualifiers.roomNumber
			ar[ i ]['value-type'] = 'wikibase-entityid'

		-- qualifier ids (for subtypes)
		elseif propDef.v == 'iq' or propDef.v == 'iqp' then
			if ar[ i ][ 'value-type' ] ~= 'wikibase-entityid' then
				table.remove( ar, i )
			end
			if propDef.v == 'iqp' then
				ar[ i ].policyComment, isMobilephone =
					getComments( ar[ i ], mi.propTable.policyComments, page )
			end

		-- strings with qualifiers (for contacts)
		elseif propDef.v == 'vq' then
			if ar[ i ][ 'value-type' ] ~= 'string' then
				table.remove( ar, i )
			else
				u, isMobilephone =
					getComments( ar[ i ], mi.propTable.contactComments, page )
				if mi.options.useMobile and propDef.t then
					if ( isMobilephone and propDef.t == 'mobile' ) or
						( not isMobilephone and propDef.t == 'landline' ) then
						ar[ i ] = { value = ar[ i ].value, comment = u }
					else
						table.remove( ar, i )
					end
				else
					ar[ i ] = { value = ar[ i ].value, comment = u }
				end
			end

		-- value, monolingual text, identifier
		else
			if propDef.v == 'id' then
				ar[ i ] = ar[ i ].id
			elseif propDef.v == 'idl' then
				getHourModules()
				ar[ i ] = hr.formatTime( getLabel( ar[ i ].id ) )
			end
			if ar[ i ] ~= '' and propDef.f ~= '' then
				ar[ i ] = mw.ustring.format( propDef.f, ar[ i ] )
			end
		end
		if propDef.v == 'au' or propDef.v == 'vq' then
			if ar[ i ] and ar[ i ].value == '' then
				table.remove( ar, i )
			end
		else
			if ar[ i ] == '' then
				table.remove( ar, i )
			end
		end
	end

	-- cleanup
	if propDef.v == 'au' or propDef.v == 'vq' then
		ar = removeTableDuplicates( ar )
		mergeComments( ar )
		convertTableWithComment( ar )
	else
		ar = removeStringDuplicates( ar )
	end

	return ar
end

local function getWikidataItem( parWDitem, entity, page, country )
	local arr = {}
	local subArr

	local function singleProperty( propDef )
		if #arr == 0 then
			arr = getWikidataValues( propDef, entity, page, country )
		else
			subArr = getWikidataValues( propDef, entity, page, country )
			for i = 1, #subArr, 1 do -- move to arr
				table.insert( arr, subArr[ i ] )
			end
		end
	end

	local p = parWDitem
	if not p then
		return ''
	end

	p.c = p.c or 1 -- count
	local tp = type( p.p )
	if tp == 'string' then
		singleProperty( p )
	elseif tp == 'table' then
		for key, sngl in ipairs( p.p ) do
			if type( sngl ) == 'table' then
				singleProperty( sngl )
			end
		end
	end

	if #arr > p.c then
		for i = #arr, p.c + 1, -1 do -- delete supernumerary values
			table.remove( arr, i )
		end
	end
	if p.m == 'no' then
		return arr
	else
		return table.concat( arr, p.m or ', ' )
	end
end

local function getAddressesFromWikidata( page, country, entity )
	local addresses = {}
	local t, u, w, weight

	-- getting addresses from Wikidata but only if necessary
	if vp.ParMap.address == true or vp.ParMap.addressLocal == true then
		-- P6375: address
		addresses = wu.getMonolingualValues( entity, mi.properties.streetAddress )
		if next( addresses ) then -- sometimes addresses contain <br> tag(s)
			for key, value in pairs( addresses ) do
				addresses[ key ] = value:gsub( '</*br%s*/*>', ' ' )
			end
		else
			return
		end
	else
		return
	end

	if vp.ParMap.address == true then
		vp.ParMap.address = addresses[ page.lang ]
		-- select address if the same writing system is used
		if not vp.ParMap.address then
			weight = -1
			u = getLngProperty( page.lang, 'w' ) -- writing entity id
			for key, value in pairs( addresses ) do
				-- same writing entity id as page.lang
				w = getLngProperty( key, 'w' )
				if w == '' then
					country.unknownPropertyLanguage = true
				else
					if key and w == u then -- same writing entity id
						w = getLngProperty( key, 'c' ) -- getting language weight
						if w > weight then -- compare language weight
							vp.ParMap.address = value
							vp.ParMap.addressLang = key
							weight = w
						end
					end
				end
			end
		end
		if not vp.ParMap.address then
			for i, lng in ipairs( mi.langs ) do
				if addresses[ lng ] then
					vp.ParMap.address = addresses[ lng ]
					vp.ParMap.addressLang = lng
					break
				end
			end
		end
		if not vp.ParMap.address then
			vp.ParMap.address = ''
			vp.ParMap.addressLang = ''
		end
		vp.wdContent.address = vp.ParMap.address ~= ''
	end

	-- removing county name from the end of address
	-- same with county name in county language and English
	if type( vp.ParMap.address ) == 'string' then
		vp.ParMap.address = mw.ustring.gsub( vp.ParMap.address,
			'[.,;]*%s*' .. country.country .. '$', '' )
	end

	t = true
	for i, lng in ipairs( mi.langs ) do
		if country.lang == lng then
			t = false
		end
	end
	if t and vp.ParMap.addressLocal == true
		and country.lang ~= page.lang then
		if country.lang ~= '' then
			vp.ParMap.addressLocal = addresses[ country.lang ] or ''
		else
			-- unknown language, maybe missing in Module:Languages
			vp.ParMap.addressLocal = addresses.unknown or ''
		end
		vp.wdContent.addressLocal = vp.ParMap.addressLocal ~= ''
	end
end

local function getDataFromWikidata( page, country, entity )
	if vp.ParMap.wikidata == '' then
		return
	end

	-- except local data if wiki language == country language
	if page.lang == country.lang then
		for key, value in ipairs( { 'nameLocal', 'addressLocal', 'directionsLocal' } ) do
			if type( vp.ParMap[ value ] ) == 'boolean' then
				vp.ParMap[ value ] = ''
			end
		end
	end

	mu.getNamesFromWikidata( vp.ParMap, vp.wdContent, page, country, entity )

	getAddressesFromWikidata( page, country, entity )
	if vp.ParMap.hours == true then
		local lastEdit
		getHourModules()
		vp.ParMap.hours, lastEdit = hr.getHoursFromWikidata( entity, page.lang,
			mi.langs[ 1 ] or '', mi.maintenance.properties, nil, vp.ParMap.lastedit,
			vq.labels )
		vp.wdContent.hours = vp.ParMap.hours ~= ''
		if mi.options.lasteditHours then
			vp.ParMap.lastedit = lastEdit
		end
	end

	for key, value in pairs( vp.ParWD ) do
		if vp.ParMap[ key ] == true then
			vp.ParMap[ key ] =
				getWikidataItem( vp.ParWD[ key ], entity, page, country )
			vp.wdContent[ key ] = vp.ParMap[ key ] ~= ''
		end
	end

	mu.getArticleLink( vp.ParMap, entity, page )
	mu.getCommonsCategory( vp.ParMap, entity )
	mu.getCoordinatesFromWikidata( vp.ParMap, vp.wdContent, entity )
end

local function simplifyString( s )
	s = mw.ustring.lower( s )
	s = mw.ustring.gsub( s, '[“”„‟«»]', '"' )
	s = mw.ustring.gsub( s, "[‘’‚‛‹›]", "'" )
	return mw.ustring.gsub( s, "[‐‑‒–—―]", "-" )
end

local function compareLocal( value1, key2 )
	if not mu.isSet( value1 ) or not mu.isSet( vp.ParMap[ key2 ] ) then
		return
	end
	local s1 = simplifyString( value1 )
	local s2 = simplifyString( vp.ParMap[ key2 ] )
	local minLen = math.min( mw.ustring.len( s1 ), mw.ustring.len( s2 ) )
	if s1 == s2 or ( minLen > 0 and mw.ustring.sub( s1, 1, minLen ) ==
		mw.ustring.sub( s2, 1, minLen ) ) then
		vp.ParMap[ key2 ] = ''
	end
end

local function finalParameterCheck( show, page, country, defaultType, entity )
	-- remove boolean values from parameters to have only strings
	for key, value in pairs( vp.ParMap ) do
		if type( vp.ParMap[ key ] ) == 'boolean' then
			vp.ParMap[ key ] = ''
		end
	end
	-- image check
	if not vp.wdContent.image or mi.options.WDmediaCheck then 
		mu.checkImage( vp.ParMap, entity )
	end

	-- use local name if name is not given
	if vp.ParMap.name == '' and vp.ParMap.nameLocal ~= '' then
		vp.ParMap.name = vp.ParMap.nameLocal
		vp.ParMap.nameLocal = ''
	end
	-- missing name
	if vp.ParMap.name == '' then
		vp.ParMap.name = mi.maintenance.missingName
		mu.addMaintenance( mi.maintenance.missingNameMsg )
	end
	-- handling linked names like [[article|text]]
	vp.ParMap.givenName = mu.getName( vp.ParMap.name, vp.ParMap.wikiPage )

	-- identical names
	compareLocal( vp.ParMap.givenName.name, 'nameLocal' )
	compareLocal( vp.ParMap.givenName.name, 'alt' )
	compareLocal( vp.ParMap.givenName.name, 'comment' )
	compareLocal( vp.ParMap.nameLocal, 'alt' )
	compareLocal( vp.ParMap.directions, 'directionsLocal' )
	compareLocal( vp.ParMap.address, 'addressLocal' )

	mu.removeStars( vp.ParMap, { 'alt', 'nameExtra' } )

	-- analysing addressLocal vs address
	if vp.ParMap.addressLang and vp.ParMap.addressLang == country.lang then
		vp.ParMap.addressLocal = ''
	end
	if vp.ParMap.addressLocal ~= '' and vp.ParMap.address == '' then
		vp.ParMap.address =
			mu.languageSpan( vp.ParMap.addressLocal, mi.texts.hintAddress, page, country )
		vp.ParMap.addressLocal = ''
		vp.wdContent.address = vp.wdContent.addressLocal
	end

	-- names shall not contain tags or template calls
	if vp.ParMap.name:find( '<', 1, true ) or vp.ParMap.name:find( '{{', 1, true ) or 
		vp.ParMap.nameLocal:find( '<', 1, true ) or vp.ParMap.nameLocal:find( '{{', 1, true ) then
		mu.addMaintenance( mi.maintenance.malformedName )
	end

	show.noCoord = vp.ParMap.lat == '' or vp.ParMap.long == ''
	if show.noCoord then
		show.coord = nil
		show.poi   = nil
		mu.addMaintenance( mi.maintenance.missingCoordVc )
	end

	-- getting Marker type, group, and color
	if not mu.isSet( vp.ParMap.type ) and mu.isSet( defaultType ) then
		vp.ParMap.type = defaultType
	end
	mu.checkTypeAndGroup( vp.ParMap )
	mu.getColor( vp.ParMap )
	if mi.options.useTypeCateg and vp.ParMap.typeTable then
		for i, aType in ipairs( vp.ParMap.typeTable ) do
			mu.addMaintenance( mw.ustring.format( mi.maintenance.type, aType ) )
		end
	end

	mu.checkStatus( vp.ParMap )

	vp.ParMap.zoom = math.floor( tonumber( vp.ParMap.zoom ) or mi.defaultZoomLevel )
	if vp.ParMap.zoom < 0 or vp.ParMap.zoom > mi.maxZoomLevel then
		vp.ParMap.zoom = mi.defaultZoomLevel
	end

	vp.ParMap.commonscat = vp.ParMap.commonscat:gsub( ' ', '_' )

	if mu.isSet( vp.ParMap.description ) and mw.ustring.match( vp.ParMap.description, '[%w_€$]$' ) then
		vp.ParMap.description = vp.ParMap.description .. '.'
	end
end

local function makeSpan( s, class, title, isBdi, lang )
	return tostring( mw.html.create( isBdi and 'bdi' or 'span' )
		:addClass( class )
		:attr( { title = title, lang = lang } )
		:wikitext( s )
	)
end

local function formatText( tab, key, class )
	if not mu.isSet( vp.ParMap[ key ] ) then
		return
	end

	local r
	local textKey = key
	if key == 'hours' then
		vp.ParMap[ key ], r = mw.ustring.gsub( vp.ParMap[ key ],
			mi.texts.closedPattern, '' )
		textKey = ( r > 0 ) and 'closed' or key
	end
	r = mw.ustring.format( mi.texts[ textKey ], vp.ParMap[ key ] )
	r =	mw.ustring.gsub( r, '^%a', mw.ustring.upper )
	r = r .. ( r:sub( -1 ) == '.' and '' or '.' )

	table.insert( tab, makeSpan( r, class .. addWdClass( key ) ) )
end

local function formatPhone( key, country )
	if not mu.isSet( vp.ParMap[ key ] ) then
		return ''
	end
	
	local class
	local pArgs = {
		phone = vp.ParMap[ key ],
		cc = country.cc,
		isFax = false,
		isTollfree = false,
		format = false
	}
	if vp.wdContent[ key ] then
		pArgs.format = true
		pArgs.size = country.phoneDigits or 2
	end

	if key == 'fax' then
		class = 'p-tel-fax fax listing-fax' .. addWdClass( key )
		pArgs.isFax = true
	else
		class = 'p-tel tel listing-phone' .. addWdClass( key )
		if key == 'phone' then
			class = class .. ' listing-landline'
		elseif key == 'tollfree' then
			class = class .. ' listing-tollfree'
			pArgs.isTollfree = true
		elseif key == 'mobile' then
			class = class .. ' listing-mobile'
		end
	end
	return mw.ustring.format( mi.texts[ key ],
		makeSpan( lp.linkPhoneNumbers( pArgs ), class ) )
end

local function makeIcons( page, country, entity )
	local name = vp.ParMap.givenName.name
	local icons = {}
	local onlyWikidata = false
	if mi.options.showSisters then
		onlyWikidata = mu.makeSisterIcons( icons, vp.ParMap, page, country, entity )
	end
	mu.makeSocial( icons, vp.ParMap, vp.wdContent, name )
	if #icons > 0 then
		return ( onlyWikidata and '' or ' ' ) .. table.concat( icons, '' )
	else
		return ''
	end
end

local function formatDate( aDate, aFormat )
	return mw.getContentLanguage():formatDate( aFormat, aDate, true )
end

local function removeFullStops( s )
	-- closing (span) tags between full stops
	return s:gsub( '%.+(</[%l<>/]+>)%.+', '%1.' )
		:gsub( '%.%.+', '.' )
end

local function makeMarkerAndName( show, page, country, frame )
	local r = ''
	local m, s, t

	if vp.ParMap.before ~= '' then
		r = r .. makeSpan( vp.ParMap.before .. ' ', 'listing-before' )
	end
	-- adding status icons
	t = mu.makeStatusIcons( vp.ParMap )
	if t ~= '' then
		r = r .. t .. ' '
	end

	-- adding POI marker
	mu.setCopyMarker( vp.ParMap, show )
	if show.poi or mu.isSet( vp.ParMap.copyMarker ) then
		vp.ParMap.symbol = '-number-' .. vp.ParMap.group
		if show.symbol then
			s = mu.getMakiIconName( vp.ParMap.type )
			if s then
				m = mu.getMaki( s )
				if m and m.im then
					vp.ParMap.symbol = s
					vp.ParMap.text = mw.ustring.format( '[[File:%s|x14px|link=|class=noviewer]]',
						m.im )
				end
			end
		end
		vp.ParMap.useIcon = false
		r = r ..
			mu.makeMarkerSymbol( vp.ParMap, vp.ParMap.givenName.all, frame ) .. '&nbsp;'
	end
	
	-- adding names, url, comment and airport codes
	mu.checkUrl( vp.ParMap )

	t = vp.ParMap.nameExtra ~= '' and ( ' ' .. vp.ParMap.nameExtra ) or ''
	if vp.ParMap.url ~= '' and vp.ParMap.givenName.pageTitle == '' then
		t = '[' .. vp.ParMap.url .. ' '
			.. mu.replaceBrackets( vp.ParMap.givenName.name ) .. ']' .. t
	else
		t = vp.ParMap.givenName.all .. t
	end
	s = mw.uri.anchorEncode( vp.ParMap.givenName.name ):gsub( '&amp;', '&' )
		:gsub( '&#039;', "'" )
	r = r .. tostring( mw.html.create( 'bdi' )
		:attr( 'id', 'vCard_' .. s )
		:attr( 'class', 'p-name p-org fn org listing-name' .. addWdClass( 'name' ) )
		:cssText( vp.ParMap.styles )
		:wikitext( t )
	)

	if vp.ParMap.url ~= '' and vp.ParMap.givenName.pageTitle ~= '' then
		r = r .. ' ' .. mu.addLinkIcon( 'listing-url', vp.ParMap.url, mi.iconTitles.internet,
			'internet' )
	end

	local tab = {}
	if mi.options.showLocalData then
		if vp.ParMap.nameLocal ~= '' then
			table.insert( tab, 
				mu.languageSpan( vp.ParMap.nameLocal, mi.texts.hintName, page, country,
				'listing-name-local' .. addWdClass( 'nameLocal' ) ) )
		end
		if vp.ParMap.nameLatin ~= '' then
			table.insert( tab, makeSpan( vp.ParMap.nameLatin,
				'listing-name-latin', mi.texts.hintLatin, false,
				mu.isSet( country.lang ) and ( country.lang .. '-Latn' ) or nil ) )
		end
	end
	if vp.ParMap.alt ~= '' then
		mu.tableInsert( tab, makeSpan( vp.ParMap.alt, nil, nil, true ) )
	end
	t = table.concat( tab, ', ' )
	if t ~= '' then
		t = makeSpan( t, 'p-nickname nickname listing-alt' )
	end
	if t ~= '' then
		tab = { t }
	else
		tab = {}
	end
	if vp.ParMap.comment ~= '' then
		table.insert( tab, makeSpan( vp.ParMap.comment, 'listing-comment' , nil, true ) )
	end
	if not show.noairport and vp.ParMap.type == mi.airportType then
		mu.tableInsert( tab, mu.makeAirport( vp.ParMap, vp.wdContent ) )
	end
	t = table.concat( tab, ', ' )
	if t ~= '' then
		r = r .. ' (' .. t .. ')'
	end

	return r
end

local function makeEvent( page )
	local isEvent = false
	local s = {}
	local count = 0 -- counts from-to statements
	local startMonth -- month of start date
	local today = page.langObj:formatDate( 'Y-m-d', 'now', true )
	local todayYear = today:sub( 1, 4 )  -- yyyy
	local todayMonth = today:sub( 6, 7 ) -- mm
	local lastDate = ''
	local lastYear = ''
	local useYMD -- both dates are yyyy-mm-dd

	local function makePeriod( beginP, endP )
		if beginP == endP then
			endP = ''
		end
		if mu.isSet( beginP ) and mu.isSet( endP ) then
			count = count + 1
			return mw.ustring.format( mi.texts.fromTo2, beginP, endP )
		elseif mu.isSet( beginP ) then
			return beginP
		else
			return endP
		end
	end

	local function analyseDate( d, m, y )
		local success, c, t

		if useYMD then
			success, t = pcall( formatDate, d, mi.dates.yyyymmdd.f )
			success, c = pcall( formatDate, d, 'Y-m-d' )
			if success then
				lastDate = c > lastDate and c or lastDate
				d = t
			end
			return d, nil
		end

		if d:match( mi.dates.yyyymmdd.p ) then
			y = d:sub( 1, 4 )
			d = d:sub( 6 )
		end
		if mu.isSet( y ) then
			if y:match( mi.dates.yy.p ) then
				y = ( '2000' ):sub( -#y ) .. y
			elseif not y:match( mi.dates.yyyy.p ) then
				y = nil
			end
			lastYear = y > lastYear and y or lastYear
		end
		if mu.isSet( d ) and mu.isSet( m ) and d:match( mi.dates.dd.p ) and
			not m:match( mi.dates.mm.p ) then
			-- try to convert month to number string
			success, t = pcall( formatDate, m, 'm' )
			if success then
				m = t
			else
				for i = 1, 12, 1 do
					if m == mi.months[ i ] or mw.ustring.match( m, mi.monthAbbr[ i ] ) then
						m = '' .. i
						break
					end
				end
			end
		end
		if mu.isSet( d ) and mu.isSet( m ) and d:match( mi.dates.dd.p ) and
			m:match( mi.dates.mm.p ) then
			d = m:gsub( '%.+$', '' ) .. '-' .. d:gsub( '%.+$', '' )
			m = nil
		elseif mu.isSet( d ) and not mu.isSet( m ) and d:match( mi.dates.dd.p ) then
			d = ( startMonth or todayMonth ) .. '-' .. d:gsub( '%.+$', '' )
		end
		if mu.isSet( d ) then
			if d:match( mi.dates.mmdd.p ) then
				startMonth = d:gsub( '%-%d+', '' )
				m = nil
				c = ( y or todayYear ) .. '-' .. d
				success, t = pcall( formatDate, c, mi.dates.mmdd.f )
				if success then
					d = t
				end
			elseif d:match( mi.dates.dd.p ) and not mu.isSet( m ) and startMonth then
				c = ( y or todayYear ) .. '-' .. startMonth .. '-' .. d
				success, t = pcall( formatDate, c, mi.dates.mmdd.f )
				if success then
					d = t
				end
			end
		end
		if mu.isSet( m ) then
			d = ( mu.isSet( d ) and ( d .. ' ' ) or '' ) .. m
		end
		return d, y
	end

	if vp.ParMap.group ~= mi.eventGroup then
		return ''
	end
	for i, param in ipairs( { 'date', 'month', 'year', 'endDate', 'endMonth',
		'endYear', 'frequency', 'location' } ) do
		if mu.isSet( vp.ParMap[ param ] ) then
			isEvent = true
			break
		end
	end
	if not isEvent then
		return ''
	end

	if mu.isSet( vp.ParMap.frequency ) then
		table.insert( s, makeSpan( vp.ParMap.frequency, 'listing-frequency' ) )
	else
		if vp.ParMap.date:match( mi.dates.yyyymmdd.p ) and
			vp.ParMap.endDate:match( mi.dates.yyyymmdd.p ) then
			useYMD = true
			if vp.ParMap.date > vp.ParMap.endDate then
				vp.ParMap.date, vp.ParMap.endDate = vp.ParMap.endDate, vp.ParMap.date
			end
		end
		vp.ParMap.date, vp.ParMap.year
			= analyseDate( vp.ParMap.date, vp.ParMap.month, vp.ParMap.year )
		vp.ParMap.endDate, vp.ParMap.endYear
			= analyseDate( vp.ParMap.endDate, vp.ParMap.endMonth, vp.ParMap.endYear )

		local d = {}
		mu.tableInsert( d, makePeriod( vp.ParMap.date, vp.ParMap.endDate ) )
		mu.tableInsert( d, makePeriod( vp.ParMap.year, vp.ParMap.endYear ) )
		mu.tableInsert( s, makeSpan( table.concat( d, count > 1 and ', ' or ' ' ),
			'listing-date' ) )

		if ( lastYear ~= '' and lastYear < todayYear ) or 
			( lastDate ~= '' and lastDate < today ) then
			mu.addMaintenance( mi.maintenance.outdated )
		end
	end
	
	if mu.isSet( vp.ParMap.location ) then
		local locations = mu.textSplit( vp.ParMap.location, ',' )
		for i, location in ipairs( locations ) do
			if location ~= page.subpageText and location ~= page.text
				and mw.title.new( location, '' ).exists then
				location = makeSpan( '[[' .. location .. ']]', 'listing-location' )
			end
			table.insert( s, location )	
		end
	end

	s = table.concat( s, ', ' )
	return ( s ~= '' and ': ' or '' ) .. s
end

local function makeAddressAndDirections( page, country )
	local r = ''
	local t

	if vp.ParMap.address ~= '' then
		if mu.isSet( vp.ParMap.addressLang ) then
			t = mw.language.fetchLanguageName( vp.ParMap.addressLang, page.lang ) or ''
			if t == '' then
				country.unknownPropertyLanguage = true
				t = nil
			end
		end

		r = r .. ', ' .. tostring( mw.html.create( 'bdi' )
			:attr( 'class', 'p-adr adr listing-address' .. addWdClass( 'address' ) )
			:attr( 'lang', mu.data( vp.ParMap.addressLang ) )
			:attr( 'title', t and mw.ustring.format( mi.texts.hintAddress2, t ) or nil )
			:wikitext( makeSpan( vp.ParMap.address, 'p-street-address street-address' ) )
		)
	end
	if mi.options.showLocalData and vp.ParMap.addressLocal ~= '' then
		r = r .. makeSpan( ', ' .. 
			mu.languageSpan( vp.ParMap.addressLocal, mi.texts.hintAddress, page, country,
				'listing-address-local' .. addWdClass( 'addressLocal' ) ),
			'listing-add-info'
		)
	end

	t = ''
	if vp.ParMap.directions ~= '' then
		t = makeSpan( vp.ParMap.directions, 'listing-directions' .. addWdClass( 'directions' ) )
	end
	local s = ''
	if mi.options.showLocalData and vp.ParMap.directionsLocal ~= '' then
		s = mu.languageSpan( vp.ParMap.directionsLocal, mi.texts.hintDirections, page, country,
			'listing-directions-local' .. addWdClass( 'directionsLocal' ) )
		if t ~= '' then
			s = ', ' .. s
		end
		s = makeSpan( s, 'listing-add-info' )
	end
	if ( t .. s ) ~= '' then
		r = r .. ' (' .. t .. s .. ')'
	end
	if r ~= '' then
		if not r:find( '^,' ) and not r:find( '^ %(' ) then
			r = '. ' .. r
		end
	end

	return r
end

local function makeContacts( country )
	local t = {}
	local s = ''

	mu.tableInsert( t, formatPhone( 'phone', country ) )
	mu.tableInsert( t, formatPhone( 'tollfree', country ) )
	mu.tableInsert( t, formatPhone( 'mobile', country ) )
	mu.tableInsert( t, formatPhone( 'fax', country ) )
	if vp.ParMap.email ~= '' then
		local lm = require( 'Module:LinkMail' )
		s = makeSpan( lm.linkMailSet( { email = vp.ParMap.email, ignoreUnicode = 1 } ),
			'u-email email listing-email' .. addWdClass( 'email' ) )
		mu.tableInsert( t, mw.ustring.format( mi.texts.email, s ) )
	end
	if vp.ParMap.skype ~= '' then
		local ls = require( 'Module:LinkSkype' )
		s = makeSpan( ls.linkSkypeSet( { skype = vp.ParMap.skype } ),
			'listing-skype' .. addWdClass( 'skype' ) )
		mu.tableInsert( t, mw.ustring.format( mi.texts.skype, s ) )
	end

	s = table.concat( t, ', ' )
	if s ~= '' then
		s = '. ' .. mw.ustring.gsub( s, '^%a', mw.ustring.upper )
	end
	return s
end

-- checking subtypes
local function checkSubtypes( subtypesTable )
	if not mu.isSet( vp.ParMap.subtype ) then
		return {}
	end

	local function aliasToSubtype( alias )
		if not vc.subtypeAliases then -- alias to subtype table
			vc.subtypeAliases = mu.getAliases( subtypesTable, 'alias' )
		end
		return vc.subtypeAliases[ alias ]
	end

	local function subtypeExists( subtype )
		return subtypesTable[ subtype ] and subtype or aliasToSubtype( subtype )
	end

	local subtypes = {}
	local invalidSubtypes = {}
	local at, count, invalidCount, item
	for subtype, v in pairs( mu.split( vp.ParMap.subtype, true ) ) do
		invalidCount = false
		count = ''
		item = subtype
		-- split item from count
		at = item:find( ':', 1, true )
		if at then
			count = tonumber( item:sub( at + 1, #item ) ) or ''
			item = mw.text.trim( item:sub( 1, at - 1 ) )
			if count == '' then
				invalidCount = true -- ':' without count or not a number
			else
				count = math.floor( count )
				if count < 2 then
					count = ''
				end
			end
		end
		item = subtypeExists( item ) or mu.typeExists( item )
		if item then
			subtypes[ item ] = count
		end
		if invalidCount or not item then
			table.insert( invalidSubtypes, subtype )
		end
	end
	if #invalidSubtypes > 0 then
		mu.addMaintenance( mw.ustring.format( mi.maintenance.unknownSubtype,
			table.concat( invalidSubtypes, ', ' ) ) )
	end
	return subtypes
end

-- making subtypes string
local function makeFeatures( tab, show )
	vp.wdContent.subtypeAdd = not show.nowdsubtype and
		type( vp.ParMap.subtypeAdd ) == 'table' and #vp.ParMap.subtypeAdd > 0
	if show.nosubtype or not ( vp.wdContent.subtypeAdd or mu.isSet( vp.ParMap.subtype )
		or #vp.ParMap.subtypeTable > 0 ) then
		return
	end

	local vs = require( 'Module:VCard/Subtypes' )
	local function getSubtypeParams( subtype )
		local r = vs.f[ subtype ] or mu.getTypeParams( subtype )
		if not r.n then
			r.n = r.label or subtype
		end
		r.g = r.g or vs.n
		return r
	end

	local subtypes = checkSubtypes( vs.f )

	-- merging subtypeAdd (from Wikidata) to manually entered subtypes
	local unknowWDfeatures = false
	local count, p, t
	if vp.wdContent.subtypeAdd then
		-- making translation table from Wikidata ids to feature types
		local subtypeIds = mu.getAliases( vs.f, 'wd' )

		-- adding type if Wikidata id (wd.value) is known
		-- indexed array prevents multiple identical types
		for i, wd in ipairs( vp.ParMap.subtypeAdd ) do
			t = subtypeIds[ wd.value ] or mu.idToType( wd.value )
			if t then
				subtypes[ t ] = {
					c = ( wd[ mi.properties.quantity ]
						and wd[ mi.properties.quantity ][ 1 ] )
						or ( wd[ mi.properties.capacity ] and
						wd[ mi.properties.capacity ][ 1 ] ) or '',
					p = wd.policyComment
				}
			elseif not vs.exclude[ wd.value ] then
				unknowWDfeatures = true
			end
		end
	end
	if unknowWDfeatures then
		mu.addMaintenance( mi.maintenance.unknowWDfeatures )
	end
    if next( subtypes ) == nil and #vp.ParMap.subtypeTable == 0 then
        return
    end

	-- replace selected subtypes
	for subtype, count in pairs( subtypes ) do
		if vs.convert[ subtype ] then
			if type( count ) == 'table' then
				p = count.p
				count = count.c
			end
			t = vs.convert[ subtype ][ count ] or vs.convert[ subtype ][ 1 ]
			subtypes[ t ] = { p = p }
			subtypes[ subtype ] = nil
		end
	end

	-- make subtypes table sortable
	local s = {};
	for subtype, count in pairs( subtypes ) do
		if type( count ) == 'table' then
			table.insert( s, { t = subtype, c = count.c, p = count.p } )
		else
			table.insert( s, { t = subtype, c = count } )
		end
	end
	-- add subtypes from types table
	if vp.ParMap.subtypeTable then
		for i, subtype in ipairs( vp.ParMap.subtypeTable ) do
			table.insert( s, { t = subtype, c = 1 } )
		end
	end

	-- sorting subtypes
	-- by subtype group and then alphabetically by name
	table.sort( s,
		function( a, b )
			local at = getSubtypeParams( a.t )
			local bt = getSubtypeParams( b.t )
			local na = mu.convertForSort( at.n )
			local nb = mu.convertForSort( bt.n )
			return ( at.g < bt.g ) or ( at.g == bt.g and na < nb )
		end
	)

	-- make text and data output
	local data = {} -- for data-subtype attribute in wrapper tag
	if #s > 0 then
		local r = {};
		local subtype, f, u, u_n, v
		for i = 1, #s do
			subtype = s[ i ]

			-- for data-subtype="..." in wrapper tag
			u = subtype.t .. ',' .. tostring( i )
			if type( subtype.c ) == 'number' and subtype.c > 1 then
				u = u .. ',' .. subtype.c
			end
			table.insert( data, u )

			u = getSubtypeParams( subtype.t )
			if u.g >= vs.first then
				u_n = u.n
				if not mu.isSet( u_n ) then
					u_n = subtype.t 
				end
				u_n = u_n:gsub( '[,;/].*$', '' )
				count = ( type( subtype.c ) == 'number' ) and subtype.c or 1
				if count > 1 and u_n:find( '%[[^%[%]]*%]' ) then
					v = mw.ustring.format( mi.texts.subtypeWithCount, subtype.c,
						u_n:gsub( '%[([^%[%]]*)|([^%[%]]*)%]', '%1' )
							:gsub( '%[([^%[%]]*)%]', '%1' ) )
				else
					v = u_n:gsub( '%[([^%[%]]*)|([^%[%]]*)%]', '%2' )
						:gsub( '%[([^%[%]]*)%]', '' )
				end
				if mu.isSet( u.t ) then -- string tooltip
					v = mw.ustring.format( mi.texts.subtypeSpan, u.t, v )
				elseif mu.isSet( u.f ) then -- icons
					f = mw.ustring.format( mi.texts.subtypeFile, u.f, v )
					if u.c then
						f = mw.ustring.rep( f, u.c )
					end
					v = mw.ustring.format( mi.texts.subtypeAbbr, v, f )
				end
				-- adding policy comment
				if subtype.p and subtype.p ~= '' then
					v = v .. ' (' .. subtype.p .. ')'
				end
			end
			table.insert( r, v )
		end
		if #r > 0 then
			r = #r == 1 and mw.ustring.format( mi.texts.subtype, r[ 1 ] )
				or mw.ustring.format( mi.texts.subtypes, table.concat( r, ', ' ) )
			if r ~= '' then
				table.insert( tab, makeSpan( r, 
					'listing-subtype' .. addWdClass( 'subtypeAdd' ) ) )
			end
		end
	end

	-- subtype contains now the value for wrapper tag
	vp.ParMap.subtype = table.concat( data, ';' )
end

local function makePayment( tab )
	if not mu.isSet( vp.ParMap.payment ) then
		return
	end

	local t
	local class = 'p-note note listing-payment'
	if type( vp.ParMap.payment ) == 'table' then
		local vr = mw.loadData( 'Module:VCard/Cards')
		for i = #vp.ParMap.payment, 1, -1 do -- remove unknown items
			t = vp.ParMap.payment[ i ]
			if vr.cards[ t ] then
				vp.ParMap.payment[ i ] = vr.cards[ t ]
			else
				table.remove( vp.ParMap.payment, i )
			end
		end
		class = class .. mu.addWdClass( #vp.ParMap.payment > 0 )
		vp.ParMap.payment = table.concat( vp.ParMap.payment, ', ' )
	else
		mu.addMaintenance( mi.maintenance.paymentUsed )
	end
	formatText( tab, 'payment', class )
end

local function wrapDescription( tab, isInline, addText )
	local text = vp.ParMap.description .. ( addText or '' )
	if vp.ParMap.description ~= '' then
		table.insert( tab, tostring( mw.html.create( isInline and 'span' or 'div' )
			:attr( 'class', 'p-note note listing-content' )
			:wikitext( text ) )
		)
	end
end

local function makeMetadata()
	local outdated = false
	local s, success, u
	local t = vp.ParMap.lastedit
	if t ~='' then
		success, t = pcall( formatDate, t, mi.dates.lastedit.f )
		if not success then
			mu.addMaintenance( mi.maintenance.wrongDate )
			t = ''
		else
			success, s = pcall( formatDate, vp.ParMap.lastedit, 'U' ) -- UNIX seconds
			success, u = pcall( formatDate, mi.texts.expirationPeriod, 'U' )
			if s < u then
				t = t .. ' ' .. mi.texts.maybeOutdated
				outdated = true
			end
		end
	end

	local tag = mw.html.create( 'span' )
		:attr( 'class', 'listing-metadata listing-metadata-items' )
		-- add node to save the parent tag
		:node( mw.html.create( 'span' )
			:attr( 'class', 'listing-metadata-item listing-lastedit' )
			:addClass( outdated and 'listing-outdated' or nil )
			:addClass( t == '' and 'listing-item-dummy' or nil )
			:wikitext( mw.ustring.format( mi.texts.lastedit,
				t == '' and mi.texts.lasteditNone or t ) )
		)
	return tostring( tag )
end

-- making description, coordinates, and meta data
local function makeDescription( show, page, country, entity )
	local tab = {}

	-- inline description
	if show.inlineDescription then
		wrapDescription( tab, true )
	end

	-- adding features
	makeFeatures( tab, show )

	-- practicalities
	formatText( tab, 'hours', 'p-note note listing-hours' )
	formatText( tab, 'checkin', 'listing-checkin' )
	formatText( tab, 'checkout', 'listing-checkout' )
	formatText( tab, 'price', 'p-note note listing-price' )
	makePayment( tab )

	-- adding Unesco symbol
	if vp.ParMap.unesco ~= '' and mi.options.showUnesco then
		local uLink, uTitle = require( 'Module:VCard/Unesco' ).getUnescoInfo( country )
		table.insert( tab, mu.addLinkIcon( 'listing-unesco voy-symbol-unesco',
			uLink, uTitle, 'unesco' ) )
	end

	local noContent = #tab == 0

	-- adding DMS coordinates
	if show.coord then
		table.insert( tab, mu.dmsCoordinates( vp.ParMap.lat, vp.ParMap.long,
			vp.ParMap.givenName.name, vp.wdContent.lat, country.extra, true ) )
	end
	if mi.options.showSisters == 'atEnd' then
		table.insert( tab, makeIcons( page, country, entity ) )
	end

	local metaData = makeMetadata()

	-- adding description in block mode
	local description
	if vp.ParMap.description ~= '' and not show.inlineDescription then
		-- last edit will be inserted at the end of the div tag
		wrapDescription( tab, false, metaData )
		noContent = false
		description = table.concat( tab, ' ' )
		if description ~= '' then
			description = ' ' .. description
		end
	else
		description = table.concat( tab, ' ' )
		if description ~= '' then
			description = ' ' .. description
		end
		description = description .. metaData
	end

	return removeFullStops( description ), noContent
end

local function makeMaintenance( page )
	local ns = page.namespace
	local r = ''
	if ns ~= 4 and ns ~= 10 and ns ~= 828 then
		r = r .. mu.getMaintenance()
		if mi.options.usePropertyCateg then
			local m = mi.maintenance.properties -- format string
			r = r .. wu.getCategories( m ) .. mu.getCategories( m )
				.. cm.getCategories( m )
			if hr then
				r = r .. hr.getCategories( m )
			end
		end
	end
	return r
end

-- vCard main function
function vc.vCard( frame )
	mu.initMaintenance( mi.moduleNames.vcard )
	local page = mu.getPageData()

	-- getting location (vCard/listing) entity, show options and country data
	local defaultType = frame.args.type
	local vcEntity, show, country = initialParameterCheck( frame )

	-- associated Wikivoyage page of the location in current Wikivoyage branch
	-- possibly modified by mu.getArticleLink()
	vp.ParMap.wikiPage = ''

	-- getting data from Wikidata
	getDataFromWikidata( page, country, vcEntity )

	-- final check
	finalParameterCheck( show, page, country, defaultType, vcEntity )

	-- making output
	-- leading part for marker mode: only location names and comment

	-- saving address
	vp.ParMap.addressOrig = vp.ParMap.address

	-- creating text parts
	-- leading part (marker and names)
	local leading = makeMarkerAndName( show, page, country, frame )
		.. makeEvent( page )

	-- additional parts for vCard mode
	local contacts = '' -- all contacts

	-- get address and directions
	local address = makeAddressAndDirections( page, country )

	-- get all contact information
	local contacts = makeContacts( country )
	contacts = removeFullStops( address .. contacts )
	
	-- making description, coordinates, and meta data
	local description, noContent =
		makeDescription( show, page, country, vcEntity )

	local r = leading
	local icons = ''
	if contacts == '' and noContent then
		show.inline = true
		r = r .. makeIcons( page, country, vcEntity ) .. description
	else
		if type( mi.options.showSisters ) == 'boolean' then
			-- could also be 'atEnd', then part of body
			icons = makeIcons( page, country, vcEntity )
		end
		r = removeFullStops( r .. contacts .. icons .. '. ' .. description )
			:gsub( '%)%s+%(', '; ' )
	end

	-- error handling and maintenance, not in template and module namespaces
	if country.unknownLanguage then
		mu.addMaintenance( mi.maintenance.unknownLanguage )
	end
	if country.unknownPropertyLanguage then
		mu.addMaintenance( mi.maintenance.unknownPropertyLanguage )
	end
	r = r .. makeMaintenance( page )

	-- wrapping tag
	vp.ParMap.address = vp.ParMap.addressOrig
	return mu.makeWrapper( r, vp.ParMap, page, country, show, vp.vcardData, 'vCard', frame )
end

return vc