Модуль:Упоминание: различия между версиями
Перейти к навигации
Перейти к поиску
StasR (обсуждение | вклад) Нет описания правки |
StasR (обсуждение | вклад) (удаление закомментированных обломков шаблона «персона») |
||
Строка 8: | Строка 8: | ||
local pope = require( 'Модуль:Поиск персоны' ) | local pope = require( 'Модуль:Поиск персоны' ) | ||
global.strict( true ) | global.strict( true ) | ||
local function toRank( para ) | local function toRank( para ) | ||
local z = rankTable[para.rank] | local z = rankTable[para.rank] | ||
Строка 64: | Строка 49: | ||
['место службы'] = true, -- добавлено по сравнению с персоной | ['место службы'] = true, -- добавлено по сравнению с персоной | ||
['должность'] = true, | ['должность'] = true, | ||
-- ['награда'] = true, ['номер'] = true, | |||
-- [' | |||
['сноска'] = true, ['пояснение'] = true, } ) | ['сноска'] = true, ['пояснение'] = true, } ) | ||
if not Args then | if not Args then | ||
Строка 159: | Строка 142: | ||
reference = table.concat( reference, ' ' ) | reference = table.concat( reference, ' ' ) | ||
-- собрали примечание | -- собрали примечание | ||
if rank then | if rank then | ||
if not noCargo then | if not noCargo then | ||
cargoQ = cargoQ .. toRank { | cargoQ = cargoQ .. toRank { | ||
Строка 413: | Строка 155: | ||
end | end | ||
end | end | ||
if segment == '-' then | if segment == '-' then | ||
segment = nil | segment = nil | ||
end | end | ||
if pos or unit or segment then | if pos or unit or segment then | ||
if not noCargo then | if not noCargo then | ||
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Таблица назначений', args = { | cargoQ = cargoQ .. frame:expandTemplate{ title = 'Таблица назначений', args = { | ||
Строка 508: | Строка 226: | ||
out = out .. '[[' .. fio .. '|<span class="fa fa-external-link nkvd-doc-mention-flag" title="Упоминание — ' .. fio .. '"></span>]]' | out = out .. '[[' .. fio .. '|<span class="fa fa-external-link nkvd-doc-mention-flag" title="Упоминание — ' .. fio .. '"></span>]]' | ||
end | end | ||
return debugTxt .. out .. cargoQ | return debugTxt .. out .. cargoQ | ||
Версия от 11:34, 4 февраля 2017
Для документации этого модуля может быть создана страница Модуль:Упоминание/doc
local pp = {}
local global = mw.ext.luaglobal;
local Args, Doc, Frame
tools = require( 'Модуль:Tools' )
local doctools = require( 'Модуль:DocTools' )
local abbr = mw.loadData( 'Модуль:Аббревиатуры' )
local rankTable = mw.loadData( 'Модуль:Звания' )
local pope = require( 'Модуль:Поиск персоны' )
global.strict( true )
local function toRank( para )
local z = rankTable[para.rank]
local i = 0
if z then
if z.diap then
for j, d in ipairs( z.diap ) do
if para.date < d[1] then
i = j-1
break
end
end
else
i = 1
end
end
local query = Frame:expandTemplate{ title = 'Таблица званий', args = {
person = para.person,
date = para.date,
rank = para.rank,
subrank = i,
canceled = para.canceled,
origin = para.origin,
reference = para.reference,
alias = para.alias,
isVolatile = para.isVolatile,
} }
return query
end
pp.Main = function ( frame )
Frame = frame
local tmp
local debugTxt = ''
Args, tmp = tools.checkargs( frame:getParent().args,
{ true, '', ['дата'] = true, ['звание'] = true, ['подразделение'] = true,
['место службы'] = true, -- добавлено по сравнению с персоной
['должность'] = true,
-- ['награда'] = true, ['номер'] = true,
['сноска'] = true, ['пояснение'] = true, } )
if not Args then
return tools.errorMsg( 'упоминание', 'Неизвестный параметр «' .. tmp .. '»' )
end
local dry = mw.text.trim( frame.args[1] or '' ) == 'dry'
local porno = global.get( 'porno' )
porno = (porno or 0) + 1
global.set( 'porno', porno )
Doc = global.get( 'gDoc' )
local DocAlias = global.get( 'gDocAlias' )
if not Doc then
return tools.errorMsg( 'упоминание',
'Первым на странице должен размещаться шаблон {{ Документ }}' )
end
local noCargo = Doc.off or dry
local fio = Args[1]
if not fio then
return tools.errorMsg ( 'упоминание', 'Не указано ФИО персоны' )
end
--@TODO Проверять формат ФИО (хотя кривое будет красным)
local cargoQ = ''
if not noCargo then
cargoQ = pope.makeP( fio ) or fio
if mw.ustring.find( cargoQ, '%', 1, true ) then
cargoQ = frame:expandTemplate{ title = 'Таблица неизвестных', args = {
pattern = cargoQ,
} }
elseif not mw.ustring.find( fio, '(', 1, true ) and mw.title.new( fio .. ' (I)' ).exists then
cargoQ = frame:expandTemplate{ title = 'Таблица неизвестных', args = {
pattern = fio .. ' %',
} }
else
cargoQ = ''
end
end
if Doc.debug then
debugTxt = {}
for _, h in ipairs( Doc.n2h ) do
table.insert( debugTxt, '[' .. h .. '] = ' .. mw.dumpObject( Doc.h2v[h] ) )
end
debugTxt = '\n******* ' .. table.concat( debugTxt, '; ' ) .. '\n'
end
local pos, unit, segment
= doctools.abbr( Args['должность'], abbr.pos ), Args['подразделение'], doctools.abbr( Args['место службы'], abbr.segm )
-- звание почти всегда (кроме присвоения званий) фиксировано, можно приготовить
local rank = Args['звание']
if rank then
if rankTable[rank] then
if rankTable[rank].redirect then
rank = rankTable[rank].redirect
Args['звание'] = rank
end
else
return tools.errorMsg( 'персона',
'Неизвестное звание «' .. rank .. '» в параметре «звание»')
end
end
local ownDate = Args['дата']
local actionDate
if ownDate then
ownDate = tools.parseDate( ownDate )
if not ownDate then
return tools.errorMsg( 'упоминание',
'Некорректный формат даты в параметре «дата»')
end
if Doc.h2v['дата'] then
return tools.errorMsg( 'упоминание',
'В секции {{дата}} у шаблона не может быть собственного параметра «дата»' )
end
actionDate = ownDate
else
actionDate = Doc.date
end
-- сборка примечания
local reference = {}
if Args['сноска'] then
table.insert( reference, tools.phrase( Args['сноска'] ) )
end
tmp = global.get( 'gUniref-Документ' )
if tmp then
table.insert( reference, tools.phrase( tmp ) )
end
reference = table.concat( reference, ' ' )
-- собрали примечание
if rank then
if not noCargo then
cargoQ = cargoQ .. toRank {
person = fio,
date = actionDate, --+ Doc.date, -- упоминание — на дату составления документа
rank = rank,
origin = 3, --+ tmp,
-- reference = reference,
alias = DocAlias,
isVolatile = porno,
}
end
end
if segment == '-' then
segment = nil
end
if pos or unit or segment then
if not noCargo then
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Таблица назначений', args = {
person = fio,
date = actionDate, --+ Doc.date, -- упоминание — на дату составления документа
unit = unit,
position = pos,
segment = segment,
origin = 3, --+ tmp,
-- reference = reference,
alias = DocAlias,
isVolatile = porno,
} }
end
end
if not noCargo then
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Таблица упоминаний', args = {
person = fio,
date = actionDate,
reference = reference,
comment = Args['пояснение'],
alias = DocAlias,
isVolatile = porno,
} }
end
local out, suffix = Args[2], ''
if out == '-' then
out = ''
elseif out == '+' then
if rank then
suffix = ', ' .. tools.db( rankTable, rank, 'кто' ) -- rank
end
if pos or unit or segment then
tmp = {}
if pos then
tmp[#tmp+1] = pos
end
if unit then
tmp[#tmp+1] = unit
end
if segment then
tmp[#tmp+1] = tools.segment( segment )
end
suffix = suffix .. ' (' .. table.concat( tmp, '; ' ) .. ')'
end
if ownDate then
suffix = suffix .. ' [по сост. на ' .. tools.reparseDate( ownDate ) .. ']'
end
out = fio
elseif out == '' then
out = fio
end
if out ~= '' then
if dry then
out = '<span class="nkvd-doc-mention-dry">' .. out .. '</span>'
else
out = '[[' .. fio .. '|<span class="nkvd-doc-mention">' .. out .. '</span>]]'
end
out = out .. suffix
end
if not dry then
out = out .. '[[' .. fio .. '|<span class="fa fa-external-link nkvd-doc-mention-flag" title="Упоминание — ' .. fio .. '"></span>]]'
end
return debugTxt .. out .. cargoQ
end
return pp