Diferencia entre revisiones de «Módulo:Citas»
wikitv>Josecurioso Normalización de fechas YYYY-mm-dd |
m 1 revisión importada |
||
(No se muestran 10 ediciones intermedias de 5 usuarios) | |||
Línea 367: | 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 413: | 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 419: | 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 594: | Línea 597: | ||
while true do | while true do | ||
pattern = pages:match("%[( | pattern = pages:match("%[(%w*:?//[^ ]+%s+)[%w%d].*%]"); -- pattern is the opening bracket, the url and following space(s): "[url " | ||
if nil == pattern then break; end -- no more urls | if nil == pattern then break; end -- no more urls | ||
pages = pages:gsub(pattern, ""); -- remove as many instances of pattern as possible | pages = pages:gsub(pattern, ""); -- remove as many instances of pattern as possible | ||
Línea 1270: | Línea 1273: | ||
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 1464: | Línea 1468: | ||
if is_set(Interviewer) then | if is_set(Interviewer) then | ||
if is_set(TitleType) then | if is_set(TitleType) then | ||
Others = sepc .. ' ' .. TitleType .. ' | Others = sepc .. ' ' .. TitleType .. ' con ' .. Interviewer -- ' ' .. TitleType .. ' con ' .. Interviewer; | ||
TitleType = ''; | TitleType = ''; | ||
else | else | ||
Others = sepc .. ' ' .. wrap('interview', Interviewer, use_lowercase) .. Others -- ' ' .. ' | Others = sepc .. ' ' .. wrap('interview', Interviewer, use_lowercase) .. Others -- ' ' .. 'Entrevista con ' .. Interviewer; | ||
end | end | ||
if is_set(Cointerviewers) then | if is_set(Cointerviewers) then | ||
Línea 1831: | Línea 1835: | ||
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 2056: | Línea 2060: | ||
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 2070: | Línea 2074: | ||
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 2081: | Línea 2085: | ||
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 |