Diferencia entre revisiones de «Módulo:Citas»
m 1 revisión importada |
Sin resumen de edición |
||
(No se muestran 9 ediciones intermedias de 5 usuarios) | |||
Línea 274: | Línea 274: | ||
if not checkurl( URL ) then | if not checkurl( URL ) then | ||
error_str = seterror( 'bad_url', {}, false, " " ) .. error_str; | error_str = seterror( 'bad_url', {}, false, " " ) .. error_str; | ||
elseif | elseif | ||
not mw.title.getCurrentTitle().text:match(' | not mw.title.getCurrentTitle().text:match('Wiki TVenserio') and | ||
URL:match('// | URL:match('//www.wikitvenserio.com') then | ||
error_str = seterror( 'bad_url_autorreferencia', {}, false, " " ) .. error_str; | error_str = seterror( 'bad_url_autorreferencia', {}, false, " " ) .. error_str; | ||
end | end | ||
return table.concat({ "[", URL, " ", safeforurl( label ), "]", error_str }); | return table.concat({ "[", URL, " ", safeforurl( label ), "]", error_str }); | ||
end | end | ||
--[[--------------------------< N O R M A L I Z E _ L C C N >-------------------------------------------------- | --[[--------------------------< N O R M A L I Z E _ L C C N >-------------------------------------------------- | ||
Línea 432: | Línea 367: | ||
]] | ]] | ||
function pmid(id) | function pmid(id) | ||
local test_limit = | local test_limit = 45000000; -- update this value as PMIDs approach | ||
local handler = cfg.id_handlers['PMID']; | local handler = cfg.id_handlers['PMID']; | ||
local err_cat = ''; -- presume that PMID is valid | local err_cat = ''; -- presume that PMID is valid | ||
Línea 478: | Línea 413: | ||
]] | ]] | ||
function pmc(id, embargo) | function pmc(id, embargo) | ||
local test_limit = | local test_limit = 12000000; -- update this value as PMCs approach | ||
local handler = cfg.id_handlers['PMC']; | local handler = cfg.id_handlers['PMC']; | ||
local err_cat = ''; -- presume that PMC is valid | local err_cat = ''; -- presume that PMC is valid | ||
Línea 484: | Línea 419: | ||
local text; | local text; | ||
if id:match("^PMC%d") then | |||
id = id:sub(4, j) -- remove 'PMC' preffix if given | |||
end | |||
if id:match("[^%d]") then -- if PMC has anything but digits | if id:match("[^%d]") then -- if PMC has anything but digits | ||
err_cat = ' ' .. seterror( 'bad_pmc' ); -- set an error message | err_cat = ' ' .. seterror( 'bad_pmc' ); -- set an error message | ||
Línea 659: | Línea 597: | ||
while true do | while true do | ||
local urlPattern = "%[%w*:?//[^ ]+%s+([%w%d].*)%]" | |||
if nil == | local urlMatch = pages:match(urlPattern); -- pattern is the opening bracket, the url and following space(s): "[url " | ||
pages = pages:gsub( | if nil == urlMatch then break; end -- no more urls | ||
pages = pages:gsub(urlPattern, "%1"); -- remove as many instances of pattern as possible | |||
end | end | ||
pages = pages:gsub("[%[%]]", ""); -- remove the brackets | pages = pages:gsub("[%[%]]", ""); -- remove the brackets | ||
Línea 917: | Línea 856: | ||
elseif k == 'DOI' then | elseif k == 'DOI' then | ||
table.insert( new_list, {handler.label, doi( v, options.DoiBroken ) } ); | table.insert( new_list, {handler.label, doi( v, options.DoiBroken ) } ); | ||
elseif k == 'LCCN' then | elseif k == 'LCCN' then | ||
table.insert( new_list, {handler.label, lccn( v ) } ); | table.insert( new_list, {handler.label, lccn( v ) } ); | ||
Línea 1337: | Línea 1274: | ||
local Quote = A['Quote']; | local Quote = A['Quote']; | ||
local PostScript = A['PostScript']; | local TransQuote = A['TransQuote']; | ||
local PostScript = A['PostScript']; | |||
local LayURL = A['LayURL']; | local LayURL = A['LayURL']; | ||
Línea 1898: | Línea 1836: | ||
if is_set(Title) then | if is_set(Title) then | ||
if not is_set(TitleLink) and is_set(URL) then | if not is_set(TitleLink) and is_set(URL) then | ||
Title = externallink( URL, Title ) .. TransError .. Format | Title = externallink( URL, Title, URL_origin, UrlAccess ) .. TransError .. Format | ||
URL = ""; | URL = ""; | ||
TieneURL = true; | TieneURL = true; | ||
Línea 2123: | Línea 2061: | ||
if is_set(URL) then | if is_set(URL) then | ||
URL = " " .. externallink( URL, nil, URLorigin ); | URL = " " .. externallink( URL, nil, URLorigin, UrlAccess ); | ||
end | end | ||
Línea 2137: | Línea 2075: | ||
end | end | ||
if is_set(Quote) then | if is_set(Quote) or is_set(TransQuote) then | ||
-- Eliminar comillas de Quote | -- Eliminar comillas de Quote | ||
if (Quote:sub(1,1) == '"' and Quote:sub(-1,-1) == '"') or | if (Quote:sub(1,1) == '"' and Quote:sub(-1,-1) == '"') or | ||
Línea 2148: | Línea 2086: | ||
Quote:sub(-1,-1) == '!' then | Quote:sub(-1,-1) == '!' then | ||
PostScript = "" | PostScript = "" | ||
end | end | ||
-- Eliminar comillas de TransQuote | |||
if (TransQuote:sub(1, 1) == '"' and TransQuote:sub(-1, -1) == '"') or | |||
(Quote:sub(1,1) == '«' and Quote:sub(-1,-1) == '»') then | |||
TransQuote = TransQuote:sub(2, -2); | |||
end | |||
-- No añadir el punto final a la cita si el campo TransQuote ya incluye un punto | |||
if TransQuote:sub(-1,-1) == '.' or TransQuote:sub(-1,-1) == '?' or | |||
TransQuote:sub(-1,-1) == '!' then | |||
PostScript = "" | |||
end | |||
if TransQuote and TransQuote ~= '' then | |||
Quote = Quote .. " " .. wrap( 'trans-quoted-title', TransQuote ); | |||
TransQuote = wrap( 'trans-quoted-title', TransQuote ); | |||
end | |||
Quote = sepc .." " .. wrap( 'quoted-text', Quote ); | Quote = sepc .." " .. wrap( 'quoted-text', Quote ); | ||
end | end |