Modul:VCard: Unterschied zwischen den Versionen
(Änderung 1510450 von RolandUnger (Diskussion) rückgängig gemacht.) |
(kein Unterschied)
|
Version vom 10. Januar 2023, 10:05 Uhr
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 ) .. ' ' 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( '&', '&' ) :gsub( ''', "'" ) 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