Documentatie voor deze module kan aangemaakt worden op de volgende pagina: Module:Title/SMW/doc

--[[

Module for taking and processing parameters for set in Template:Title
Work in progress

{{#invoke:Title/SMW |set
|page={{FULLPAGENAME}}
|slot=ws-page-props

|ID={{{ID|}}}
|TitelBiblio={{{TitelBiblio|}}}
|TitelGew={{{TitelGew|}}}
|OrigTitel={{{OrigTitel|}}}
|SchrijverNr={{{SchrijverNr|}}}
|Type={{{Type|}}}
|Titelreeks={{{Titelreeks|}}}
|Reeks={{{Reeks|}}}
|ReeksNr={{{ReeksNr|}}}
|Behoord={{{Behoord|}}}
|Soort={{{Soort|}}}
|Wereld={{{Wereld|}}}
|Medium vorm={{{Medium vorm|}}}
|ZieOokBij={{{ZieOokBij|}}}
|subcategorie={{{subcategorie|}}}
|KInhoud={{{KInhoud|}}}
|GUID={{{GUID|}}}
|Verwijderd={{{Verwijderd|}}}
|Opmerking={{{Opmerking|}}}
|Aantekening={{{Aantekening|}}}
}}

]]--

local p = {}

p.set = function(frame)
	local page = frame.args.fullpagename or nil
	local slot = frame.args.slot or "ws-page-props"

	-- Wiki template argumentsa
	local ID = frame.args.ID or nil
	local TitelBiblio = frame.args.TitelBiblio or nil
	local TitelGew = frame.args.TitelGew or nil
	local OrigTitel = frame.args.OrigTitel or nil
	local SchrijverNr = frame.args.SchrijverNr or nil
	local Type = frame.args.Type or nil
	local Titelreeks = frame.args.Titelreeks or nil
	local Reeks = frame.args.Reeks or nil
	local ReeksNr = frame.args.ReeksNr or nil
	local Behoord = frame.args.Behoord or nil
	local Soort = frame.args.Soort or nil
	local Wereld = frame.args.Wereld or nil
	local Mediumvorm = frame.args["Medium vorm"] or nil
	local ZieOokBij = frame.args.ZieOokBij or nil
	local subcategorie = frame.args.subcategorie or nil
	local KInhoud = frame.args.KInhoud or nil
	local GUID = frame.args.GUID or nil
	local Verwijderd = frame.args.Verwijderd or nil
	local Opmerking = frame.args.Opmerking or nil
	local Aantekening = frame.args.Aantekening or nil

	-- processing
	local titleBiblioFlattened = p.flattenBibliographicTitle( TitelBiblio )
	local initial = p.getUppercaseInitial( titleBiblioFlattened )

	-- author name string
	local authorNameStr = p.buildAuthorNameString( SchrijverNr )

	-- set
	local set = {}
	-- Dutch-language label
	set["Klasse"] = "Titel"
	set["Has ID"] = ID
	set["Title"] = TitelGew .. " - ..."

	if mw.smw then
		local setResult = mw.smw.set( set )
	end
end

p.flattenBibliographicTitle = function( titelBiblio )
	-- {{Strip title for sorting|{{#sub:{{{TitelBiblio|}}}|0|75}} }}
	-- {{#sub:{{{TitelBiblio|}}}|0|75}} 
	local subbed = string.sub( titelBiblio, 1, 75 )
	-- todo use Format for sorting module instead
	local stripped = frame:expandTemplate{ title = 'Strip title for sorting', args = { subbed } }
	return stripped
end

p.getUppercaseInitial = function( str )
	local initial = string.sub( str, 1, 1 )
	return string.upper(initial)
end

--[[
@SchrijverNr string|nil - table of author pages
@return string
]]--
p.buildAuthorNameString = function( SchrijverNr )
	if SchrijverNr == nil then
		return ""
	end
	local authors = mw.text.split( SchrijverNr, "," )
	local firstAuthor = authors[1]
	local firstAuthorNaamGew = p.getValueFromTemplateParam( firstAuthor, "Person", "NaamGew" )
	local firstAuthorNaamBiblio = p.getValueFromTemplateParam( firstAuthor, "Person", "NaamBiblio" )
	local secondAuthor = nil
	if authors[2] ~= nil then
		secondAuthor = authors[2];
		secondAuthorNaamGew = p.getValueFromTemplateParam( secondAuthor, "Person", "NaamGew" )
		secondAuthorNaamBiblio = p.getValueFromTemplateParam( secondAuthor, "Person", "NaamBiblio" )
	end
	local authorNameStr = ""
	if ( #authors == 1 ) then
		authorNameStr = firstAuthorNaamGew
	elseif ( #authors == 2 ) then
		authorNameStr = firstAuthorNaamGew .. " & " .. secondAuthorNaamGew
	elseif ( #authors > 2 ) then
		authorNameStr = firstAuthorNaamGew .. " & " .. secondAuthorNaamGew .. ", e.a."
	end
	return authorNameStr
end

p.getValueFromTemplateParam = function( pagename, templateName, templateParam )
	local slotContent = p.getSlotContent( pagename, "ws-page-props", templateName )
	if slotContent == nil or slotContent[1] == nil or slotContent[1][templateParam] == nil then
		mw.log( "No value retrieved from page. Template param: " .. templateParam )
		return ""
	end
	return slotContent[1][templateParam]
end

return p