Модуль:CategoryForProfession
Файл:Padlock-silver.svg | Этот модуль относится к критическим. У него очень много включений или он используется с подстановкой. Из-за опасности вандализма или ошибочного редактирования он был защищён. |
Используется в шаблонах о персоналиях.
Функции[править код]
Используется только одна функция — mainFunction. Она добавляет в статью категории профессий по алфавиту, и профессий по странам. Сами профессии, гражданства и академические степени берёт на нейрофолке.
Для использования данного модуля напишите: {{#invoke:CategoryForProfession|mainFunction}}
Функции данного модуля не предназначены для прямого вызова из шаблонов карточек или других модулей.
В параметре без категорий=
можно указать через точку с запятой перечень категорий которые нужно исключить.
local p = {} local ListOfProfessions = mw.loadData( 'Модуль:ListOfProfessions' ) local ListOfCountries = mw.loadData( 'Модуль:ListOfCountries' ) local ProfessionsCategoryByAlphabet = {} for k, v in pairs(ListOfProfessions) do ProfessionsCategoryByAlphabet[k] = '[[Категория:' .. v .. ' по алфавиту]]' end local ProfessionsCategoriesByCountry = {} local QQQ = {} for i, j in pairs(ListOfCountries) do QQQ = {} for k, v in pairs(ListOfProfessions) do QQQ[k] = '[[Категория:' .. v ..' ' .. j ..']]' end ProfessionsCategoriesByCountry[i] = QQQ end local function MakeGeneralCategories(professionsList, dict) local res = '' for i, prof in pairs(professionsList) do local cat=nil if(prof.mainsnak.datavalue) then -- если значение свойства "значение неизвестно", то datavalue nil id = 'Q' .. prof.mainsnak.datavalue.value['numeric-id'] cat = dict[id]; end if cat ~= nil then res = res .. cat; end end return res end local function MakeCountriesCategories(countriesList, professionsList) local res = '' for i, cant in pairs(countriesList) do if cant.mainsnak.datavalue ~= nil then id = 'Q' .. cant.mainsnak.datavalue.value['numeric-id'] local professionsCategories = ProfessionsCategoriesByCountry[id]; if professionsCategories ~= nil then res = res .. MakeGeneralCategories(professionsList, professionsCategories); end end end return res end function p.mainFunction(frame) local result = '' local wbStatus, entity = pcall( mw.wikibase.getEntity ) if wbResult ~= true then return '' -- [[Категория:Википедия:Страницы с ошибками скриптов, использующих Викиданные]] end if entity ~= nil and entity.claims ~= nil then if entity.claims[ 'P106' ] ~= nil then professions = entity.claims[ 'P106' ] result = result .. MakeGeneralCategories(professions, ProfessionsCategoryByAlphabet) if entity.claims[ 'P27' ] ~= nil then countries = entity.claims[ 'P27' ] result = result .. MakeCountriesCategories(countries, professions) end end local args = {} if frame == mw.getCurrentFrame() then if frame.args['без категорий'] == nil then frame = frame:getParent(); end if frame ~= nil then args = frame.args; end else args = frame end -- исключаем ненужные категории указанные в параметре через точку с запятой local excude = args['без категорий']; if excude ~= nil and excude ~= '' then exclude = mw.text.split(excude, '%s*;%s*' ) for i, v in ipairs(exclude) do local cat = mw.ustring.gsub( v, "([%(%)%.%%%+%-%*%?%[%^%$%]])", "%%%1" ); -- маскируем спецсимволы result = mw.ustring.gsub(result, '%[%[Категория:' .. cat .. '%]%]', ''); end end; end return result end return p