Moduuli:Linkitetty data

local p = {} --p stands for package

-- p.printP18Image(frame) generates image for the image line
-- 
-- Parameters
-- * entity

-- Example return value:
-- "[[image:example.jpg|150px]]"

function p.printP18Image(frame)
    local ret = ""
	local entity = frame.args.entity or "";
	local width = frame.args.width or "150px";

	if entity == "" then
		entity=mw.wikibase.getEntityIdForCurrentPage();
	end

  	if not entity then
		return ""
	end

	local claims=mw.wikibase.getBestStatements( entity, "P18")
    for p, claim in pairs(claims) do
        if claim["mainsnak"]
           and claim["mainsnak"]["datavalue"]
           and claim["mainsnak"]["datavalue"]["value"]
        then
             local filename=claim["mainsnak"]["datavalue"]["value"]
             ret=ret .. "[[image:" .. filename .."|".. width .."]]"
        end
    end
    return ret
end

-- p.printTitle(frame) generates text for the title line
-- 
-- Parameters
-- * entity

-- Example return value:
-- Linkitetty data: [[d:Q658627|<span title="Aki Kaurismäen elokuva vuodelta 1988">Ariel <small>(Q658627)</small></span>]]

function p.printTitle(frame)
	local entity = frame.args.entity or "";
	local prefix = (frame.args.title or "Linkitetty data") ..": ";	

	if entity == "" then
		entity=mw.wikibase.getEntityIdForCurrentPage();
	end

  	if not entity then
		return ""
	end

	local label=mw.wikibase.getLabel(entity);
	local description=mw.wikibase.getDescription(entity);

	local linktext=mw.html.create('span')
		:wikitext(label .. " (" .. entity ..")")
		:attr("title", description )
		:allDone();
		
	local ret=prefix .."[[:d:" .. entity .."|" ..  tostring(linktext)  .."]]";
	return ret;
end

-- p.printProperty(frame) generates property header col value
-- 
-- Parameters
-- * property
-- * wikidatapropertyrule
-- * default

-- Example return value:
--
-- <div class="wqswikidataproperty" data-wqswikidatapropertyrule="wdt:P136/wdt:P279*" data-wqswikidataproperty="P136">[[d:Property:P136|<span title="luovan työn lajityyppi tai lajityyppi, jonka parissa taiteilija työskentelee">lajityyppi]]</div>


function p.printProperty(frame)
    local entity = frame.args.entity or "";
	local property = frame.args.property or "";
	local wikidatapropertyrule = frame.args.wikidatapropertyrule or "";	
	local default = frame.args.default or "";
	
	if (property=="") then
		return "";
	end

	if entity == "" then
		entity=mw.wikibase.getEntityIdForCurrentPage();
	end	

  	if not entity then
		entity="Q3019261"
	end

	local label=mw.wikibase.getLabel( property ) or "unknown";
	
	-- Print property id:s also if we are in template documentation page
	local titleobject=mw.title.getCurrentTitle();
	if (titleobject.namespace==10) then
		label=label .. " <small>(" .. property ..")</small>";
	end
	
	local description=mw.wikibase.getDescription( property );
	local linktext=mw.html.create('span')
		:wikitext(label)
		:attr("title", description)
		:allDone();

    local target_prop = "d:property:" .. property
    if entity and entity~="" then
        target_prop="d:" .. entity .."#" .. property
    end

	local value="[[" .. target_prop .."|" .. tostring(linktext) .."]]";
	
	local div=mw.html.create('div')
		:addClass("wqswikidataproperty")
		:attr("data-wqswikidataproperty", property)
		:wikitext(value);
	
	if (wikidatapropertyrule~="") then
		div:attr("data-wikidatapropertyrule", wikidatapropertyrule);
	end

	if (default~="") then
		div:addClass("wqsdefault");
	end
	div:allDone();
	
	return tostring(div);
end

local function testHaystack(haystack, needle)
    local ret = 1

    if haystack~="" and needle~="" then
        if mw.ustring.match(haystack, needle) then
            ret=0
        end
    end

    return ret
end

-- p.printValues(frame) generates valuelist for Linked data search 
--
-- Parametes
-- * entity = wikidata item used
-- * property = property used
-- * link = if "-" then do not wikilink the value
-- * defaultlink = if "red" then create wikilinks even if the target page doesn't exist
-- * lcfirst = if "1" then lower case the first character of the value
-- * ucfirst = if "1" then upper case the first character of the value
--
-- return value example : 
-- 
-- <span class="wqsbacklink" data-wqswikidatavalue="Q130232">[[Draamaelokuva|draamaelokuva]]</span><span class="wqsconj">, </span><span class="wqsbacklink" data-wqswikidatavalue="Q1135802">[[Taide-elokuva|taide-elokuva]]</span><span class="wqsconj">, </span><span class="wqsbacklink" data-wqswikidatavalue="Q1054574">[[Rakkauselokuva|romanttinen elokuva]]</span><span class="wqsconj">, </span><span class="wqsbacklink" data-wqswikidatavalue="Q157443">[[Komediaelokuva|komediaelokuva]]</span>

