Modul:Sandlådan/MikaelLindmark/Iwlinklist

local p = {}
 
function p.Iwlinklist(frame)
	
    local args = {}
    local parent_args = frame:getParent().args;
 
    for k, v in pairs(parent_args) do
        if v ~= '' then
            args[k] = v
        end
    end
    
    if args[1] == null or args[1] == '' then
    	error( "Minst en parameter krävs",0 )
    	return "Error: Minst en parameter krävs"
    end

    -- special cases for first parameter  
    if string.sub(args[1], 1, 1) ~= "\"" or string.sub(args[1], -1) ~= "\"" then
    	error( "Första parametern måste vara omsluten av [[Citattecken]]",0 )
    	return "Error: Första parametern måste vara omsluten av [[Citattecken]]"
    end
    -- Remove the quotation marks
    local name=string.sub(args[1], 2, -2);
    if #args == 1 then
    	return "'''[[" .. name .."]]'''";
    end
    
    -- Begin building the output text
    local text = "'''[[" .. name .."]] <small>+";
    for argnr = 1, #args do
    	-- Is it a new name (instead of a language)?
    	if string.sub(args[argnr], 1, 1) == "\"" or string.sub(args[argnr], -1) == "\"" then
    		name=string.sub(args[argnr], 2, -2);
    	else
    		-- Add language (for the last set name)  to the output text
    		text = text .. "[[:" .. args[argnr] .. ":" .. name .. "|" .. args[argnr] .. "]], ";
    	end
    end
    -- Remove the last comma in the list before output
    	text = string.sub(text, 1, -3) .. "</small>'''";
    return text 
end  
return p