Anonymous user
Module:Redirect hatnote: Difference between revisions
From the Croc Wiki, the Croc encyclopedia
Jump to navigationJump to search
Updated module from sandbox with support for multiple redirect arguments.
(check category-space hatnotes too) |
(Updated module from sandbox with support for multiple redirect arguments.) |
||
Line 8:
local libraryUtil = require('libraryUtil')
local checkType = libraryUtil.checkType
local checkTypeMulti = libraryUtil.checkTypeMulti
local p = {}
Line 35 ⟶ 36:
end
--Get table of redirects
-- Return an error if no redirect was specified.▼
local
for i = 1, numRedirects do
return mHatnote.makeWikitextError(▼
if not args[i] then
'Template:Redirect#Errors',▼
▲ return mHatnote.makeWikitextError(
args.category▼
)▼
▲ 'Template:Redirect#Errors',
▲ args.category
▲ )
redirect[i] = args[i]
end
-- Create the data table.
local data = {}
local iArg =
local iData = 1
repeat
Line 94 ⟶ 101:
local pages = useTable.pages or {}
if isFirst then
redirect = redirect[1] or error(
'isFirst was set in formatUseTable, but no redirect was supplied',
2
Line 114 ⟶ 121:
-- Validate the input. Don't bother checking currentTitle, redirectTitle or
-- targetTitle, as they are only used in testing.
-- String type can stay valid until extant use-cases are checked-for and
-- updated, but we'll coerce them to table for now
if type(redirect) == 'string' then redirect = {redirect} end
checkType('_redirect', 2, data, 'table', true)
checkType('_redirect', 3, options, 'table', true)
Line 123 ⟶ 133:
-- Generate the text.
local text = {}
local formattedRedirect = {}
for k,v in pairs(redirect) do
formattedRedirect[k] = '"' .. v .. '"'
end
text[#text + 1] = mw.text.listToText(formattedRedirect) .. ' ' .. (#redirect == 1 and 'redirects' or 'redirect') .. ' here.'
text[#text + 1] = formatUseTable(data[1] or {}, true, redirect)
if data[1] and data[1].use and data[1].use ~= 'other uses' then
Line 132 ⟶ 146:
text = table.concat(text, ' ')
local categoryTable = {}
-- Generate the tracking category.▼
--add categories to a table by index, so we don't get duplicates
-- We don't need a tracking category if the template invocation has been▼
function addCategory(cat)
-- copied directly from the docs, or if we aren't in mainspace or category-space.▼
if cat and cat ~= '' then
local category▼
if not redirect:find('^REDIRECT%d*$') and redirect ~= 'TERM' -- ▼
and currentTitle.namespace == 0 or currentTitle.namespace == 14▼
then▼
redirectTitle = redirectTitle or getTitle(redirect)▼
if not redirectTitle or not redirectTitle.exists then▼
category = 'Missing redirects'▼
elseif not redirectTitle.isRedirect then▼
category = 'Articles with redirect hatnotes needing review'▼
else▼
local mRedirect = require('Module:Redirect')▼
local target = mRedirect.getTarget(redirectTitle)▼
targetTitle = targetTitle or target and getTitle(target)▼
if targetTitle and targetTitle ~= currentTitle then▼
category = 'Articles with redirect hatnotes needing review'▼
▲ end
end
end
▲ category = category and string.format('[[Category:%s]]', category) or ''
-- Generate the options to pass to [[Module:Hatnote]].▼
local mhOptions = {}
for k,v in pairs(redirect) do
if currentTitle.namespace == 0▼
and redirectTitle and redirectTitle.namespace ~= 0▼
then▼
-- We are on a mainspace page, and the hatnote starts with something▼
-- like "Wikipedia:Foo redirects here", so automatically label it as a▼
▲ and currentTitle.namespace == 0 or currentTitle.namespace == 14
-- self-reference.▼
mhOptions.selfref = true▼
else▼
▲ if not redirectTitle or not redirectTitle.exists then
mhOptions.selfref = options.selfref▼
▲ elseif not redirectTitle.isRedirect then
▲ local mRedirect = require('Module:Redirect')
▲ local target = mRedirect.getTarget(redirectTitle)
▲ targetTitle = targetTitle or target and getTitle(target)
▲ if targetTitle and targetTitle ~= currentTitle then
end
end
end
▲ and redirectTitle and redirectTitle.namespace ~= 0
▲ -- We are on a mainspace page, and the hatnote starts with something
▲ -- a self-reference.
▲ mhOptions.selfref = true
▲ else
▲ mhOptions.selfref = options.selfref
end
end
--concatenate all the categories
▲ local category = ''
for k,v in pairs(categoryTable) do
category = category .. k
end
|