Peandre2: 1 версия импортирована

2020-02-21T12:19:48Z

1 версия импортирована

ru>Putnik: хм, не тут ли проблема, что все статьи попадают в категорию

2017-07-22T15:56:47Z

хм, не тут ли проблема, что все статьи попадают в категорию

Новая страница

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

← Предыдущая	Версия 12:19, 21 февраля 2020
(нет различий)

Модуль:CategoryForProfession - История изменений

Peandre2: 1 версия импортирована

ru>Putnik: хм, не тут ли проблема, что все статьи попадают в категорию