Module:auto cat: Διαφορά μεταξύ των αναθεωρήσεων

1.724 bytes προστέθηκαν ,  πριν από 8 μήνες
(όχι, λάθος -- Ανάκληση της επεξεργασίας 5394320 του Sarri.greek (Συζήτηση))
Ετικέτα: Αναίρεση
-- e.g. [[:Κατηγορία:Προέλευση λέξεων από την πρωτοϊνδοευρωπαϊκή ρίζα *gʷelH- (αρχαία ελληνικά)]]
-- ============ from root: match the part of the cat_title with Module:languages param. frm
local autosort = ''
local sort = args[1] or args['sort'] or ''
 
function get_langapotin_text(langapotin_text)
-- languages apo = feminine article+accusative e.g. την αραβική, την πρωτοελληνική
-- -------------------- APPLICATIONS langapotin root -------------------------
if mw.ustring.find(cat_title, 'Προέλευση λέξεων από') and mw.ustring.find(cat_title, 'ρίζα')
then
lang_iso2 = get_apotin(langapotin_text)
langapotin_label = get_langapotin_label(cat_title)
-- cat a
if languages[lang_iso2].sublang then
if root_word:sub(1, 1)sort == '*' or sort == nil then
if root_word:sub(1, 1) == '*' then
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
end else
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word .. ']]'
end end
else
if root_word:sub(1, 1) == '*' then
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word .. ']]'
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word:sub(2, -1)sort .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
end
end else
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_wordsort .. ']]'
end
end -- close sort
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' ' .. languages[lang_iso2].host_apota .. '|' .. languages[lang_iso2].apota_key .. ']]' .. "\n"
else
if sort == '' or sort == nil then -- [[:Κατηγορία:Προέλευση λέξεων από την πρωτοϊνδοευρωπαϊκή ρίζα *(s)teyg-]]
if root_word:sub(1, 1) == '*' then
if root_word:sub(1, 1) == '*' then
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
else
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word .. ']]'
end
else
if root_word:sub(1, 1) == '*' then
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word .. ']]'
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. sort .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
end
end else
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. sort .. ']]'
end
end -- close sort
end -- close sublang
else
-- apota b mode -- [[:Κατηγορία:Προέλευση λέξεων από την πρωτοϊνδοευρωπαϊκή ρίζα *gʷelH- (αρχαία ελληνικά)]]
.. ' « [[:Κατηγορία:Ετυμολογία (' .. languages[lang_iso2].name .. ')|<i>Ετυμολογία</i>]]'
.. ' « [[:Κατηγορία:' .. languages[lang_iso2].cat .. '|<i>' .. mw.getContentLanguage():ucfirst(languages[lang_iso2].name) .. '</i>]]'
-- ## need sort here
 
-- cat b ##### sublangs not checked
if languages[lang_iso].sublang == true and not languages[lang_iso2].sublang == true then
else
cat = '[[Κατηγορία:' .. cat_title .. '|' .. languages[lang_iso]['key'].. ']]' .. "\n"
-- [[:Κατηγορία:Προέλευση λέξεων από την πρωτοϊνδοευρωπαϊκή ρίζα *(s)teyg- (αρχαία ελληνικά)]]
if root_word:sub(1, 1) == '*' then
if sort == '' or sort == nil then
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
if root_word:sub(1, 1) == '*' then
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
else
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word .. ']]'
end
else
if root_word:sub(1, 1) == '*' then
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word .. ']]'
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. sort .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
end
else
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. sort .. ']]'
end
end -- close sort
end
end -- close parenthesis