Module:Artwork
Jump to navigation
Jump to search
Lua
CodeDiscussionEditHistoryLinksLink count Subpages:DocumentationTestsResultsSandboxLive code All modules
 | This module is rated as ready for general use. It has reached a mature form and is thought to be bug-free and ready for use wherever appropriate. To reduce server load and bad output, it should be improved by sandbox testing rather than repeated trial-and-error editing. |
 | This module is subject to page protection. It is a highly visible module in use by a very large number of pages, or is substituted very frequently. Because vandalism or mistakes would affect many pages, and even trivial editing might cause substantial load on the servers, it is protected from editing. |
 | Note: This module is used on a great lot of pages. In order not to put too much load on the servers, edits should be kept to a bare minimum. Please discuss proposed changes on the talk page first.
Afterwards, changes can initially be done at and tested with Module:Artwork/sandbox.
|
- Code behind {{Artwork}}, {{Photograph}}, {{Photograph of object}}, {{Art Photo}} and {{Book}}. See documentation at their pages.
Relies on
- Module:Artwork/core
- Module:ISOdate and Module:DateI18n / Module:I18n/date
- Module:Authority control / Module:Authority control/conf
- Module:City / Module:City/data
- Module:Wikidata label
- Module:Wikidata date
- Data:Completely indexed painting collections.tab
- Data:Completely indexed painters.tab
- Data:Artwork types.tab
Code
--[[
__ __ _ _ _ _ _
| \/ | ___ __| |_ _| | ___ _ / \ _ __| |___ _____ _ __| | __
| |\/| |/ _ \ / _` | | | | |/ _ (_) / _ \ | '__| __\ \ /\ / / _ \| '__| |/ /
| | | | (_) | (_| | |_| | | __/_ / ___ \| | | |_ \ V V / (_) | | | <
|_| |_|\___/ \__,_|\__,_|_|\___(_)_/ \_\_| \__| \_/\_/ \___/|_| |_|\_\
This module is intended to be the engine behind "Template:Artwork", "Template:Art photo",
"Template:Photograph" and "Template:Book".
Please do not modify this code without applying the changes first at
"Module:Artwork/sandbox" and testing at "Template:Artwork/testcases".
Authors and maintainers:
* User:Jarekt - original version
]]
require('strict') -- used for debugging purposes as it detects cases of unintended global variables
local getLabel = require("Module:Wikidata label")._getLabel -- used for creation of name based on Wikidata
local getSitelinks = require("Module:Wikidata label")._sitelinks --
local getDate = require("Module:Wikidata date")._date -- used for processing of date properties
local authorityControl = require("Module:Authority control")._authorityControl -- used for formatting of Authority control row
local ISOdate = require('Module:ISOdate') -- used for simple date formating
local Size = require('Module:Size')._size -- Lua code behind {{Size}} template
local TitleFromWD = require('Module:Title').wikidata_title -- Lua code behind {{Title}} template
local Art = require('Module:Wikidata art') --
local alterName = require("Module:Name")._name
local TagQS = require('Module:TagQS')
local core = require("Module:Core")
local artcore = require("Module:Artwork/core")
-- Lazy loading functions: load them only if they are needed
local function Information(args)
return require("Module:Information")._information(args)
end
local function ObjectTypeID(object_type)
local LUT = mw.loadData('Module:I18n/objects/data') -- lazy loading (only if needed
return LUT[string.lower(object_type)]
end
local function periodSpan(id, lang)
local PeriodSpan = require('Module:Period')._periodSpan
return PeriodSpan(id, lang)
end
-- ==================================================
-- === Internal functions ===========================
-- ==================================================
-------------------------------------------------------------------------------
local function empty2nil(str)
if str=='' then
return nil
else
return str
end
end
-------------------------------------------------------------------------------
local function nowiki(str) -- remove all the links
if not str then
return str
end
str = TagQS.removeTag(str, nil)
str = mw.ustring.gsub(str, '%<abbr %</abbr%>', '')
str = mw.ustring.gsub(str, "<[^>]*>", "") -- remove all html tags from str
str = mw.ustring.gsub(str, "'''", "") -- remove bold
str = mw.ustring.gsub(str, "''", "") -- remove italics
str = mw.ustring.gsub(str, "%[%[[Ff]ile:[^%]]+%]%]", "") -- remove file icons
str = mw.ustring.gsub(str, "%[%[[^|]*|", "") -- remove piped links, like "[[:en:test|"
str = mw.ustring.gsub(str, "%[[hH][tT][tT][pP][sS]?://[^ ]+ ([^%]]*)%]", "%1") -- remove URL links, like "[https://www.wikidata.org/wiki/Q2706250 xxxx] -> xxxx"
str = mw.ustring.gsub(str, "%[%[", "" ) -- remove piped links, like "[["
str = mw.ustring.gsub(str, "%]%]", "" ) -- remove piped links, like "]]"
return str
end
-------------------------------------------------------------------------------
local function getProperty(entity, prop)
return (core.parseStatements(entity:getBestStatements( prop ), nil) or {nil})[1]
end
-------------------------------------------------------------------------------
local function getBestProperties(entity, prop)
return core.parseStatements(entity:getBestStatements( prop ), nil)
end
-------------------------------------------------------------------------------
local function quote(str)
return '"' .. str .. '"'
end
-------------------------------------------------------------------------------
local function if_else(Boolean, TrueStatement, FalseStatement)
if Boolean then
return TrueStatement
else
return FalseStatement
end
end
-------------------------------------------------------------------------------
local function add_QS(qsTable, prop, value, qualifiers)
local qsStr = prop .. '|' .. value
if qualifiers then
for qual, val in pairs(qualifiers) do
qsStr = qsStr .. '|' .. qual .. '|' .. val
end
end
table.insert( qsTable, qsStr)
end
-------------------------------------------------------------------------------
local function render_QS_URL(qsTable, item, withIcon)
local today = '+' .. os.date('!%F') .. 'T00:00:00Z/11' -- today's date in QS format
local url = mw.title.getCurrentTitle():canonicalUrl() -- URL to current page
local ref = '|S143|Q565|S813|' .. today .. '|S4656|"' .. mw.uri.decode(url) .. '"'
local icon = 'File:Commons_to_Wikidata_QuickStatements.svg'
for k, qs in ipairs(qsTable) do
if qs:sub(1,1)=='P' then
qsTable[k] = item .. '|' .. qs .. ref
else
qsTable[k] = item .. '|' .. qs -- for labels, etc.
end
end
local qsURL = table.concat(qsTable, '||')
local hoverMsg = 'Add properties to Wikidata item based on this file'
if string.upper(item)=='CREATE' then
qsURL = 'CREATE||' .. string.gsub(qsURL, item..'|', 'LAST|')
icon = 'File:Plus Wikidata.svg'
hoverMsg = 'Create new Wikidata item based on this file'
end
qsURL = mw.uri.encode(qsURL, "PATH")
qsURL = 'https://quickstatements.toolforge.org/#/v1=' .. qsURL -- create full URL link
withIcon = withIcon or true -- define default
if withIcon then -- use URL as a link accessed by clicking an icon
qsURL = ' [[' .. icon .. '|15px|link=' .. qsURL .. '|' .. hoverMsg ..']]'
end
return qsURL
end
-- ===========================================================================
-- === This function is responsible for adding maintenance categories ===
-- === which are not related to Wikidata ===
-- === INPUTS: ===
-- === * args0 - data from the local arguments ===
-- === * args - merged data from the local arguments and Wikidata ===
-- ===========================================================================
local function add_maintenance_categories(args0, args)
local cats = '' -- categories
mw.getCurrentFrame():expandTemplate{ title = 'Infobox template tag' } -- add the template tag
-- ====================================================
-- === automatic tagging of pages in all namespaces ===
-- ====================================================
if args.date or args.year then
-- add an empty template which can be used as a tag in PetScan
local d = os.date('!*t') -- current date table
local current_year = tonumber(d.year) -- current year
local creation_year = tonumber(ISOdate._ISOyear(args.year or args.date))
if creation_year and current_year and (current_year-creation_year)>200 then
mw.getCurrentFrame():expandTemplate{ title ='Works created more than 200 years ago' }
end
end
if args0.namespace==0 and mw.ustring.sub(args0.pagename,1,8) == "Artwork:" then
cats = cats .. '\n[[Category:Artwork templates]]'
if args.homecat then
cats = cats .. '\n[[Category:' .. args.homecat .. ']]'
end
end
-- add categories related to accession number for artworks
if args0.id and args0.infobox=='artwork' then
local sortkey = nowiki(args0.id) -- strip any links that might be there
if #sortkey>30 then
sortkey = 'zzz'
end
cats = string.format('%s\n[[Category:Artworks with known accession number| %s]]', cats, sortkey)
end
-- add categories related to template:book transcluded into template for specific book
if args0.infobox=='book' and args0.namespace==10 then
cats = cats .. '\n[[Category:Book templates]]'
-- add homecat category
if args0.homecat~='~' then
local page = {}
if args0.homecat then
cats = string.format('%s\n[[Category:%s| ]]',cats, args0.homecat)
page = mw.title.new( args0.homecat, 'category' )
end
if not page or not page.exists or not args0.homecat then
cats = cats .. '\n[[Category:Book templates without home category]]'
end
end
end
return cats
end
-- ===========================================================================
-- === This function is responsible for creating QuickStatements ===
-- === INPUTS: ===
-- === * args0 - local inputs from the Artwork template ===
-- === * data - data pulled from Wikidata ===
-- ===========================================================================
local function create_QuickStatements(args0, data)
-- setup QuickStatements
local qsTable = {} -- table to store QuickStatements
local item = args0.wikidata
if args0.no_qs then
return nil -- "no_qs" flag means we do not want QuickStatements based on this file
end
--
if (not data.id and args0.id) then
local id = nowiki(args0.id) -- strip any links that might be there
if args0.institution_id and #id<20 then
add_QS(qsTable, 'P217', quote(id), {P195=args0.institution_id})
end
end
-- add QS based on "image" field
local lut = { jpg='P18', jpeg='P18', png='P18', pdf='P996', djvu='P996', stl='P4896'}
-- webm='P10', ogv='P10', mp3='P51', wav='P51' -- ignore other extensions as they are mostly wrong
if (not data.image and args0.image) then -- QS code to help transfer content of "image" field to Wikidata
local ext = mw.ustring.lower(mw.ustring.match(args0.image, "^.+%.(.+)$") or '') -- file extension
local image = quote(mw.ustring.gsub(args0.image,'_',' '))
local prop = lut[ext]
if prop and not data[prop] then
add_QS(qsTable, prop, image)
data[prop] = image -- mark it so we don't add it twice
end
end
-- add QS based on current filename
local image = quote(mw.ustring.gsub(args0.pagename,'_',' ')) -- get current filename
local multiPageFile = (args0.namespace==6 and args0.num_pages>1 and (args0.mimeType=='application/pdf' or args0.mimeType=='image/vnd.djvu'))
if (not data.image and multiPageFile) then -- QS code to help transfer image to Wikidata
local qual = if_else(args0.image_page, {P4714=tostring(args0.image_page)}, nil)
add_QS(qsTable, 'P996', image, qual)
end
if (args0.namespace==6 and args0.num_pages==1 and args0.infobox=='artwork') then -- QS code to help transfer image to Wikidata
local ext = mw.ustring.lower(mw.ustring.match(args0.pagename, "^.+%.(.+)$")) -- file extension
local prop = lut[ext]
--prop = if_else(prop, prop, 'P18')
if prop and not data[prop] and not data.image then
add_QS(qsTable, prop, image)
end
end
-- add "Commons Category" (P373) if template at category page
if not data.homecat and args0.namespace==14 then
add_QS(qsTable, 'P373', image)
end
-- look for hidden text in various templates so they can be passed to Wikidata if needed using QS
-- copy args0['data'] to args0['era'] if it contains an "era QS"
-- because they share one parameter/field at template level input,
-- but need separate handling here
-- TODO: splitting/sorting (at an earlier stage) would be better than simply copying,
-- in cases where there is one value for each they won't be processed without splitting
if args0['date'] and TagQS.hasTag('era') then
args0['era'] = args0['date']
end
-- different fields from different tables are allowed to create QS codes to allow data transfer to Wikidata
-- some fields are often not used correctly in some templates like institution in book template and are not allowed to create QS
local fields = {object_type='artwork', era='artwork', medium='artwork', dimensions='artwork', institution='artwork', artist='artwork', reference_wga='artwork', date='all' ,
language='book', author='book', translator='book', publisher='book', printer='book', illustrator='book', editor='book'}
for field, infobox in pairs( fields ) do
if args0[field] and not data[field] and (args0.infobox==infobox or infobox=='all') then
local qs = TagQS.readTag(args0[field], field)
if qs then
for _, v in ipairs( mw.text.split( qs, ';', true ) ) do
table.insert( qsTable, v )
end
end
end
end
-- Single field "dimensions" has "width", "height", etc. properties
if args0.dimensions and not data.dimensions and (args0.infobox=='artwork') then
for _, v in ipairs(TagQS.readTags(args0.dimensions, 'dimensions')) do
table.insert( qsTable, v )
end
end
-- Book's template publication_date should not go to periodicals and only to items with P31="version, edition, or translation"
if args0.publication_date and not data.publication_date and (args0.infobox=='book') and (data.object_type_id=='Q3331189') then
local qs = TagQS.readTag(args0[field], field)
if (qs) then
table.insert( qsTable, qs )
end
end
-- Special case of QS codes for multilingual labels extracted from {{title}} and {{description}} templates, etc.
if args0.title then
local max_title_len = 100
-- strip titles from title field with {{title}} template: {{title|lang=...|1=...}}
local title = TagQS.readTag(args0.title, 'title') or ''
local label, lang = mw.ustring.match(title, 'P1476%|((%w+):.+)')
if lang and label then
label = nowiki(label)
if not(data.title_ and data.title_[lang]) and #label<max_title_len then
add_QS(qsTable, 'P1476', label)
end
end
lang, label = mw.ustring.match(title, 'P1476%|(%w+):(.+)')
if lang and label then
label = nowiki(label)
if not(data.labels and data.labels[lang]) and #label<max_title_len then
add_QS(qsTable, 'L'..lang, label)
end
end
-- strip titles from title field with {{title}} templates, with fields like |en=, |es=, etc.
for _, title in ipairs(TagQS.readTags(args0.title, 'label')) do
lang, label = mw.ustring.match(title, 'L(%w+)[%|,](.+)')
if lang and label then
label = nowiki(label)
if not(data.labels and data.labels[lang]) and #label<max_title_len then
add_QS(qsTable, 'L'..lang, label)
end
end
end
-- strip titles from title field with {{description}} templates, like {{en}}, {{es}}, etc.
-- <span class="language pl" title="Polish"><b>Polski: </b></span> abc</div>
local pat = '%<span class="language (%w+)" .-%</span%> *([^%<]+)%</div%>'
for lang, label in mw.ustring.gmatch(args0.title, pat) do
label = nowiki(label)
if not(data.labels and data.labels[lang]) and #label<max_title_len then
add_QS(qsTable, 'L'..lang, quote(label))
end
end
end
-- add "instance of" statement
local type_id = data.object_type_id
if not data.object_type_id then
if args0.infobox=='book' then
add_QS(qsTable, 'P31', 'Q3331189') -- version, edition, or translation
elseif args0.object_type then
type_id = ObjectTypeID(args0.object_type)
if type_id then
add_QS(qsTable, 'P31', type_id) -- painting etc.
data.object_type_id = { type_id } -- object_type_id is an array
end
end
end
-- add descriptions
local artist_id = data.artist_id or args0.artist_id
local typeList = {
Q3305213={de="Gemälde von %s", en="painting by %s", es="cuadro de %s", fr="tableau de %s", it="dipinto di %s", nl="schilderij van %s", sl="slika avtorja %s"}
}
if type_id and artist_id and typeList[type_id] then
for lang, phrase in pairs(typeList[type_id]) do
if not data.descriptions or not data.descriptions[lang] then
local artist = mw.wikibase.getLabelByLang(artist_id, lang)
if artist then
add_QS(qsTable, 'D'..lang, quote(string.format(phrase, artist)))
end
end
end
end
-- ==================================================
-- === Create QuickStatement codes ==================
-- ==================================================
if #qsTable==0 then
return nil
end
local QS = render_QS_URL(qsTable, args0.wikidata)
return QS
end
-- ===========================================================================
-- === Function for creating search icons ===
-- === INPUTS: ===
-- === * args0 - local inputs from the Artwork template ===
-- ===========================================================================
local function add_search_link(args0)
local sTable, tTable = {}, {}
local creator_id, s, t, text, QS, title
-- get English title
if args0.title then
local title = TagQS.readTag(args0.title, 'label') or ''
-- strip titles from title field with {{title}} templates, with fields like {{en}}, {{es}}, etc.
s = 'Len%|(.+)'
for label in mw.ustring.gmatch(args0.title, s) do
title = nowiki(label)
end
end
if args0.title and not title then
-- strip titles from title field with {{description}} templates, like {{en}}, {{es}}, etc.
s = '%<span class="language en" [^%<]+%</span%> *([^%<]+)%</div%>'
for label in mw.ustring.gmatch(args0.title, s) do
title = nowiki(label)
end
end
text = title or nowiki(args0.title) or ''
-- get author info
if args0.infobox=='artwork' then
creator_id = args0.artist_id or args0.author_id
elseif args0.infobox=='photograph' then
creator_id = args0.photographer_id or args0.author_id
elseif args0.infobox=='book' then
creator_id = args0.author_id
end
if creator_id then
local prop = if_else(args0.infobox=='book', 'P50', 'P170')
sTable[prop] = creator_id
else
text = text .. ' ' .. nowiki(args0.artist or args0.author or '')
end
-- set other properties
if args0.object_type=='painting' and args0.infobox=='artwork' then
sTable.P31 = 'Q3305213' -- painting
elseif args0.infobox=='book' then
sTable.P31 = 'Q3331189' -- version, edition, or translation
end
if args0.institution_id then
sTable.P195 = args0.institution_id
end
if args0.id then
text = text .. ' ' .. nowiki(args0.id) -- add accession_id as text not as P217 statement
end
-- If no usable info than abort
local count = 0
for _ in pairs(sTable) do count = count + 1 end
if count==0 then
return nil
end
-- create URL and clickable icon with either Cirrus search
-- see https://www.mediawiki.org/wiki/Help:Extension:WikibaseCirrusSearch
table.insert(tTable, text)
for prop, field in pairs( sTable) do
table.insert(tTable, 'haswbstatement:' .. prop .. '=' .. field)
end
s = mw.uri.encode(table.concat(tTable, ' '), "QUERY")
s = {'search='..s, 'title=Special:Search', 'profile=advanced', 'fulltext=1', 'ns0=1'}
s = 'https://www.wikidata.org/w/index.php?' .. table.concat(s,'&') -- create full URL link
s = '[[File:Wikidata CheckUser.svg|15px|link=' .. s .. '|Wikidata search (Cirrus search)]]'
-- create URL and clickable icon with SPARQL search
tTable = {}
table.insert(tTable, 'SELECT ?item ?itemLabel ?image')
table.insert(tTable, 'WHERE {')
for prop, field in pairs( sTable) do
table.insert(tTable, ' ?item wdt:' .. prop .. ' wd:' .. field .. '.')
end
table.insert(tTable, ' OPTIONAL { ?item wdt:P18 ?image } .')
table.insert(tTable, ' SERVICE wikibase:label { bd:serviceParam wikibase:language "en". }')
table.insert(tTable, '}')
t = mw.uri.encode(table.concat(tTable, '\n'), "PATH")
t = 'https://query.wikidata.org/#' .. t
t = '[[File:Wikidata Query Service Favicon.svg|15px|link=' .. t .. '|Wikidata query (SPARQL)]]'
-- go to [[Data:Completely indexed painting collections.tab]] and look up if
-- args0.institution_id is one of the items in column 1
local collCmpl, cat = false, ''
if args0.object_type=='painting' and args0.infobox=='artwork' and args0.institution_id then
local tab = mw.ext.data.get('Completely indexed painting collections.tab', 'en')
for iRow, row in pairs(tab.data) do
if row[1]==args0.institution_id then
collCmpl = true -- no need for adding painting items to this collection
end
end
end
if collCmpl then
cat = '\n[[Category:Paintings from completely indexed collections]]'
end
-- go to [[Data:Completely indexed painters.tab]] and look up if
-- args0.artist_id is one of the items in column 1
local authorCmpl = false
if args0.object_type=='painting' and args0.infobox=='artwork' and (args0.artist_id or args0.author_id) then
local tab = mw.ext.data.get('Completely indexed painters.tab', 'en')
for iRow, row in pairs(tab.data) do
if row[1]==args0.artist_id or row[1]==args0.author_id then
authorCmpl = true -- no need for adding painting items by this painter
end
end
end
if authorCmpl then
cat = '\n[[Category:Paintings by completely indexed painters]]'
end
if not collCmpl and not authorCmpl then
args0.wikidata = 'CREATE'
QS = create_QuickStatements(args0, {})
end
local searchStr = ' (' .. table.concat({s, t, QS}, ' ') ..')'
return searchStr, cat
end
-- ===========================================================================
local function chect_instance_of(instance_of)
-- check object_type_id against a list of incorrect values for P31 property of associated item
-- Black and white list id is of wrong type if bwLUT returns "1", bwLUT = "2" means good type
-- bad {Q5='human', Q11266439='template ', Q4167410='disambiguation', Q4167836='category', Q532='village', Q482994='album',
-- Q16521='taxon', Q1406161='artistic theme', Q12827256=myth, Q51632=parable of Jesus, Q208555=parable, Q856663=bible story
-- Q18534=metaphor, Q4167410=disambiguation page}
-- groups {Q15727816='painting series', sculpture series (Q19479037), artwork series (Q15709879), group of sculptures (Q27031439),
-- group of paintings (Q18573970) , polyptych (Q1278452), diptych (Q475476), triptych (Q79218) }
-- good {Q199414='bog body', Q7881='skeleton'} -- one of those overwrites "bad" flag so 'human' & 'bog body' is OK (those are museum objects)
local groupItem = false
if instance_of then
local bad = false
local bwLUT = {Q5=1, Q11266439=1, Q4167410=1, Q4167836=1, Q532=1, Q482994=1, Q16521=1, Q1406161=1, Q12827256=1, Q51632=1, Q208555=1,
Q856663=1, Q18534=1, Q4167410=1, Q15727816=2, Q19479037=2, Q15709879=2, Q27031439=2, Q18573970=2, Q1278452=2, Q475476=2,
Q79218 = 2, Q199414=3, Q7881=3}
for _, typeId in ipairs( instance_of ) do
local v = bwLUT[typeId]
if v==1 then
bad = true
elseif v==2 then
groupItem = true
return 'group'
elseif v==3 then
bad = false
return 'good'
end
end
return if_else(bad, 'bad', 'good')
end
return 'unknown'
end
-- ===========================================================================
-- === This function is responsible for adding maintenance categories ===
-- === to pages in creator namespace which are related to Wikidata ===
-- === INPUTS: ===
-- === * args0 - local inputs from the Artwork template ===
-- === * args1 - merge of local and Wikidata metadata ===
-- === * data - data pulled from Wikidata ===
-- ===========================================================================
local function add_wikidata_maintenance_categories(args0, args1, data)
local cats = '' -- categories
local comp = {} -- outcome of argument vs. Wikidata comparison
local OK = ((args0.infobox=='artwork' or args0.infobox=='photograph') and (args0.namespace==6 or args0.namespace==14)) -- artworks and photographs can be in file or category namespace
or (args0.infobox=='book' and (args0.namespace==10 or args0.namespace==14) ) -- books can be in template or category namespace
or (args0.infobox=='book' and args0.namespace==6 and (args0.mimeType=='application/pdf' or args0.mimeType=='image/vnd.djvu')) -- books can also be in file namespace if it is PDF or DjVu
if ( not OK or (args0.wikidata_cat==false)) then -- continue only if the namespace is a Category or file
return cats, args1
end
local LUT = {artwork='Artworks', photograph='Photographs', book='Books'}
-- skip the rest if no item ID
if not args0.wikidata then
local cat2, TypeLUT, oType
TypeLUT = {['grave']='Graves', ['tomb']='Graves', ['funeral chapel']='Graves',
['funeral niche']='Graves', ['painting']='Paintings', ['aircraft']='SKIP' }
oType = TypeLUT[string.lower(args0.object_type or '')] or LUT[args0.infobox]
if oType~='SKIP' then
cats = string.format('%s\n[[Category:%s without Wikidata item]]', cats, oType)
end
args1.QS, cat2 = add_search_link(args0)
return cats .. (cat2 or ''), args1
end
--=======================================================================================================
--=== Categories and files with {{Artwork}} template linked to Wikidata item below
--=======================================================================================================
cats = string.format('%s\n[[Category:%s with Wikidata item|%s]]', cats, LUT[args0.infobox], args0.wikidata)
-- check object_type_id against a list of incorrect values for P31 property of associated item
local groupItem = false
if data.object_type_id then
local status = chect_instance_of(data.object_type_id )
groupItem = (status == 'group')
if status == 'bad' or status == 'group' then
cats = string.format('%s\n[[Category:%s with %s Wikidata item|%s]]', cats, LUT[args0.infobox], status, args0.wikidata)
end
end
-- local fields which are missing on Wikidata
local fields = {'date', 'publication_date', 'medium', 'dimensions', 'image', 'institution', 'author', 'artist'}
for _, field in ipairs( fields ) do
if not data[field] and args0[field] and not string.match(args0[field], '%<span style="display: none;"%>Unknown '..field..'<%/span%>') then
comp[field] = 'missing'
end
end
if not data.id and args0.id then
comp['accession number'] = 'missing'
end
if comp.artist=='missing' and string.match(args0.artist, '%<span style="display: none;"%>Unknown a%w+%<%/span%>') then
comp.artist = nil -- ignore {{Unknown|artist}}
end
-- mark local fields redundant to Wikidata
local fields = {['date']='date', medium='medium', dimensions='dimensions', institution_id='institution', author_id='author', artist_id='artist'}
for field1, field2 in ipairs( fields ) do
if data[field1] and args0[field1] and data[field1]==args0[field1] then
comp[field2] = 'redundant'
end
end
-- Redundant author and artist
if (data.author_id==args0.artist_id and data.author_id) then
comp.artist = 'redundant'
end
if (data.artist_id==args0.author_id and data.artist_id) then
comp.author = 'redundant'
end
-- handle case when creator template is a red-link but Wikidata has creator item ID
if (string.match(args0.artist or '', "%[%[:Creator:") and data.artist) then
args1.artist = data.artist
comp.artist = 'redundant'
end
if (string.match(args0.author or '', "%[%[:Creator:") and data.author) then
args1.author = data.author
comp.author = 'redundant'
end
-- process "image" field
if (data.image and args0.image) then
comp.image = 'redundant'
end
local exclude_ext = {mp3=1, mid=1, oga=1, ogg=1, flac=1, wav=1, webm=1}
local ext = mw.ustring.lower(mw.ustring.match(args0.pagename, "^.+%.(.+)$") or '') -- file extension
local simpleFile = (args0.namespace==6 and args0.num_pages==1 and args0.infobox=='artwork' and not(exclude_ext[ext]==1))
if not data.image and (args0.image or simpleFile) then
comp.image = 'missing'
end
-- add categories related to accession number for artworks
if not args0.id and data.id and args0.infobox=='artwork' then
cats = string.format('%s\n[[Category:Artworks with accession number from Wikidata| %s]]', cats, args0.wikidata)
cats = string.format('%s\n[[Category:Artworks with known accession number| %s]]', cats, data.id_id or 'zzz')
end
if not data.genre_id and args0.infobox=='artwork' and args0.namespace==6 then
cats = string.format('%s\n[[Category:Artworks with Wikidata item missing genre| %s]]', cats, args0.wikidata)
end
-- ==================================================
-- === Create categories based on comp structure ====
-- ==================================================
for field, outcome in pairs( comp ) do
cats = string.format('%s\n[[Category:%s with Wikidata item %s %s|%s]]', cats, LUT[args0.infobox], outcome, field, args0.wikidata)
end
-- Add QuickStatements
if not groupItem and args0.wikidata then
args1.QS = create_QuickStatements(args0, data)
end
if args1.QS then
local name = LUT[args0.infobox]
if (name=='Artworks' and data.object_type_id=='Q3305213') then
name='Paintings'
end
cats = string.format('%s\n[[Category:%s with Wikidata item: quick statements]]', cats, name)
end
return cats, args1
end
-- ===========================================================================
-- === Harvest Structured data on Commons properties ===
-- === INPUTS: ===
-- === * mid - SDC ID ===
-- === * lang - language id of the desired language ===
-- === * namespace - namespace number of the page calling the module ===
-- ===========================================================================
local function harvest_SDC(args0, lang)
local bookFlag = (args0.infobox=='book' and (args0.mimeType=='application/pdf' or args0.mimeType=='image/vnd.djvu'))
local sdc = {} -- structure similar to "args" but filled with SDC data
local cats = ''
-- Harvest the different artwork types
local tab = mw.ext.data.get('Artwork types.tab', 'en')
sdc.artwork_types = {}
for iRow, row in pairs(tab.data) do
sdc.artwork_types[row[1]] = row[3]
end
local entity = mw.wikibase.getEntity()
if not entity then
if args0.wikidata and bookFlag then
cats = cats .. '[[Category:Books with SDC link missing]]\n'
elseif args0.wikidata and args0.infobox~='book' then
cats = cats .. '[[Category:Artworks with SDC link missing]]\n'
end
return sdc, cats
end
local property = {P6243='digital_representation_of', P4714='image_page', P921='main_subject', P180='depicts', P760='dpla_id' }
for prop, field in pairs( property ) do
sdc[field] = getProperty(entity, prop)
end
-- get Wikidata item ID from digital representation of (P6243)
if sdc.digital_representation_of then
local wEntity = mw.wikibase.getEntity(sdc.digital_representation_of)
if not wEntity then
cats = cats .. '[[Category:Artworks with structured data with deleted digital representation of property]]'
elseif wEntity.id~=sdc.digital_representation_of then
cats = cats .. '[[Category:Artworks with structured data with redirected digital representation of property]]'
end
sdc.wikidata = sdc.digital_representation_of
-- If digital representation of is set, main subject should be set too to the same
if sdc.main_subject then
if sdc.digital_representation_of~=sdc.main_subject then
cats = cats .. '[[Category:Artworks with digital representation of different main subject]]'
end
else
cats = cats .. '[[Category:Artworks with digital representation of missing same main subject]]'
end
-- If digital representation of is set, depicts should be set too to the same
if sdc.depicts then
if sdc.digital_representation_of~=sdc.depicts then
cats = cats .. '[[Category:Artworks with digital representation of different depicts]]'
end
else
cats = cats .. '[[Category:Artworks with digital representation of missing same depicts]]'
end
end
-- get Wikidata item ID from main subject (P921). If multiple, this will get the first preferred one
-- temporarly exclude files with "dpla_id" property while I debug why are they often connect to
-- wrong wikidata items
if not sdc.wikidata and sdc.main_subject and not sdc.dpla_id then
local msEntity = mw.wikibase.getEntity(sdc.main_subject)
if not msEntity then
cats = cats .. '[[Category:Artworks with structured data with deleted main subject property]]'
elseif msEntity.id~=sdc.main_subject then
cats = cats .. '[[Category:Artworks with structured data with redirected main subject property]]'
end
-- Make sure it's an actual thing (instance) instead of something general (subclass)
local msProperty = {P31='instance_of', P279='subclass_of' }
local msProperties = {}
for prop, field in pairs( msProperty ) do
msProperties[field] = getProperty(msEntity, prop)
end
if msProperties.instance_of and not msProperties.subclass_of then
local artwork_type = sdc.artwork_types[msProperties.instance_of]
local LUT = {['2D']=1, ['3D']=1, both=1}
if LUT[artwork_type] then -- limit main subject (P921) use to artworks only
sdc.wikidata = sdc.main_subject
sdc.main_subject_accepted = sdc.main_subject
-- If main subject is set, depicts should be set too to the same
if sdc.main_subject_accepted and sdc.depicts then
if sdc.main_subject~=sdc.depicts then
-- Here we'll probably see some false positives
cats = cats .. '[[Category:Artworks with main subject different depicts]]'
end
else
cats = cats .. '[[Category:Artworks with main subject missing same depicts]]'
end
end
end
end
if not sdc.wikidata and args0.wikidata then
if bookFlag then
cats = cats .. '[[Category:Books with SDC link missing]]\n'
elseif args0.infobox~='book' then
cats = cats .. '[[Category:Artworks with SDC link missing]]\n'
end
elseif sdc.wikidata and args0.wikidata and sdc.wikidata~=args0.wikidata then
cats = cats .. '[[Category:Artworks with mismatching digital representation of]]\n'
end
-- get source from P7482
if entity.statements and entity.statements.P7482 then
local statement = entity.statements.P7482[1]
if statement.mainsnak.datavalue.value.id=='Q74228490' and statement.qualifiers and statement.qualifiers.P973 then
local url = statement.qualifiers.P973[1].datavalue.value
if statement.qualifiers.P137 then
local id = statement.qualifiers.P137[1].datavalue.value.id
local label = getLabel(id, lang, '-')
sdc.source_ = '[' .. url ..' ' .. label ..']' .. core.editAtSDC(args0.pagename, 'P7482', lang)
else
sdc.source_ = url .. core.editAtSDC(args0.pagename, 'P7482', lang)
end
end
end
return sdc, cats
end
-- ===========================================================================
-- === Harvest Wikidata properties matching creator template fields ===
-- === INPUTS: ===
-- === * itemID1 - item id or a q-code from the template ===
-- === * itemID2 - item id or a q-code from SDC ===
-- === * lang - language id of the desired language ===
-- === * namespace - namespace number of the page calling the module ===
-- ===========================================================================
local function harvest_wikidata(itemID1, itemID2, lang, namespace, infobox, pagename)
local data = {} -- structure similar to "args" but filled with Wikidata data
local cats = ''
local frame = mw.getCurrentFrame()
local entity = nil
local itemID = itemID1 or itemID2
if mw.wikibase and itemID then
local LUT = {artwork='Artworks', photograph='Photographs', book='Books'}
entity = mw.wikibase.getEntity(itemID)
if not entity then
cats = string.format('[[Category:%s with bad Wikidata link]]', LUT[infobox])
elseif entity.id~=itemID and itemID1 then
cats = string.format('[[Category:%s with redirected Wikidata link]]', LUT[infobox])
end
end
if not entity then
return data, cats
end
-- inception date: translated date and year number
local d = getDate(entity, 'P571' , lang) -- inception date
if d.str then
data.date_, data.year = d.iso, d.year
data.date = d.str .. core.editAtWikidata(entity.id, 'P571', lang)
end
-- publication date: translated date and year number
local d = getDate(entity, 'P577' , lang) -- publication date
if d.str then
data.publication_date_, data.publication_year = d.iso, d.year
data.publication_date = d.str .. core.editAtWikidata(entity.id, 'P577', lang)
end
-- harvest string properties
local Debug ={}
local property = {P10='video', P18='image', P996='scan', P4896='model3D', P373='homecat', P51='audio', P158='seal',
P2093='authorStr', P393='edition', P4714='image_page', P1957='wikisource_index', P7420='framed_image', P3030='sheet_music' }
for prop, field in pairs( property ) do
data[field] = getProperty(entity, prop)
data[prop] = data[field] -- keep tract which properties were present at Wikidata
end
data.image = data.image or data.scan or data.video or data.model3D or data.framed_image or data.seal or data.sheet_music
data.image_page = tonumber(data.image_page)
if data.edition then
data.edition = data.edition .. core.editAtWikidata(entity.id, 'P393', lang)
end
-- harvest Q-code properties which are than converted from Q-number to labels (pick one)
local property = { P189='place_of_discovery', P2079='technique', P872='printer',
P136='genre', P921='subject', P179='series_title', P361='part_of',
P629='edition_of', P1071='place_of_creation', P495='country_of_origin'}
for prop, field in pairs( property ) do
local id = getProperty(entity, prop)
if id then
data[field] = getLabel(id, lang, "wikipedia") .. core.editAtWikidata(entity.id, prop, lang)
end
end
data.place_of_creation = data.place_of_creation or data.country_of_origin
data.genre_id = getProperty(entity, 'P136')
-- harvest Q-code properties which are than converted from Q-number to labels (pick all)
local property = { P31='object_type', P407='language', P123='publisher', P291='place_of_publication'}
for prop, field in pairs( property ) do
local ids = getBestProperties(entity, prop)
if ids then
local T = {}
for _, id in ipairs( ids ) do
table.insert(T, getLabel(id, lang))
end
data[field] = table.concat(T, " / ") .. core.editAtWikidata(entity.id, prop, lang)
data[field ..'_id'] = ids
end
end
-- get era
data.era_id = getBestProperties(entity, 'P2348')
if data.era_id then
local T = {}
for _, id in ipairs( data.era_id ) do
local eraText = getLabel(id, lang)
local spanText = periodSpan(id, lang)
if spanText then
eraText = eraText .. ' ' .. spanText
end
table.insert(T, eraText)
end
data.era = table.concat(T, " / ") .. core.editAtWikidata(entity.id, 'P2348', lang)
end
if data.era and data.date then
data.date = data.date .. "<br/>" .. data.era
elseif data.era and not data.date then
data.date = data.era
end
-- get author and/or author creator template
local property = { P170='creator', P50='author', P84='architect', P287='designer', P98='editor',
P655='translator', P110='illustrator', P2679='author_of_foreword', P2680='author_of_afterword' }
for prop, field in pairs( property ) do
local d = Art.get_creator(entity, prop, lang)
data[field] = d.str
data[field.."_id"] = d.id
end
data.author = data.author or data.authorStr -- P2093='author name string'
-- get title (from 3 properties and label)
--local property = { P1476 = 'title', P1448='official_name', P1705='native_label', P1680='subtitle'}
local property = { P1476 = 'title', P1680='subtitle'}
for prop, field in pairs( property ) do
local title = {}
for _, statement in pairs( entity:getBestStatements(field)) do
if (statement.mainsnak.snaktype == "value") then
local val = statement.mainsnak.datavalue.value
title[val.language] = val.text -- look for multiple values each with a language code
end
end
if #title>0 then
data[field] = core.langSwitch(title, lang)
end
if field=='title' then
data.title_ = title
end
end
--data.title = data.title or data.official_name or data.native_label
data.title = TitleFromWD(entity, lang)
data.label = getLabel(entity, lang)
-- get labels in all the languages
data.labels = {}
if entity.labels then
for lang, val in pairs(entity.labels) do -- loop over all labels
data.labels[lang] = val.value;
data.label = data.label or data.labels[lang] -- no label in preferred language so grab any label
end
end
-- get labels in all the languages
data.descriptions = {}
if entity.descriptions then
for lang, val in pairs(entity.descriptions) do -- loop over all descriptions
data.descriptions[lang] = 1; -- just record if it is present or not
end
end
-- get authority control (rarely used for artworks)
local AC_cats
data.authority, AC_cats = authorityControl(entity, {wikidata = itemID}, lang, 5)
local _,nIdentifiers = string.gsub(data.authority, "*", "")
if nIdentifiers<=1 then
data.authority, AC_cats = nil, ''
end
if not (namespace == 2 or namespace == 828 or math.fmod(namespace,2)==1) then
cats = cats .. AC_cats -- lets not add authorityControl categories to user pages, modules or talk pages and concentrate on templates and categories instead
end
-- get object location
if getProperty(entity, 'P625') or getProperty(entity, 'P9149') then
local coorFun = require('Module:Coordinates')._LocationTemplateCore
local coori18n = require('Module:i18n/coordinates')
data.coordinates = coorFun({wikidata=entity, lang=lang, globe='earth', mode='object', bare=true})
end
-- prepare fallback list of languages
local langList = mw.language.getFallbacksFor(lang)
table.insert(langList, 1, lang)
-- get wikisource or wikiquote
local projects = {s='wikisource', q='wikiquote'}
for code, project in pairs(projects) do
local sitelinks = getSitelinks(entity, project)
if sitelinks then
local lng, _ = next(sitelinks) -- get language of the first sitelink
table.insert(langList, lng) -- and add it to the list so there is at least one lang with sitelink on the list
for _, language in ipairs(langList) do
local sitelink = sitelinks[language]
if sitelink then
data[project] = string.format('%s:%s:%s', code, language, sitelink)
break
end
end
end
end
-- if no wikisource sitelink than use P1957 'wikisource_index' property
-- wikisource_index is in full url format (like https://es.wikisource.org/wiki/%C3%8Dndice:Sonetos_-_Leopoldo_Diaz.pdf)
-- instead of interlink format (like s:es:%C3%8Dndice:Sonetos_-_Leopoldo_Diaz.pdf)
data.wikisource = data.wikisource or data.wikisource_index
-- properties with functions
data.object_history = Art.get_object_history(entity, lang) -- object history
data.exhibition_history = Art.get_exhibition_history(entity, lang) -- exhibition.history
data.inscriptions = Art.get_inscription(entity, lang)
data.medium = Art.get_medium(entity, lang)
data.medium = empty2nil(data.medium) or data.technique;
data.references = Art.get_references(entity, lang)
data.other_versions = Art.get_other_versions(entity, pagename)
data.reference_wga = data.references and mw.ustring.isutf8(data.references) and mw.ustring.find( data.references, 'www%.wga%.hu' ) -- is there a link to wga.hu?
local X = Art.get_depicted(entity, lang)
data.depicted_people = X[1]
data.description = X[2] -- depicted artistic or religious themes
X = Art.get_accession_number(entity, lang)
data.id = X.str -- wikitext version of the accession number
data.id_id = X.id -- one of accession numbers, which will be used as a sortkey
X = Art.get_institution(entity, lang)
data.institution = X.institution
data.institution_id = X.id
data.department = X.location
data.dimensions = Size({entity=entity}, nil, nil, lang)
data.dimensions = empty2nil(data.dimensions);
return data, cats
end
-- ===========================================================================
-- === Adjust parameters related to books ===
-- === and resolve potential aliases ===
-- === INPUTS: ===
-- === * frame - contains imput parameters passed from the template ===
-- === OUTPUTS: ===
-- === * args - cleaned up inputs ===
-- ===========================================================================
local function header_customization(args0, data, args1)
-- get author Wikidata ID based on Wikidata
local creator_label, creator_id, creator_str, title_label, creator_tag
if args0.wikidata then
creator_id = data.creator_id or data.author_id or data.architect_id or data.designer_id or data.editor_id or data.translator_id or data.illustrator_id
if creator_id then
creator_label = getLabel(creator_id, args0.lang)
end
title_label = data.label -- create name based on Wikidata label
end
-- get author Wikidata ID based on commons
if not creator_label then
if args0.infobox=='artwork' then
creator_id = args0.artist_id or args0.author_id
creator_str = args0.artist or args0.author
elseif args0.infobox=='photograph' then
creator_id = args0.photographer_id or args0.author_id
creator_str = args0.photographer or args0.author
elseif args0.infobox=='book' then
creator_id = args0.author_id
creator_str = args0.author
end
creator_tag = TagQS.readTag(creator_str or '', 'creator')
if creator_tag then
-- if author was "{{Creator:Meister Theoderich von Prag|circle of}}" than creator_id will be "P170|Q4233718|P1776|Q446631 "
local res = {creator_tag:match("^P170%|Q4233718%|(P%d+)%|(Q%d+)$")} -- Q4233718 = annonymous
if res and res[1] and res[2]then
creator_label = getLabel(res[2], args0.lang)
local LUT = {P1774='workshop of', P1775='follower of', P1776='circle of',
P1777='manner of', P1779='possibly', P1780='school of', P1877='after' }
if res[1]=='P5102' then -- using "nature of statement (P5102)" qualifier
creator_label = getLabel('Q4233718', args0.lang) -- display "anonymous (Q4233718)""
end
if LUT[res[1]] then
creator_label = alterName(LUT[res[1]], creator_label, args0.lang) -- call [[module:Name]] with the task
end
if creator_label == "name not supported" then
creator_label = nil
end
end
elseif creator_id and creator_id:match("^Q%d+$") then
creator_label = getLabel(creator_id, args0.lang)
end
end
-- scrape labels from {{title}} template
if not title_label and args0.title then
local labels = {}
for _, title in ipairs(TagQS.readTags(args0.title, 'label')) do
local lang, label = mw.ustring.match(title, 'L(%w+)%|"([^"]+)"')
if lang and label then
labels[lang]=label
end
end
title_label = core.langSwitch(labels,args0.lang)
end
-- get title based on commons
if not title_label and args0.title then
title_label = nowiki(args0.title)
end
-- if title too long than truncate it
if title_label and #title_label>250 then
title_label = nil
end
if creator_label and #creator_label>150 then
creator_label = nil
end
-- combing author and title labels
if creator_label and title_label then
local colon = mw.message.new( "Colon-separator" ):inLanguage(args0.lang):plain()
args1.name = creator_label .. colon .. title_label
else
args1.name = title_label
end
-- if we have a {{book}} template in file namespace and file of in PDF or DjVu than use it as image
if args0.infobox=='book' and args0.namespace==6 and args1.image==nil
and (args0.noimage==false or args1.image_page)
and (args0.mimeType=='application/pdf' or args0.mimeType=='image/vnd.djvu') then
args1.image = args0.pagename
end
return args1
end
-- ==================================================
-- === External functions ===========================
-- ==================================================
local p = {}
-- ===========================================================================
-- === Version of the function to be called from other LUA codes
-- ===========================================================================
function p.create_infobox(args0)
local lang = args0.lang -- user's language
local cats, cats1, cats2 = '', '', '' -- categories
local str, data, sdc
-- ===========================================================================
-- === Step 1: clean up of template arguments "args0"
-- ===========================================================================
args0 = artcore.clean_input_parameters(args0)
if not args0.wikidata and args0.namespace==14 then
local entity = mw.wikibase.getEntity()
if entity then -- category page connected to Wikidata through a sitelink
args0.wikidata = entity.id
local qid = getProperty(entity, 'P301') -- follow wikidata's item redirect-like properties
if qid then -- item had "category's main topic (P301)" -> use it
args0.wikidata = qid
end
end
end
-- ===========================================================================
-- === Step 2: one by one merge Wikidata and creator data
-- ===========================================================================
local wikidata_temp = args0.wikidata -- Wikidata from template
sdc = {}
if not args0.no_sdc and args0.namespace==6 then -- if file namespace
sdc, cats2 = harvest_SDC(args0, lang) -- harvest Structured Data on Commons
if (args0.sdc_source==false) or (args0.source) then
-- get source from SDC only if this is NOT the artwork infobox of {{Art Photo}} template
-- also skip sdc.source if we have args0.source, otherwise we might and up with 2 source fields
sdc.source_ = nil
args0.sdc_source = nil -- not needed anymore
end
args0.source_ = args0.source_ or sdc.source_ -- if source not provided than get it from SDC
args0.wikidata = args0.wikidata or sdc.wikidata -- if Wikidata not provided than get it from P6243 ("digital representation of")
args0.image_page = args0.image_page or sdc.image_page -- title image page for multipage book files
end
data, cats = harvest_wikidata(wikidata_temp, sdc.wikidata, lang, args0.namespace, args0.infobox, args0.pagename)
cats = (cats or '') .. (cats1 or '') .. (cats2 or '')
-- based on the template type determine the meaning of "creator"
if args0.infobox=='photograph' then
data.photographer, data.photographer_id = data.creator, data.creator_id
elseif args0.infobox=='book' then
--data.author, data.author_id = data.creator, data.creator_id
else -- args0.infobox=='artwork'
data.artist, data.artist_id = data.creator, data.creator_id
end
-- mass merge (prioritize local values)
local args = {}
local fields = { 'artist', 'artist_id', 'author', 'author_id', 'architect', 'designer', 'illustrator',
'publisher', 'editor', 'translator', 'printer', 'photographer', 'photographer_id', 'wikisource', 'wikiquote',
'title', 'object_type', 'authority', 'image', 'id', 'homecat', 'coordinates', 'genre', 'subject', 'image_page',
'date', 'medium', 'name', 'depicted_people', 'depicted_place', 'place_of_creation', 'place_of_discovery',
'dimensions', 'institution', 'department', 'references', 'object_history', 'exhibition_history', 'inscriptions',
'place_of_publication', 'publication_date', 'language', 'subtitle', 'series_title', 'volume', 'edition', 'edition_of',
'author_of_foreword', 'author_of_afterword','description','other_versions', 'part_of'
}
for _, field in ipairs( fields ) do
args[field] = args0[field] or data[field]
end
-- copy fields only defined locally
local fields = { 'wikidata', 'original_description_info', 'original_description', 'biased', 'camera_coord', 'depicted_part',
'source', 'source_', 'strict', 'permission', 'demo', 'lang', 'notes', 'credit_line', 'linkback', 'pageoverview',
'other_fields', 'other_fields_1', 'other_fields_2', 'other_fields_3', 'wikidata_cat', 'namespace', 'infobox', 'demo_image',
'no_qs'
}
for _, field in ipairs( fields ) do
args[field] = args0[field]
end
if args.artist_id and #args.artist_id>1 and args.artist_id==args.author_id and data.artist_id~=data.author_id then
-- args.artist_id is string so #args.artist_id is string length. data.artist_id!=data.author_id is to make sure
-- both _ids are not coming from Wikidata. Might need to also skip if args0.author has content other than creator template
args.author, args.author_id = nil, nil; -- if artist and author are the same than drop one
cats = cats .. '[[Category:Artworks with the same artist and author]]\n'
end
if args0.infobox=='artwork' and args0.photo_date and args0.photographer then
cats = cats .. '[[Category:Artworks with photograph information]]\n'
end
if args0.infobox=='book' and args0.publication_date and data.date then
-- some magazines have local publication date for specific issue and inception date on Wikidata for the
-- magazine (publication of the first issue) -> ignore the inception date
args.date = nil
end
-- look for cases where a field like "photographer" has a single creator template with a role
-- "photographer" stated in front of it -> strip the role.
local LUT = { Q483501='artist', Q482980='author', Q42973='architect', Q5322166='designer',
Q1607826='editor', Q333634='translator', Q644687='illustrator', Q33231='photographer' }
for item, field in pairs( LUT ) do
if args[field] and args[field .. '_id'] then
local tag = TagQS.createTag('creator_role', nil, item)
local start, finish = mw.ustring.find( args[field], tag, 1, true )
if start then -- remove "<b>...</b>: " + tag
-- split the string in 2 using the tag as a divider
local str1 = mw.ustring.sub( args[field], 1, start-1 )
local str2 = mw.ustring.sub( args[field], finish+1 )
-- remove bold text at the end of str1
local str1 = mw.ustring.gsub( str1, "'''.*''': $" , '' )
args[field] = str1 .. str2 -- splice 2 halfs
end
end
end
-- internationalize local object_type string
if args0.object_type and args.object_type==args0.object_type then
local objectType = require('Module:I18n/objects')._object
args.object_type = objectType(args.object_type, nil, lang)
end
-- convert all empty strings to nils
for _, field in ipairs( fields ) do
if args[field] == '' then
args[field] = nil;
end
end
-- ===========================================================================
-- === Step 3: create maintenance categories and render html of the table
-- ===========================================================================
args = header_customization(args0, data, args)
cats = cats .. add_maintenance_categories(args0, args)
args.QS = nil;
if not args0.no_sdc then
cats2, args = add_wikidata_maintenance_categories(args0, args, data)
cats = cats .. cats2
end
if args0.wikidata and (args0.wikidata ~='CREATE') and (args.namespace==6) and not (sdc.digital_representation_of or sdc.main_subject) then
if data.object_type_id then
for _, typeId in ipairs( data.object_type_id ) do
local artwork_type = sdc.artwork_types[typeId]
if artwork_type == '2D' then
cats = string.format('%s\n[[Category:Artworks missing digital representation of for 2D work |%s]]', cats, args0.wikidata)
elseif artwork_type == '3D' then
cats = string.format('%s\n[[Category:Artworks missing main subject for 3D work|%s]]', cats, args0.wikidata)
-- Can add the other types here later
end
end
end
elseif sdc.digital_representation_of or sdc.main_subject_accepted then
if data.object_type_id then
for _, typeId in ipairs( data.object_type_id ) do
local artwork_type = sdc.artwork_types[typeId]
if artwork_type and sdc.digital_representation_of then
if artwork_type == '2D' then
cats = string.format('%s\n[[Category:Artworks digital representation of 2D work|%s]]', cats, sdc.wikidata)
elseif artwork_type == '3D' then
cats = string.format('%s\n[[Category:Artworks digital representation of 3D work|%s]]', cats, sdc.wikidata)
elseif artwork_type == 'both' then
cats = string.format('%s\n[[Category:Artworks digital representation of both 2D and 3D work|%s]]', cats, sdc.wikidata)
elseif artwork_type == 'unclassified' then
cats = string.format('%s\n[[Category:Artworks digital representation of unclassified work|%s]]', cats, sdc.wikidata)
elseif artwork_type == 'no' then
cats = string.format('%s\n[[Category:Artworks digital representation of not a work of art|%s]]', cats, sdc.wikidata)
else
cats = string.format('%s\n[[Category:Artworks digital representation of unknown type of work|%s]]', cats, sdc.wikidata)
end
elseif not artwork_type and sdc.digital_representation_of then
cats = string.format('%s\n[[Category:Artworks digital representation of unknown type of work|%s]]', cats, sdc.wikidata)
elseif artwork_type and sdc.main_subject_accepted then
if artwork_type == '2D' then
cats = string.format('%s\n[[Category:Artworks main subject 2D work|%s]]', cats, sdc.wikidata)
elseif artwork_type == '3D' then
cats = string.format('%s\n[[Category:Artworks main subject 3D work|%s]]', cats, sdc.wikidata)
elseif artwork_type == 'both' then
cats = string.format('%s\n[[Category:Artworks main subject both 2D and 3D work|%s]]', cats, sdc.wikidata)
elseif artwork_type == 'unclassified' then
cats = string.format('%s\n[[Category:Artworks main subject unclassified work|%s]]', cats, sdc.wikidata)
elseif artwork_type == 'no' then
cats = string.format('%s\n[[Category:Artworks main subject not a work of art|%s]]', cats, sdc.wikidata)
else
cats = string.format('%s\n[[Category:Artworks main subject type of work|%s]]', cats, sdc.wikidata)
end
elseif not artwork_type and sdc.main_subject_accepted then
cats = string.format('%s\n[[Category:Artworks main subject type unknown type of work|%s]]', cats, sdc.wikidata)
end
end
end
end
local results = artcore.build_html(args)
return results, cats
end
-- ===========================================================================
-- === Versions of the function to be called from template namespace
-- === Each template with it's own entry point
-- ===========================================================================
function p.artwork(frame)
local args = artcore.read_input_parameters(frame)
args.infobox = 'artwork'
local cats0 = artcore.verify_input_parameters(args)
args.demo_image = 'Noun project - Mona Lisa - in frame.svg'
local results, cats1 = p.create_infobox(args) -- call the inner "core" function
return results .. cats0 .. cats1
end
-- ===========================================================================
function p.photograph(frame)
local args = artcore.read_input_parameters(frame)
args.infobox = 'photograph'
local cats0 = artcore.verify_input_parameters(args)
args.source_ = args.source or args.source_
args.source = nil
args.demo_image = 'Breezeicons-actions-22-view-preview.svg'
local results, cats = p.create_infobox(args) -- call the inner "core" function
-- most photographs do not have Wikidata id so remove cat "Photographs without Wikidata item"
cats = mw.ustring.gsub(cats,'%\n%[%[Category:Photographs without Wikidata item%]%]','')
return results .. cats
end
-- ===========================================================================
-- This is for when we have photograph template in addition to artwork and we don't want any Wikidata
function p.photograph_of_object(frame)
local args = artcore.read_input_parameters(frame)
args.infobox = 'photograph'
local cats0 = artcore.verify_input_parameters(args)
args.source_ = args.source or args.source_
args.source = nil
args.no_sdc = true
local results, cats = p.create_infobox(args) -- call the inner "core" function
return results .. cats
end
-- ===========================================================================
function p.art_photo(frame)
local args = artcore.read_input_parameters(frame) -- clean up input parameters
args.permission = args.permission or args.photo_license or args.photo_licence -- additional aliases
args.artwork_license = args.artwork_license or args.artwork_licence
args.source = args.source or args.source_
args.photo_license, args.photo_licence, args.artwork_licence, args.source_ = nil, nil, nil, nil
local results = {}
-- split input arguments
local args2 = {}
local fields = {['date']='photo_date', description='photo_description', author='photographer',
source='source', other_versions='other_versions', other_fields ='other_fields',
permission='photo_license', permission='permission'
}
for field1, field2 in pairs( fields ) do
if args[field2] then
args2[field1] = args[field2]
args [field2] = nil
end
end
for _, field in ipairs( {'lang', 'demo'} ) do
args2[field] = args[field]
end
args.permission = args.artwork_license
args.artwork_license = nil
-- create object infobox
args.infobox = 'artwork'
local cats0 = artcore.verify_input_parameters(args)
local header = frame:expandTemplate{ title = 'Section header', args = { ["1"]=args.artwork_header or 'Object', lang=args.lang } }
table.insert(results, "===" .. header .. "===")
args.demo_image = 'Noun project - Mona Lisa - in frame.svg'
args.strict = false
args.sdc_source = false -- no picking sources from SDC for this infobox
local infobox, cats1 = p.create_infobox(args) -- call the inner "core" function
table.insert(results, infobox)
--create {{information}} infobox
header = frame:expandTemplate{ title = 'Section header', args = { ["1"]='Photograph', lang=args.lang } }
table.insert(results, "===" .. header .. "===")
args2.strict = false
table.insert(results, Information(args2) )
table.insert(results, cats0 .. cats1)
return table.concat(results, '\n')
end
-- ===========================================================================
function p.book(frame)
local args = artcore.read_input_parameters(frame)
args.infobox = 'book'
args.demo_image = 'Placeholder book.svg'
args.strict = false
args.place_of_publication = args.place_of_publication or args.city -- book specific aliases
args.publication_date = args.publication_date or args.date
args.source_ = args.source or args.source_
if args.isbn or args.lccn or args.oclc or args.bnf then
local auth_args = { ISBN=args.isbn, LCCN=args.lccn, OCLC=args.oclc, BNF=args.bnf, bare=1 }
args.authority = frame:expandTemplate{ title = 'Book authority control', args=auth_args }
args.isbn, args.lccn, args.oclc, args.bnf = nil, nil, nil, nil
end
args.source, args.city, args.date = nil, nil, nil
local results, cats = p.create_infobox(args) -- call the inner "core" function
return results .. cats
end
return p