Module:User:Xoristzatziki/test2

Documentation for this module may be created at Module:User:Xoristzatziki/test2/τεκμηρίωση

--Χρησιμοποιείστε το με ΠΡΟΣΟΧΗ!!!
--Περιέχει 31 "ακριβές" κλήσεις (

p ={}

function exeiorismo(lemma)
	local a = lemma or ''
	if a == '' then return 'BAD' end
	local c = getcontent(a)
	if c == nil then return 'Δεν υπάρχει' end
	local d = mw.ustring.find(c,'λείπει ο ορισμός') or ''
	if d == '' then return 'Έχει' else return 'Δεν έχει' end
end

function getcontent(lemma)
	local b = mw.title.makeTitle( 0, lemma)
	local c = ''
	if b ~= nil then
		c = b:getContent()
		return c
	end
	
	return nil
end

function p.test(frame)
	local newwords = frame.args
	--local output = 'old # new'
    local t = [=[<center>
<table style="float:center; border:5px solid #008B8B; background:#FFFACD;" rules="all" class="plainlinks">
<tr>
<th bgcolor="#008B8B" colspan="1">Ημέρα</th>
<th bgcolor="#008B8B" colspan="1">Υπάρχουσα</th>
<th bgcolor="#008B8B" colspan="1">Έχει ορ.</th>
<th bgcolor="#008B8B" colspan="1">Νέα</th>
<th bgcolor="#008B8B" colspan="1">Έχει ορ.</th>
</tr>
<tr>
]=] 
--για ν από το 1 μέχρι το 31

    for i = 1,31 do
        local row =  '<tr>'
        --διάβασε το ΛτΗν
        local leksi = frame:expandTemplate{ title = 'ΛτΗ' .. tostring(i), args = { } }
        --δες αν έχει "λείπει ο ορισμός"
        local leksiexei = exeiorismo(leksi)
        --δες αν έχει στείλει παράμετρο ν
        local nleksi = newwords[i] or ''
        nleksi = nleksi:match( "^%s*(.-)%s*$" )
        local nleksiexei = 'ERROR'
        if nleksi == '' then
            nleksi = 'δεν δόθηκε λήμμα'
            nleksiexei = '-'
        else
            --δες αν έχει "λείπει ο ορισμός" στο λήμμα που έχει στείλει
            nleksiexei = exeiorismo(nleksi)
        end
        --αλλιώς επέστρεψε 'δεν δόθηκε λήμμα για την ημέρα'
        --φτιάξε μια γραμμή με τα στοιχεία
        row = row .. '<td>' .. tostring(i) .. '</td><td>[[' .. leksi .. ']] '
        row = row .. '<small>[http://el.wiktionary.org/w/index.php?title=Πρότυπο:ΛτΗ' .. tostring(i) .. '&action=edit αλλαγή]</td>'
        row = row .. '<td>' .. leksiexei .. '</td>'
        row = row .. '<td>' .. nleksi .. '</td>'
        row = row .. '<td>' .. nleksiexei .. '</td>'
        row = row .. '</tr>'
        t = t .. row
    end
    t = t .. '</table></center>'
	return frame:preprocess(t)
	--return '#'
end

return p