function p.printValues(frame)
	local entity = frame.args.entity or "";
	local lcfirst = frame.args.lcfirst or 0;
	local link = frame.args.link or "";
	local defaultlink = frame.args.defaultlink or "";	
	local property = frame.args.property or "";
    local requiresource = frame.args.requiresource or ""
    local referenceprops = {"P123","P248","P854", "P2013"}
	local haystack = frame.args.haystack or "";
    local showvaluetest=1

	
	if property =="" then
		return ""
	end
	
	if entity == "" then
		entity=mw.wikibase.getEntityIdForCurrentPage();
	end
	
  	if not entity then
		return ""
	end

	local extwdlabels={}
	local extwdlinks={}
	
	local claims=mw.wikibase.getBestStatements( entity, property)

	local out=""
	local conj=""
	if 1 then
		for p, claim in pairs(claims) do
            
	
			if claim["mainsnak"]["datatype"]=="wikibase-item"
				and claim["mainsnak"]["datavalue"]~=nil
				and claim["mainsnak"]["datavalue"]["value"]~=nil
				and claim["mainsnak"]["datavalue"]["value"]["id"]~=nil
			then
				tmp_id=claim["mainsnak"]["datavalue"]["value"]["id"];
				tmp_label=mw.wikibase.getLabel(tmp_id);
				tmp_sitelink=mw.wikibase.getSitelink(tmp_id);
                showvaluetest=testHaystack(haystack, tmp_label) 

				if ( 
					1 -- only one pass 
					or (n==1 and tmp_sitelink~=nil) -- first pass for wikilinked pages 
					or (n==2 and tmp_sitelink==nil) -- second pass for pages without wikilink
				) then
					if lcfirst==1 then
						tmp_label=mw.language:lcfirst(tmp_label)
					elseif ucfirst==1 then
						tmp_label=mw.language:ucfirst(tmp_label)
					end                    

                    -- If address then print first house number
                    if property=="P669" then
                        
                        if claim["qualifiers"]
                           and claim["qualifiers"]["P670"]~=nil
                        then
                           qualifconj=""
                           for p, qualifier in pairs(claim["qualifiers"]["P670"]) do
                               if qualifier["datavalue"] then
                                   qualifiervalue = claim["qualifiers"]["P670"][1]["datavalue"]["value"]
                                   tmp_label=mw.text.trim(tmp_label) .. qualifconj .. ' ' .. qualifiervalue
                                   qualifconj = ','
                                   showvaluetest = showvaluetest + testHaystack(haystack, qualifiervalue) 
                                   
                               end
                           end
                        end
                    end
					
					if link ~='-' then
						if tmp_sitelink~=nil then
							tmp_label = '[[' .. tmp_sitelink .. '|'.. tmp_label .. ']]';
						elseif defaultlink=="red" then
							tmp_label = '[[' .. tmp_label .. ']]';
						end
					end
			
					out=out .. conj .. '<span class="wqsbacklink" data-wqswikidatavalue="'..  tmp_id .. '">' .. tmp_label ..'</span>';
					conj='<span class="wqsconj">, </span>';                    
				end
			elseif claim["mainsnak"]["datatype"]=="string" 
            then
                tmp_value=claim["mainsnak"]["datavalue"]["value"]
                out=out .. conj .. '' .. tmp_value ..'';
				conj='<span class="wqsconj">, </span>';
                showvaluetest=testHaystack(haystack, tmp_value) 
            elseif claim["mainsnak"]["datavalue"] 
                and claim["mainsnak"]["datavalue"]["type"]
                and claim["mainsnak"]["datavalue"]["type"]=="monolingualtext"
            then
                tmp_value = claim["mainsnak"]["datavalue"]["value"]["text"]
                out=out .. conj .. '' .. tmp_value ..'';
				conj='<span class="wqsconj">, </span>';
                showvaluetest=testHaystack(haystack, tmp_value)
            end

            -- if all values and qualifiers are found on haystack then return ""
            if showvaluetest == 0 then
                return ""
            end	

            if requiresource=="true" and claim["references"] then
                local referencefound=0
                for p, reference in pairs(claim["references"]) do
                    for r,referenceprop in pairs(referenceprops) do
                        if reference["snaks"][referenceprop] then
                            referencefound = 1
                        end
                    end
                end
                if referencefound == 0 then
                    out=out .. mw.getCurrentFrame():expandTemplate{title = "lähde"}
                end
            end
		end
	end

	return out;
end

return p;