Ir al contenido

Diferencia entre revisiones de «Módulo:Citas»

137 bytes añadidos ,  12 junio
sin resumen de edición
m (1 revisión importada)
Sin resumen de edición
 
(No se muestran 7 ediciones intermedias de 4 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 mw.title.getCurrentTitle():inNamespaces(0, 100, 104) and
     elseif  
     not mw.title.getCurrentTitle().text:match('Wikipedia') and
     not mw.title.getCurrentTitle().text:match('Wiki TVenserio') and
     URL:match('//[%a%.%-]+%.wikipedia%.org') then
     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
Línea 367: Línea 367:
]]
]]
function pmid(id)
function pmid(id)
local test_limit = 36000000; -- update this value as PMIDs approach
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 = 10000000; -- update this value as PMCs approach
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("%[([%w/:\.]+%s+)[%w%d].*%]"); -- pattern is the opening bracket, the url and following space(s): "[url "
    local urlPattern = "%[%w*:?//[^ ]+%s+([%w%d].*)%]"
if nil == pattern then break; end -- no more urls
local urlMatch = pages:match(urlPattern); -- pattern is the opening bracket, the url and following space(s): "[url "
pages = pages:gsub(pattern, ""); -- remove as many instances of pattern as possible
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 2095: Línea 2099:
           PostScript = ""
           PostScript = ""
           end
           end
if TransQuote and TransQuote ~= '' then
           Quote = Quote .. " " .. wrap( 'trans-quoted-title', TransQuote );
           Quote = Quote .. " " .. wrap( 'trans-quoted-title', TransQuote );
           TransQuote = 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