Module:Wdtablerow/listed buildings

Documentation for this module may be created at Module:Wdtablerow/listed buildings/doc

--This module is invoked from Template:English Heritage listed building row/Leeds University
local getArgs = require('Module:Arguments').getArgs
local wd = require('Module:Wd')
local p = {}
local qid= {}
local label_t
local label_text
local location_p
local location_text
local completed_year
local completed_text
local source_circumstance
local earliest_date
local latest_date
local range_start_date
local has_creator
local has_architect
local architect_text
local image_text
local commons_cat_text
local return_text

function p.main(frame)

    local row_header_text='|-style=\"text-align: center;\"\n!scope=\"row\" | ' --sets up row style sets 1st cell as header row
    local args = getArgs(frame)
    
    --assign passed parameters
    qid= (args.qid or args[1] or '')
    local o_name= (args.name or args[2] or '') --local name
    local o_location= (args.location or args[3] or '') --local location
    local entry_notes= (args.notes or args[4] or '') -- freetext notes
    local image_title=(args.image or args[5] or '') -- local image
    --label
    if o_name=='' then
        label_t=wd._label  ( {qid} ) --use wd label
        else
            label_t=o_name --overwrite  name with local value
    end
    local site_link = mw.wikibase.sitelink(qid) --check if there is a sitelink
    if site_link then --if there is make the link = the sitelink but piped with the label/overwrite name
        label_text='[['..site_link..'|'..label_t..']]'
        else
            label_text=label_t
    end
    local wd_link='('..wd._label({'raw','edit@end',qid})..')' --whatever the label add a WikiData link underneath and enclose in brackets
    --location
    if wd._property ( {qid,'P276'} ) ~='' then
            location_p='P276' --use P276 if present
            else
                location_p='P131' --fallback if P276 isn't present
    end
    if o_location~='' then
            location_text=o_location --overwrite with local value
            else          
                location_text=wd._property ( {qid,location_p} )-- use wd location
    end
    --image
    if  image_title~='' then
            image_text=image_title --overwrite WD value if filename is passed. No error checking i.e. is filename valid as yet.
            else
                image_text=wd._property ( {'raw',qid,'image'} ) --otherwise use WD image
    end
    if image_text~='' then --add markup only if an image file is named
    	image_text = '[[File:'..image_text..'|150x150px|center]]' --add wiki markup
    end
    
   --non-overwriteable parameters
   --completion year
	completed_year=wd._property ( {qid,'P571'} ) --determine in P571 (inception) is present
	if completed_year~='' then 
    	completed_year='P571' --if it is make the value equal inception 
    	else
    		completed_year='P580' --else make it equal start year
    end
    completed_text=wd._property ( {qid, completed_year} ) --set return value to whichever
    --check for qualifiers
    source_circumstance=wd._qualifier( {qid, completed_year, 'P1480'} ) --check for circa etc qualifier to completion date
    earliest_date=wd._qualifier( {qid, completed_year, 'P1319'} ) --check for the earliest and latest date qualifiers 
	latest_date=wd._qualifier( {qid, completed_year, 'P1326'} )
	if source_circumstance~='' then
		completed_text='data-sort-value=\"'..completed_text..'\"|'..source_circumstance..' '..completed_text --[[if there is a qualifier use it 
			as a prefix to the date but keep the date as the sort-value]]
	end
	if earliest_date~='' and latest_date~='' then --only proceed if both are present
		completed_text='data-sort-value=\"'..completed_text..'\"|'..earliest_date..'–'..latest_date --[[if there is a range use it 
			as the date but keep the completed date as the sort-value]]
	end
	--architect or creator
	has_creator=wd._property ( {qid, 'P170'} ) --get P170 if it exists
	has_architect= wd._property ( {qid, 'P84'} ) --get P84 if it exists
	if has_architect~='' and has_creator=='' then --if no creator then 
			architect_text=wd._properties ( {'linked', qid, 'P84'} ) --use P84 architect. Note properties to catch multiple uses
		elseif has_architect=='' and has_creator~='' then
			architect_text=wd._property ( {'linked', qid,'P170'} ) --use P170 creator
		elseif has_architect=='' and  has_creator=='' then --if no creator then 
			architect_text='' --use an empty string if neither are present
		end
	--heritage designation and date
    local heritage_text=wd._property ( {qid, 'P1435'} ) --heritage designation
    local heritage_date_text=wd._qualifier ( {qid,'P1435','P580'} ) --and date of listing
    local heritage_type=wd._property ( {'raw',qid,'P1435'} ) --decides cell shading based on listing grade
    if heritage_type=='Q15700818' then --Grade I
            cell_shading='style=\"background: #FFC0CB;\"|'
            elseif heritage_type=='Q15700831' then --Grade II*
                cell_shading='style=\"background: #87CEEB;\"| '
            elseif heritage_type=='Q15700834' then --Grade II
                cell_shading='style=\"background: #ACE1AF;\"| '
            else cell_shading=''
            end
    if entry_notes~='' then
            entry_notes = 'style=\"text-align: left;\" |'..entry_notes
            end
    local gbmapping_text=frame:expandTemplate{title='gbmappingsmall',args={wd._property ( {qid,'P613'} ) }} --gb map
    local coord_text=wd._property ( {'linked',qid,'coord'} ) --and co-ords
    local list_number_text=frame:expandTemplate{title='National Heritage List for England',
        args={num=wd._property ( {qid,'P1216'} ),short='yes'}} --NHLE number
    local commons_cat_name=wd._property ( {qid,'P373'} )
    if commons_cat_name=='' then --commons category
            commons_cat_text='' --ignore non-existent or unlinked in WD categories
        else
            commons_cat_text='[[:commons:category:'..commons_cat_name..'|'..commons_cat_name..']]' 
    end
 
    --return cell values to page
    return_text=row_header_text..label_text..'<br>'..wd_link..'\n|' --includes code to create new line and make first cell row header
        ..location_text..'\n|'
        ..completed_text..'\n|'
        ..architect_text..'\n|'
        ..cell_shading..heritage_text..'<br>('..heritage_date_text..')\n|'
        ..entry_notes..'\n|'
        ..gbmapping_text..'<br>'..coord_text..'\n|'
        ..image_text..'\n|'
        ..list_number_text..'\n|'
        ..commons_cat_text
    return return_text

end
return p