コンテンツにスキップ

モジュール:VCard

提供:ウィキボヤージュ
モジュールの解説[表示] [編集] [履歴] [キャッシュを破棄]

このモジュールは、リスティングテンプレートの改良版に当たる{{vCard}}のメインモジュールです。パラメータの説明はテンプレートの解説ページをご覧ください。Wikivoyage:VCard (ドイツ語版も参照。

ウィキデータでのバージョン: 2024-05-13 問題なし

使用状況[編集]

このモジュールを使用しているテンプレートは以下の通りです:

使用例[編集]

* {{vCard | name = アイン・ホテル | type = hostel | url= http://hotel.de | lat = 52.5144 | long = 13.389722 | show = all | address-local = Hauptstraße 1 | directions = 脇道から分岐 | directions-local = Abzweig von der Nebenstraße | description = 市内中心部にあり、広々とした客室がありますが、提供は部屋と朝食のみです。 | phone = +49 (0)30 2345 1234 | fax = +49 (0)30 2345 9876, +49 0176 345 1234 | before = [[File:Flag of Germany.svg|border|20px|class=noviewer|ドイツ国旗]] | image = Berlin Friedrichstraße Galeries Lafayette.jpg | email = info@hotel.de | comment = j | lastedit = 2020-09-18 | hours = 7月24日 | checkin = 14時から | checkout = 12時まで | payment = Visa、Master、AmEx、Maestro | subtype = budget, wlan, bar, pool, room:89 }}

* {{vCard | wikidata = Q201219 | comment = 国立博物館併設 | name-latin = al-Matḥaf al-Miṣrī | address = Mīdān et-Taḥrīr | address-local = ميدان التحرير | directions = ダウンタウンに所在 | directions-local = بوسط البلد | status = top-sight }}
* {{vCard | wikidata = Q201219 | auto = n }}<!-- マーカーモード -->
* {{vCard | wikidata = Q1142142 | name = 北欧博物館 }} — 追加のコメント。
* {{vCard | wikidata = Q1142142 | price = n }}
* {{vCard | wikidata = Q257342 }}
* {{vCard | wikidata = Q28934 | description = テスト }}
* {{vCard | wikidata = Q4872 }}
* {{vCard | wikidata = Q10697 }}
* {{vCard | wikidata = Q12508 | description = テスト }}
* {{vCard | wikidata = Q46033 | auto = n | description = テスト }}
* {{vCard | wikidata = Q46033 | auto = n | show = symbol | description = アイコンを使用したテスト }}
* {{vCard | wikidata = Q13218762 | description = 英語版ウィキペディアへの参照リンク }}
* {{vCard | wikidata = Q56506795 | description = 住所の発行 }}
* {{vCard | wikidata = Q47429618 | auto = n | address = | address-local = | directions = | phone = | show = nowdsubtype | description = テスト中のWD由来の機能 }}
* {{vCard | wikidata = Q637739 | description = WD由来の車いす }}
* {{vCard | type = museum | wikidata = Q1332407 }}
* {{vCard | type = museum | wikidata = Q2917041 }}
  • ドイツ国旗 1 アイン・ホテル  jHauptstraße 1 脇道から分岐, ​Abzweig von der Nebenstraße。電話番号:+49 (0)30 2345 1234、ファックス:+49 (0)30 2345 9876+49 0176 345 1234、メール:。 市内中心部にあり、広々とした客室がありますが、提供は部屋と朝食のみです。 追加情報:Wi-Fi、バー、プール、部屋。 営業時間:7月24日。 チェックイン:14時から。 チェックアウト:12時まで。 支払方法:Visa、Master、AmEx、Maestro。 52° 30′ 52″ N 13° 23′ 23″ E
  •  1 エジプト考古学博物館  (‏المتحف المصري, ​al-Matḥaf al-Miṣrī, ​国立博物館併設Mīdān et-Taḥrīr, ​ميدان التحرير‎ ダウンタウンに所在, ​بوسط البلد‎)。電話番号:+20 (0)2 2578 2452+2 (0)2 2579 6948、メール:  。 営業時間:全曜日 9:00-19:00、9:00-16:00 (ラマダン)。 値段:LE 450(外国人*内部)、LE 230(留学生)、LE 30(アラブ*内部人)、LE 10(アラブ人学生)、無料(5 歳まで; アラブ*内部人、61 歳から);12/2023時点。 30° 2′ 52″ N 31° 14′ 0″ E
  • 2 エジプト考古学博物館   30° 2′ 52″ N 31° 14′ 0″ E
  • 3 北欧博物館  Nordiska museetDjurgårdsvägen 6-16, SE-115 93。メール: 
    — 追加のコメント。
  • 4 北方民族博物館  Nordiska museetDjurgårdsvägen 6-16, SE-115 93。メール: 
  • 5 Carnegie Library of Reims  bibliothèque Carnegie2 Place Carnegie, 51100 Reims。電話番号:+33 (0)3 26 77 81 41、メール: 
  • 6 ブリュッセル空港  Brussels Airport。電話番号:+32-900-70-000(ベルギー) Category:無効なフォーマットの電話番号 電話番号のフォーマットが無効です+32 (0)2 753 77 53  。 テスト。
  • 7 プーシキン美術館  Государственный музей изобразительных искусств имени А. С. Пушкинаулица Волхонка, 12 
  • 8 Cologne Public Library  Stadtbibliothek KölnJosef-Haubrich-Hof 1 
  • 9 三大ピラミッド  (‏مجمع أهرامات الجيزة‎)  。 テスト。 29° 58′ 34″ N 31° 7′ 58″ E
  • 10 フランクフルト空港  。 テスト。
  • 11 フランクフルト空港  。 アイコンを使用したテスト。
  • 12 カルナック野外博物館  (‏المتحف المفتوح بالكرنك‎)  。 英語版ウィキペディアへの参照リンク。 25° 43′ 10″ N 32° 39′ 27″ E
  • 13 ナイル・リッツ=カールトン  (‏النيل ريتز كارلتون القاهرة‎)١١١٣ كورنيش النيل ، ١١٢٢١ القاهرة。電話番号:+20 (0)2 2577 8899、ファックス:+20 (0)2 2578 0475+20 (0)2 2739 4637、メール:  。 住所の発行。 追加情報:★★★★★、無料Wi-Fi。 チェックイン:14:00。 チェックアウト:12:00。 支払方法:VISA、Mastercard、アメリカン・エキスプレス、中国銀聯、マスターカード・マエストロ。 30° 2′ 46″ N 31° 13′ 57″ E
  • 14 Steigenberger Hotel El Tahrir Cairo٢ شارع قصر النيل ، ميدان التحرير ، القاهرة。電話番号:+20 (0)2 2575 0777+20 (0)2 3854 2020+20 16416  。 テスト中のWD由来の機能。 30° 2′ 50″ N 31° 14′ 9″ E
  • 15 ベルリーナー・シュトラーセ駅  U-Bahnhof Berliner Straße  。 WD由来の追加情報(車いす) 追加情報:車いす対応
  • 1 ハレ州立先史博物館  Landesmuseum für Vorgeschichte HalleRichard-Wagner-Straße 9, 06114 Halle (Saale)。電話番号:+49 (0)345 52 47 30、ファックス:+49 (0)345 524 73 51、メール:  。 営業時間:火水木金 9:00-17:00;土日、公休 10:00-18:00;閉店:12月24日、12月31日。 値段:7.00 €(大人)、5.00 €(特価)、無料(子ども、0–18 歳)、3.00 €(音声ガイド)。
  • 2 スペイン国立人類学博物館  Museo Nacional de Antropologíacalle de Alfonso XII, 68, 28014 Madrid。電話番号:+34 915 30 64 18+34 915 39 59 95、ファックス:+34 914 67 70 98、メール:  。 追加情報:フラッシュ撮影禁止、三脚禁止、動物禁止。 営業時間:火水木金土 9:30-20:00;日 10:00-15:00;閉店:1月1日、1月6日、5月1日、12月24日、12月25日、12月31日。 値段:3 €、無料(未成年、障碍者; シニア、66 歳から)。

日本語版での不具合
  • typeの自動振り分けができていない
  • ウィキデータ由来の電話番号・メールのフォーマットでエラーが出る場合がある
    • 句読点と括弧について全角に対応できていないためとみられる

パラメータ「show」[編集]

以下のいずれか:nonepoicoordallnosubtypenowdsubtypeinlinenoairportoutdentsymbol。複数の値をカンマ区切りで指定できます。

  • 指定すると既定値を上書きします。
マーカーと座標に関する指定
  • nonepoicoordallよりも優先されます。allpoicoordよりも優先されます。
サブタイプの出力に関する指定
  • nonosubtypesubtypeを上書きすることができます。
ブロック表示/インライン表示
  • 基本的に、vCardはブロック表示(display: block;)です。ドイツ語版では、このモードに移行するにはいくつかの課題があるため、一部の記事で現在もまだインライン表示になっている場合があります。文章中での使用などはブロック表示ではできませんが、inlineを指定することでインライン表示に切り替えることができます。
  • indentを指定することで、ブロック表示でもインデントを下げて表示することができます。POIシンボルが箇条書きの点のように作用します。

-- module variable and administration
local vc = {
	moduleInterface = {
		suite  = 'vCard',
		serial = '2024-05-13',
		item   = 58187507
	},
	
	-- table containing parameters fetched from Wikidata
	fromWD = {},
	-- Wikidata to subtype table
	subtypeIds = nil
}

-- 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( vc.fromWD[ key ] )
end

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

-- copying frameArgs parameters to args = vp.ParMap parameters
local function copyParameters( args, show )
	local t, value
	local exclude = { auto = 1, show = 1, wikidata = 1 }

	vp.ParMap.wikidata = args.wikidata

	-- 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 not exclude[ key ] then
				if value == '' and key ~= 'type' 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

	return vp.ParMap
end

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

	frameArgs.wikidata, entity, wrongQualifier = wu.getEntity( frameArgs.wikidata or '' )
	if wrongQualifier then
		mu.addMaintenance( 'wrongQualifier' )
	end
	if mu.isSet( frameArgs.wikidata ) then
		mu.addMaintenance( 'wikidata' )
		v = mu.yesno( frameArgs.auto or '' )
		if v then
			vp.ParMap.auto = v == 'y'
		else
			vp.ParMap.auto = vi.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, frameArgs[ key ] )
	end

	-- getting country-specific technical parameters
	country = cm.getCountryData( entity, t, frameArgs.country )
	if country.fromWD then
		mu.addMaintenance( 'countryFromWD' )
	end
	if country.unknownCountry then
		mu.addMaintenance( 'unknownCountry' )
	end
	if country.cc ~= '' then
		country.trunkPrefix = lp.getTrunkPrefix( country.cc )
	end
	-- for map support
	country.extra = mi.map.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 = vp.ParMap.show .. ',' .. country.show
	end

	-- handling args table
	show = mu.getShow( vp.ParMap.show, frameArgs, vp.show )
	show.name = true

	-- copying frameArgs parameters to args = vp.ParMap parameters
	local args = copyParameters( frameArgs, show )
	-- checking coordinates and converting DMS to decimal coordinates if necessary

	mu.checkStatus( args )
	mu.checkStyles( args )
	-- checking coordinates and converting DMS to decimal coordinates if necessary
	mu.checkCoordinates( args )
	mu.checkZoom( args )
	-- remove namespace from category
	mu.checkCommonsCategory( args )
	for i, param in ipairs( mi.options.parameters ) do
		if mu.isSet( args[ param ] ) then
			mu.addMaintenance( 'parameterUsed', param )
		end
	end

	args.subtypeAdd = not show.nosubtype and not show.nowdsubtype

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

	return args, 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 mi.noCurrencyConversion.all or mi.noCurrencyConversion[ unit.iso ] then
				unit = mu.makeSpan( cm.getCurrencyFormatter( unitId ),
					'voy-currency voy-currency-' .. unit.iso:lower() )
			else
				er = er or require( 'Module:Exchange rate' )
				unit = er.getWrapper( a, unit.iso, '', 2, cm.getCurrencyFormatter )
				mu.addMaintenance( 'currencyTooltip' )
			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( 'unitFromWD' )
			else
				u = unitId
				mu.addMaintenance( '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 .. '&nbsp;' .. 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 type( id ) == 'string' and 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( 'unknownLabel' )
			else
				mu.addMaintenance( 'labelFromWD' )
			end
		end
	end
	return label
end

-- getting comments for contacts and prizes from Wikidata using tables
local function getComments( statement, properties, args, page )
	local comments = {}
	local isMobilephone = false
	local 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
					-- getting last date in case of price/fees
					id = wu.getDateFromTime( id )
					if not mu.isSet( args.asOf ) or args.asOf < id then
						args.asOf = id
					end
					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
		return table.concat( comments, mu.commaSeparator ), 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

	lg = lg or require( 'Module:Languages' )
	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 = {}
	local val

	for i = 1, #ar do
		val = ar[ i ]
		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 .. mu.parentheses( 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 = lang: language dependent
    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( args, propDef, entity, page, country )
	local r = ''
	local ar = {}
	local a, i, isMobilephone, item, id, langs, 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 == 'lang' and propDef.c == 1 then
		id = getLngProperty( country.lang, 'q' )
		if id == '' then
			country.unknownLanguage = true
		else
			-- using language of work or name ( page.lang, mi.langs, country.lang )
			a = wu.getValuesByQualifier( entity, propDef.p, mi.properties.languageOfName, id )
			if next( a ) then
				langs = mu.getLangTable( page.lang, country.lang )
				for i, lang in ipairs( langs ) do
					item = a[ getLngProperty( lang, 'q' ) ]
					if item then
						break
					end
				end
				ar = { item or a[ next( a, nil ) ] } -- fallback: first item
			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
			args.lastedit = wu.getLastedit( args.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
			args.lastedit = wu.getLastedit( args.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
	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, args, 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, args, 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, args, page )
				if vi.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( args, parWDitem, entity, page, country )
	local arr = {}

	local function singleProperty( propDef )
		if #arr == 0 then
			arr = getWikidataValues( args, propDef, entity, page, country )
		else
			for i, value in ipairs( getWikidataValues( args, propDef, entity, page, country ) ) do
				table.insert( arr, value ) -- copy to arr
			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 i, sngl in ipairs( p.p ) do
			if type( sngl ) == 'table' then
				singleProperty( sngl )
				if p.c == 1 and #arr > 0 then
					break
				end
			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 mu.commaSeparator )
	end
end

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

	-- getting addresses from Wikidata but only if necessary
	if args.address == true or args.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*/*>', mi.texts.space )
			end
		else
			return
		end
	else
		return
	end

	if args.address == true then
		args.address = addresses[ page.lang ]
		-- select address if the same writing system is used
		if not args.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
							args.address = value
							args.addressLang = key
							weight = w
						end
					end
				end
			end
		end
		if not args.address then
			for i, lng in ipairs( mi.langs ) do
				if addresses[ lng ] then
					args.address = addresses[ lng ]
					args.addressLang = lng
					break
				end
			end
		end
		if not args.address then
			args.address = ''
			args.addressLang = ''
		end
		vc.fromWD.address = args.address ~= ''
	end

	-- removing county name from the end of address
	-- same with county name in county language and English
	if type( args.address ) == 'string' then
		args.address = mw.ustring.gsub( args.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 args.addressLocal == true
		and country.lang ~= page.lang then
		if country.lang ~= '' then
			args.addressLocal = addresses[ country.lang ] or ''
		else
			-- unknown language, maybe missing in Module:Languages
			args.addressLocal = addresses.unknown or ''
		end
		vc.fromWD.addressLocal = args.addressLocal ~= ''
	end
end

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

	mu.getTypeFromWikidata( args, entity )

	-- prevent local data if wiki language == country language
	if page.lang == country.lang then
		for i, value in ipairs( vp.localData ) do
			if type( args[ value ] ) == 'boolean' then
				args[ value ] = ''
			end
		end
	end

	mu.getNamesFromWikidata( args, vc.fromWD, page, country, entity )

	getAddressesFromWikidata( args, page, country, entity )
	if args.hours == true then
		local lastEdit
		getHourModules()
		args.hours, lastEdit = hr.getHoursFromWikidata( entity, page.lang,
			mi.langs[ 1 ] or '', mi.maintenance.properties, nil, args.lastedit,
			vq.labels, { typeTable = mu.types, idTable = mu.typeIds } )
		vc.fromWD.hours = args.hours ~= ''
		if vi.options.lasteditHours then
			args.lastedit = lastEdit
		end
	end

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

	mu.getArticleLink( args, entity, page )
	mu.getCommonsCategory( args, entity )
	mu.getCoordinatesFromWikidata( args, vc.fromWD, entity )
end

local function finalParametersCheck( args, show, page, country, defaultType, entity )
	-- remove boolean values from parameters to have only strings
	for key, value in pairs( args ) do
		if type( args[ key ] ) == 'boolean' then
			args[ key ] = ''
		end
	end

	-- create givenName, displayName tables
	mu.prepareNames( args )

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

	show.noCoord = args.lat == '' or args.long == ''
	if show.noCoord then
		show.coord = nil
		show.poi   = nil
		mu.addMaintenance( 'missingCoordVc' )
	end

	-- getting Marker type, group, and color
	if not mu.isSet( args.type ) and mu.isSet( defaultType ) then
		args.type = defaultType
	end
	mu.checkTypeAndGroup( args )

	-- image check
	if not vc.fromWD.image or mi.options.WDmediaCheck then 
		mu.checkImage( args, entity )
	end

	mu.checkUrl( args )

	args.commonscat = args.commonscat:gsub( ' ', '_' )

	-- add final period if not yet exists
	if mu.isSet( args.description ) then
		if mw.ustring.match( args.description, '[%w_€$]$' ) then
			args.description = args.description .. mi.texts.period
		end
		if mw.ustring.len( args.description ) > mi.options.contentLimit and
			mi.options.groupsWithLimit[ args.group ] then
			args.description = mw.ustring.sub( args.description, 1, mi.options.contentLimit ) .. '…'
			mu.addMaintenance( 'contentTooLong' )
		end
	end
end

local function formatText( args, results, key, class )
	if not mu.isSet( args[ key ] ) then
		return
	end

	local r
	local textKey = key
	local period = mi.texts.period
	if key == 'hours' then
		args[ key ], r = mw.ustring.gsub( args[ key ],
			mi.texts.closedPattern, '' )
		textKey = ( r > 0 ) and 'closed' or key
	end
	r = mw.ustring.format( mi.texts[ textKey ], args[ key ] )
	r =	mw.ustring.gsub( r, '^%a', mw.ustring.upper )
	-- add period if not yet exists
	r = r .. ( mw.ustring.sub( r, -1 ) == period and '' or period )

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

local function formatPhone( args, key, country )
	if not mu.isSet( args[ key ] ) then
		return ''
	end
	
	local class
	local pArgs = {
		phone = args[ key ],
		cc = country.cc,
		isFax = false,
		isTollfree = false,
		format = false
	}
	if vc.fromWD[ 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 ],
		mu.makeSpan( lp.linkPhoneNumbers( pArgs ), class ) )
end

local function makeIcons( args, page, country, entity, show )
	local name = args.givenName.name
	local icons = {}
	local onlyWikidata = mi.options.showSisters and not show.nositelinks and
		mu.makeSisterIcons( icons, args, page, country, entity )
	if not show.nosocialmedia then
		mu.makeSocial( icons, args, vc.fromWD, name )
	end
	if #icons > 0 then
		return ( onlyWikidata and '' or mi.texts.space ) .. table.concat( icons, '' )
	else
		return ''
	end
end

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

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

local function makeMarkerProperties( args, show )
	if show.symbol then
		args.symbol = mu.getMakiIconId( args.typeTable[ 1 ] )
		if args.symbol then
			mu.addIconToMarker( args )
		end
		if not mu.isSet( args.text ) then
			args.symbol = ''
			mu.addMaintenance( 'unknownMAKI' )
		end
	end
	if not mu.isSet( args.symbol ) then
		args.symbol = '-number-' .. args.group
	end
end

local function makeMarkerAndName( args, show, page, country, frame )
	local result = {}

	if args.before ~= '' then
		table.insert( result, mu.makeSpan( args.before, 'listing-before' ) )
	end
	-- adding status icons
	mu.tableInsert( result, mu.makeStatusIcons( args ) )

	-- adding POI marker
	if show.poi or mu.isSet( args.copyMarker ) then
		makeMarkerProperties( args, show )
		table.insert( result, mu.makeMarkerSymbol( args, frame ) )
	end
	
	mu.makeName( result, args, show, page, country, addWdClass( 'name' ),
		addWdClass( 'nameLocal' ) )

	return table.concat( result, mi.texts.space )
end

local function makeEvent( args, 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 .. mi.texts.space ) or '' ) .. m
		end
		return d, y
	end

	if not mu.groupWithEvents( args.group ) then
		return ''
	end
	-- check if vCard is an event
	for i, param in ipairs( vp.checkEvent ) do
		if mu.isSet( args[ param ] ) then
			isEvent = true
			break
		end
	end
	if not isEvent then
		return ''
	end

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

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

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

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

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

	if mu.isSet( args.address ) then
		if mu.isSet( args.addressLang ) then
			t = mw.language.fetchLanguageName( args.addressLang, page.lang )
			if mu.isSet( t ) then
				t = mw.ustring.format( mi.texts.hintAddress2, t )
			else
				country.unknownPropertyLanguage = true
				t = nil
			end
		end

		r = mu.commaSeparator .. mu.makeSpan( args.address,
			'p-adr adr listing-address' .. addWdClass( 'address' ), true,
			{ title = t, lang = args.addressLang } )
	end
	if mi.options.showLocalData and mu.isSet( args.addressLocal ) then
		r = r .. mu.comma .. mu.languageSpan( args.addressLocal, mi.texts.hintAddress,
			page, country, 'listing-address-local' .. addWdClass( 'addressLocal' )	)
	end

	t = {}
	if mu.isSet( args.directions ) then
		table.insert( t, mu.makeSpan( args.directions,
			'listing-directions' .. addWdClass( 'directions' ) ) )
	end
	if mi.options.showLocalData and mu.isSet( args.directionsLocal ) then
		table.insert( t, mu.languageSpan( args.directionsLocal,
			mi.texts.hintDirections, page, country,
			'listing-directions-local' .. addWdClass( 'directionsLocal' ) ) )
	end
	if #t == 0 then
		return r
	end
	return r .. mi.texts.space .. mu.makeSpan( mu.parentheses( table.concat( t, mu.comma ), true ),
		'listing-add-address' )
end

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

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

	s = table.concat( t, mu.commaSeparator )
	if s ~= '' then
		-- mi.texts.periodSeparator = '. '
		s = mi.texts.periodSeparator .. mw.ustring.gsub( s, '^%a', mw.ustring.upper )
	end
	return s
end

-- checking subtypes
local function checkSubtypes( args, subtypesTable )
	if not mu.isSet( args.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( args.subtype ) ) 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( 'unknownSubtype', table.concat( invalidSubtypes, mu.commaSeparator ) )
	end
	return subtypes
end

-- making subtypes string
local function makeFeatures( args, tab, show )
	vc.fromWD.subtypeAdd = not show.nowdsubtype and
		type( args.subtypeAdd ) == 'table' and #args.subtypeAdd > 0
	if show.nosubtype or not ( vc.fromWD.subtypeAdd or mu.isSet( args.subtype )
		or #args.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.fromTypesGroupNumber
		return r
	end

	local subtypes = checkSubtypes( args, vs.f )

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

		-- adding type if Wikidata id (wd.value) is known
		-- indexed array prevents multiple identical types
		for i, wd in ipairs( args.subtypeAdd ) do
			t = vc.subtypeIds[ wd.value ] or mu.idToType( wd.value )
			if not t then
				-- maybe instance or subclass of wd.value are known
				local p31ids = wu.getIds( wd.value, mi.properties.instanceOf )
				local p279ids = wu.getIds( wd.value, mi.properties.subclassOf )
				-- merging both arrays
				for i = 1, #p279ids, 1 do
				    table.insert( p31ids, p279ids[ i ] )
				end
				for i = 1, #p31ids, 1 do
					t = vc.subtypeIds[ p31ids[ i ] ] or mu.idToType( p31ids[ i ] )
					if t then
						break
					end
				end
			end
			-- subtype from WD is not known
			if not t and not vs.exclude[ wd.value ] then
				unknowWDfeatures = true

				-- try to add a new subtype Q... to vs.f subtypes table
				label = wu.getLabel( wd.value )
				if label then
					vs.f[ wd.value ] = {
						n = label,
						wd = wd.value,
						g = vs.fromWDGroupNumber
					}
					t = wd.value
				end
			end
			-- add known subtype
			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
				}
			end
		end
	end
	if unknowWDfeatures then
		mu.addMaintenance( 'unknowWDfeatures' )
	end
    if next( subtypes ) == nil and #args.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 args.subtypeTable then
		for i, subtype in ipairs( args.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.firstGroup 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 .. mu.parentheses( 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, mu.commaSeparator ) )
			if r ~= '' then
				table.insert( tab, mu.makeSpan( r, 
					'listing-subtype' .. addWdClass( 'subtypeAdd' ) ) )
			end
		end
	end

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

local function makePayment( args, results )
	if not mu.isSet( args.payment ) then
		return
	end

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

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

local function makeMetadata( args )
	local outdated = false
	local s, success, u
	local t = args.lastedit
	if t ~='' then
		success, t = pcall( formatDate, t, mi.dates.lastedit.f )
		if not success then
			mu.addMaintenance( 'wrongDate' )
			t = ''
		else
			success, s = pcall( formatDate, args.lastedit, 'U' ) -- UNIX seconds
			success, u = pcall( formatDate, mi.texts.expirationPeriod, 'U' )
			if s < u then
				t = t .. mi.texts.space .. 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' )
			:addClass( '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( args, show, page, country, entity )
	local results = {}

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

	-- adding features
	makeFeatures( args, results, show )

	-- practicalities
	formatText( args, results, 'hours', 'p-note note listing-hours' )
	formatText( args, results, 'checkin', 'listing-checkin' )
	formatText( args, results, 'checkout', 'listing-checkout' )
	if mu.isSet( args.asOf ) and mu.isSet( args.price ) then
		local success
		success, args.asOf = pcall( formatDate, args.asOf, mi.dates.asOf.f )
		args.price = args.price .. mw.ustring.format( mi.texts.asOf, args.asOf )
	end
	formatText( args, results, 'price', 'p-note note listing-price' )
	makePayment( args, results )

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

	local noContent = #results == 0

	-- adding DMS coordinates
	if show.coord then
		table.insert( results, mu.dmsCoordinates( args.lat, args.long,
			args.givenName.name, vc.fromWD.lat, country.extra ) )
	end
	if mi.options.showSisters == 'atEnd' then
		table.insert( results, makeIcons( args, page, country, entity, show ) )
	end

	local metaData = makeMetadata( args )

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

	return removePeriods( description ), noContent
end

local function makeMaintenance( page )
	if mi.nsNoMaintenance[ page.namespace ] then
		return ''
	end
	
	local 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
	return r
end

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

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

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

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

	-- final check
	local defaultType = frame.args.type
	finalParametersCheck( args, show, page, country, defaultType, vcEntity )

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

	-- saving address
	args.addressOrig = args.address

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

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

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

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

	local r = leading
	local icons = ''
	if contacts == '' and noContent then
		show.inline = true
		r = r .. makeIcons( args, page, country, vcEntity, show ) .. description
	else
		if type( mi.options.showSisters ) == 'boolean' then
			-- could also be 'atEnd', then part of body
			icons = makeIcons( args, page, country, vcEntity, show )
		end
		-- mi.texts.periodSeparator = '. '
		r = removePeriods( r .. contacts .. icons ..
			( show.noperiod and '' or mi.texts.periodSeparator ) .. description )
			:gsub( '%)(</span>)%s*(<span [^>]*>)%(', '%1; %2' )
	end
	-- prevents line break before punctuation mark
	r = r:gsub( '</span>([,;.:!?])', '%1</span>' )

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

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

return vc