Uicchipèdie

Modulo:Citazione: Differenze 'mbrà revisiune

Sfogghie 'u cunde jndr'à 'nu mode inderattive
Cangiaminde cchiù nuève →
Contenuto cancellato Contenuto aggiunto
Pàgena ccrejete cu '-- Modulo per la gestione delle citazioni, originariamente importato dalla -- revisione 555909894 del 20/5/2013 da en:Module:Citation/CS1 --[[ ========================...'
 
Provo ad aggiornare per vedere se il "cita_da_modulo" funzionasse sul Collegamenti esterni
Tag: Annullate
Linea 3:
 
--[[ ===============================================================================
Variabile in cui vengono memorizzate le condizioni di errore registrate durante l'esecusioneesecuzione
delle funzioni del modulo.
===============================================================================]]
Linea 11:
message_tail = {}; -- messaggi di errore da visualizzare in coda alla citazione
}
 
--[[ ===============================================================================
Carica la tabella di configurazione, correggendo il nome se caricato da sandbox
-- nota: non ancora attiva per qualche motivo non funziona
===============================================================================]]
local function load_configuration_table(name)
local frame = mw.getCurrentFrame()
local real_name = name
if nil ~= string.find (frame:getTitle(), 'sandbox', 1, true) then
real_name = real_name .. '/sandbox'
end
return mw.loadData(real_name)
end
 
--[[ ===============================================================================
Caricamente delle tabelle di configurazione del modulo.
===============================================================================]]
local cfg = mw.loadData( 'ModuloModule:Citazione/Configurazione');
--local cfg = load_configuration_table('Module:Citazione/Configurazione')
 
--[[ ===============================================================================
Lista di tutti i parametri riconosciuti.
===============================================================================]]
local whitelist = mw.loadData( 'ModuloModule:Citazione/Whitelist' );
--local whitelist = load_configuration_table('Module:Citazione/Whitelist')
 
--[[ ===============================================================================
Linée 453 ⟶ 468:
end
return table.concat({ "[", URL, " ", safe_for_url( label ), "]", error_str });
end
 
--[[ ===============================================================================
Aggiunta collegamenti multipli, per ora usati solo dal modulo Collegamenti esterni
===============================================================================]]
local function append_links(value, links)
if type(links) == 'table' then
for _, t in ipairs(links) do
t[2] = is_latin( t[2] ) and wrap( 'italic-title', t[2] ) or t[2]
value = value .. ' / ' .. external_link( t[1], t[2] )
end
end
return value
end
 
Linée 489 ⟶ 517:
if ( code == "A" ) then
return link_id({link=handler.link, label=handler.label,
pattern="[http[openlibrary://openlibrary.org/authors/OL$1 |$1]]",id=id, separator=handler.separator,
encode = handler.encode})
elseif ( code == "M" ) then
return link_id({link=handler.link, label=handler.label,
pattern="[http[openlibrary://openlibrary.org/books/OL$1 |$1]]",id=id, separator=handler.separator,
encode = handler.encode})
elseif ( code == "W" ) then
return link_id({link=handler.link, label=handler.label,
pattern= "[http[openlibrary://openlibrary.org/works/OL$1 |$1]]",id=id, separator=handler.separator,
encode = handler.encode})
else
return link_id({link=handler.link, label=handler.label,
pattern= "[http://[openlibrary.org/:OL$1 |$1]]",id=id, separator=handler.separator,
encode = handler.encode}) ..
' ' .. set_error( 'bad_ol' );
Linée 642 ⟶ 670:
 
--[[ ===============================================================================
RitornaRiconosce unale data e controlla se èdate nel formato ISO yyyy-mm-dd e le riformatta in questodmy. casoSi laassicura
che 01 e 1 siano resi come 1º qualora indichino il giorno.
riformatta come dd mmmm yyyy
===============================================================================]]
local function get_date(str)
if is_set(str) then
local _, _, try_year, try_month, try_day = string.findmatch(str, '^(%d%d%d%d)-(%d%d)-(%d%d)$')
if try_day then
local Month = cfg.months[tonumber(try_month)]
if Month then
iftry_day = try_day == "'01"' thenand try_day="'1°"º' endor tonumber(try_day)
return string.format("%s %s %s", try_day, Month, try_year )
end
end
try_day, try_month, try_year = string.match(str, '^(%d%d?) (%a+) (%d%d%d%d)$')
if try_day then
try_day = (try_day == '1' or try_day == '01') and '1º' or tonumber(try_day)
return string.format("%s %s %s", try_day, try_month, try_year)
end
end
Linée 672 ⟶ 705:
date = month .. " " .. year
if is_set(day) then
if day == "01" or day=="1" then day="1°º" end
date = day .. " " .. date
end
Linée 689 ⟶ 722:
local start = mw.ustring.sub(str, 1, 2)
if in_array( start, {'08', '8 ', '8-', '8/', '11'} ) then
return " l'"
elseif mw.ustring.find(str, '^pre ') then -- per i valori "pre x/x/x" inseriti da ArchiveBot
return ' in data '
end
return str ~= '' and " il " or ''
end
 
Linée 863 ⟶ 898:
===============================================================================]]
local function get_format(format, url)
if format:lower() == 'html' then
 
return ''
local try_format = format
ifelseif not is_set(try_formatformat) then
try_formatformat = mw.ustring.match(url, "^.*%.(.+)$" ) or ''
if not cfg.external_link_type[try_formatformat:lower()] then
try_formatformat = mw.ustring.match(try_formatformat, "^(.+)#.+$") or ''
if not cfg.external_link_type[try_formatformat:lower()] then
return ''
end
Linée 876 ⟶ 911:
 
-- Se il formato esterno è tra quelli previsti imita lo stile dei template {{PDF}} o {{doc}}
local f = cfg.external_link_type[try_formatformat:lower()]
if f then
return mw.ustring.format(' (<span style="font-weight: bolder; font-size:80%%"><abbr title="%s">%s</abbr></span>)', f.text, f.label)
else
table.insert( z.message_tail, { set_error('unknown_format', try_formatformat, true) } );
return mw.ustring.format(' (%s)', try_formatformat)
end
end
Linée 933 ⟶ 968:
local Illustrator = A['Illustrator'];
local Translator = A['Translator'];
local Institution = A['Institution'];
 
if is_set(OriginalTitle) and not is_set(TransTitle) then
TransTitle = TitleOriginalTitle
Title = OriginalTitle
end
 
Linée 954 ⟶ 989:
Position = PPPrefix .. Position
elseif PositionOrigin ~= "posizione" then
iftable.insert( configz.CitationClasserror_categories, =='Voci "libro"con andmodulo citazione e parametro ' .. PositionOrigin=="pagine" then)
if tonumber(Position)PositionOrigin == "pagine" then
if config.CitationClass == "libro" then
Position = PPrefix .. Position
elseif if string.findtonumber(Position, '^%d') then
Position = PPPrefixPPrefix .. Position
elseif string.find(Position, '^%d') then
end
Position = PPPrefix .. Position
elseif (config.CitationClass=="conferenza" or config.CitationClass== "pubblicazione") and PositionOrigin=="pagine" then
end
if tonumber(Position) then
elseif config.CitationClass=="conferenza" or config.CitationClass== "pubblicazione" then
Position = PPrefix .. Position
Position = (tonumber(Position) and PPrefix or PPPrefix) .. Position
else
Position = PPPrefix .. Position
end
elseif PositionOrigin == "pagina" then
Linée 1 038 ⟶ 1 072:
end
else
-- formatta Volume e Issue considerando numeri anche le stringhe del tipo n-n o n/n
if is_set(Volume) then
if tonumber(Volume:gsub('[-/]', ''), 10) or A:ORIGIN('Volume') == "vol" then
Volume = "vol.&nbsp;" .. Volume
end
end
if is_set(Issue) then
if tonumber(Issue:gsub('[-/]', ''), 10) then
Issue = "nº.&nbsp;" .. Issue
end
end
Linée 1 056 ⟶ 1 091:
local Via = A['Via'];
-- local Agency = A['Agency'];
local DeadURL = A['DeadURL'];
local Language = A['Language'];
local Format = A['Format'];
Linée 1 067 ⟶ 1 102:
local sepc = Style.sep
local sepcspace = sepc .. " "
local PostScript = first_set(A['PostScript'], Style['postscript']);
local no_tracking_cats = A['NoTracking'];
local use_lowercase = ( sepc ~= '.' );
Linée 1 074 ⟶ 1 109:
local ID_list = extract_ids( args );
if ( isPubblicazione ) then
if not is_set(URL) and not is_set(ID_list['PMC']TitleLink) then
if is_set(ID_list['PMC']) then
local Embargo = A['Embargo'];
if local is_set(Embargo) then= A['Embargo'];
if is_set(Embargo) then
local lang = mw.getContentLanguage();
local good1,lang result1,= good2, result2mw.getContentLanguage();
local good1, result1, good2, result2;
good1, result1 = pcall( lang.formatDate, lang, 'U', Embargo );
good2, result2 = pcall( lang.formatDate, lang, 'U' );
 
if good1 and good2 and tonumber( result1 ) < tonumber( result2 ) then
URL = "httphttps://www.ncbi.nlm.nih.gov/pmc/articles/PMC" .. ID_list['PMC'];
URLorigin = cfg.id_handlers['PMC'].parameters[1];
end
else
URL = "https://www.ncbi.nlm.nih.gov/pmc/articles/PMC" .. ID_list['PMC'];
URLorigin = cfg.id_handlers['PMC'].parameters[1];
end
elseif is_set(ID_list['DOI']) then
else
URL = "httphttps://wwwoadoi.ncbi.nlm.nih.gov/pmc/articlesorg/PMC" .. ID_list['PMCDOI'];
URLorigin = cfg.id_handlers['PMCDOI'].parameters[1];
end
end
Linée 1 109 ⟶ 1 149:
TransTitle = '';
Series = '';
end
 
------------------------------------------------------------------------------
-- Se url è in realtà un url archiviato, lo tratta come tale
-- (per ora riconosce solo Internet Archive)
------------------------------------------------------------------------------
local formatoIA = '^https?://web%.archive%.org/w?e?b?/?%d+/'
if is_set(URL) and is_set(Title) and URL:match(formatoIA) and not is_set(ArchiveURL) then
ArchiveURL = URL
URL = URL:gsub(formatoIA,'')
if not URL:match('://') then
URL = 'http://' .. URL
end
end
 
Linée 1 115 ⟶ 1 168:
------------------------------------------------------------------------------
local auto_Periodical = false
if in_array(config.CitationClass, == "{'web"'}) and not is_set(Periodical) and not is_set(PublisherName) and is_set(URL) then
Periodical = mw.ustring.match(URL, "//([^/#%?]*)") or ''
-- tolgo anche eventuale www.
Linée 1 127 ⟶ 1 180:
auto_Periodical = true
end
------------------------------------------------------------------------------
-- Per cambiare posizione a collane o serie di libri nella citazione,
-- rispetto a nomi di rivistaed evitare di precederle con un "in"
-- TODO per il momento commentato (da rivedere per chiarire collana/opera)
------------------------------------------------------------------------------
-- local Book_series = ''
-- if is_set(Periodical) and (A:ORIGIN('Periodical') == "opera" or A:ORIGIN('Periodical') == "collana") then
-- Book_series = "collana " .. wrap( 'italic-title', Periodical );
-- Periodical = '';
-- end
 
------------------------------------------------------------------------------
Linée 1 139 ⟶ 1 202:
TitleLink = '';
TransTitle = '';
end
 
---------------------------------------------------------------
-- Compone la stringa del linguaggio
---------------------------------------------------------------
local Language_code = ""
local first_language = ""
if is_set(Language) then
if Language:sub(1,1) == "(" then
Language_code = Language
else
local frame_lingue = {return_error='true'}
for lingua in mw.text.gsplit(Language, ',', true) do
lingua = mw.text.trim(lingua)
if lingua ~= '' then
frame_lingue[#frame_lingue+1] = lingua
end
end
if #frame_lingue > 1 or (#frame_lingue==1 and frame_lingue[1]:lower()~="it" and frame_lingue[1]:lower()~="it-it") then
first_language = frame_lingue[1]:lower();
local lg_error;
Language_code, lg_error = require("Modulo:Linguaggi").lingue(frame_lingue)
if lg_error and #lg_error > 0 then
local error_string = mw.text.listToText(lg_error, ", ", " e " )
table.insert( z.message_tail, { set_error('unknown_language', {error_string}, true) } );
end
end
end
end
if is_set(Edition) then
if A:ORIGIN('Edition') == "ed" or tonumber(Edition) then
Edition = Edition .. "ª&nbsp;ed."
end
end
 
------------------------------------------------------------------------------
-- Aggiunge il wikilink a Wikisource
------------------------------------------------------------------------------
if is_set(A['Source']) and not in_array(config.CitationClass, { "web", "video", "tv", "audio" } ) then
local source = A['Source']
-- se s=1 usa lo stesso valore di titolo/capitolo
if source == "1" then
source = Title .. (is_set(Chapter) and ("/" .. Chapter) or "")
end
source = "s:" .. (is_set(first_language) and (first_language .. ":") or "") .. source
if is_set(Chapter) then ChapterLink = source
else TitleLink = source end
end
 
Linée 1 156 ⟶ 1 266:
-- If the coauthor field is also used, prevent adding ''et al.''
if is_set(Coauthors) then
table.insert( z.error_categories, 'Voci con modulo citazione e parametro ' .. A:ORIGIN('Coauthors') )
control.coauthors = true
elseif is_set(Etal) then
Linée 1 236 ⟶ 1 347:
not is_set(ArchiveURL) and
not is_set(ConferenceURL) then
-- TestControlla ifse citeCita web isviene calledchiamato without giving asenza URL
if in_array( config.CitationClass, == "{'web" '}) then
table.insert( z.message_tail, { set_error( 'cite_web_url', {}, true ) } );
end
Linée 1 328 ⟶ 1 439:
end
elseif is_set(URL) then
Chapter = external_link( URL, Chapter ) .. TransError .. Format;
Chapter = append_links(Chapter, args.altrilink)
Chapter = Chapter .. Format;
URL = "";
Format = "";
Linée 1 357 ⟶ 1 470:
Title = "[[" .. TitleLink .. "|" .. Title .. "]]"
elseif is_set(URL) then
Title = external_link( URL, Title ) .. TransError .. Format
Title = append_links(Title, args.altrilink)
Title = Title .. Format
URL = "";
Format = "";
Linée 1 374 ⟶ 1 489:
elseif is_set(ConferenceURL) then
Conference = external_link( ConferenceURL, nil, ConferenceURLorigin );
end
 
---------------------------------------------------------------
-- Compone la stringa del linguaggio
---------------------------------------------------------------
local Language_code = ""
if is_set(Language) then
if Language:sub(1,1) == "(" then
Language_code = Language
else
local frame_lingue = {return_error='true', usacodice='sì'}
for lingua in mw.ustring.gmatch(Language, "%S+") do
frame_lingue[#frame_lingue+1] = lingua
end
if #frame_lingue > 1 or (#frame_lingue==1 and frame_lingue[1]:lower()~="it") then
local lg_error
Language_code, lg_error = require("Modulo:Linguaggi").lingue(frame_lingue)
if lg_error and #lg_error > 0 then
local error_string = mw.text.listToText(lg_error, ", ", " e " )
table.insert( z.message_tail, { set_error('unknown_language', {error_string}, true) } );
end
end
end
end
 
if is_set(Edition) then
if A:ORIGIN('Edition') == "ed" or tonumber(Edition) then
Edition = Edition .. "ª&nbsp;ed."
end
end
 
Linée 1 435 ⟶ 1 521:
local Archived
if is_set(ArchiveURL) then
local decodeArchiveDate = require('Modulo:Webarchive').decodeArchiveDate
local ArchiveURLDate = decodeArchiveDate(ArchiveURL)
local ArchiveError, ArchiveOutput = ''
if not is_set(ArchiveDate) then
ArchiveDate = set_error(ArchiveURLDate or 'archive_missing_date');
if not ArchiveURLDate then
ArchiveError = set_error('archive_missing_date', {}, false, ' ')
end
elseif ArchiveURLDate and ArchiveURLDate ~= ArchiveDate then
ArchiveError = set_error('date_mismatch', {ArchiveURLDate}, false, ' ')
end
ArchiveOutput = ArchiveDate .. ArchiveError
ArchiveURL2 = A['ArchiveURL2']
local ArchiveURL2 = A['ArchiveURL2']
local ArchiveDate2 = get_date(A['ArchiveDate2'])
if is_set(ArchiveURL2) then
local ArchiveURLDate2 = decodeArchiveDate(ArchiveURL2)
ArchiveDate2 = A['ArchiveDate2']
local ArchiveError2, ArchiveOutput2 = ''
if not is_set(ArchiveDate2) then
ArchiveDate2 = set_error(ArchiveURLDate2 or 'archive_missing_date2');
if not ArchiveURLDate2 then
ArchiveError2 = set_error('archive_missing_date2', {}, false, ' ')
end
elseif ArchiveURLDate2 and ArchiveURLDate2 ~= ArchiveDate2 then
ArchiveError2 = set_error('date2_mismatch', {ArchiveURLDate2}, false, ' ')
end
ArchiveOutput2 = ArchiveDate2 .. ArchiveError2
ArchiveURL2 = substitute(cfg.messages['archived-second-copy'],
{ external_link( ArchiveURL2, cfg.messages['archived2']), ArchiveOutput2, article_date(ArchiveDate2) } );
end
if not DeadURL then
Archived = substitute( cfg.messages['archived-not-dead'],
{ external_link( ArchiveURL, cfg.messages['archived'] ), ArchiveDateArchiveOutput, article_date(ArchiveDate), ArchiveURL2} );
if not is_set(OriginalURL) then
Archived = Archived .. " " .. set_error('archive_missing_url', {}, false, ' ');
end
elseif is_set(OriginalURL) then
Archived = substitute( cfg.messages['archived-dead'],
{ OriginalURL, ArchiveDateArchiveOutput, article_date(ArchiveDate), ArchiveURL2 } );
else
Archived = substitute( cfg.messages['archived-missing'],
{ set_error('archive_missing_url'), ArchiveDateArchiveOutput, article_date(ArchiveDate), ArchiveURL2 } );
end
if is_set(ArchiveURL2) then
Archived = Archived .. ". " .. substitute(cfg.messages['archived-second-copy'],
{ external_link( ArchiveURL2, cfg.messages['archived2']), ArchiveDate2, article_date(ArchiveDate2) } );
end
else
Linée 1 484 ⟶ 1 585:
-- Several of the above rely upon detecting this as nil, so do it last.
if is_set(Periodical) then Periodical = wrap( 'italic-title', Periodical ) end
if config.CitationClass=="news" and is_set(Place) then
if is_set(Periodical) then
Periodical = table.concat({Periodical, ' (', Place, ')'})
Place = ""
elseif is_set(Title) then
Title = table.concat({Title, ' (', Place, ')'})
Place = ""
end
end
 
-- set translator / illustrator
Linée 1 551 ⟶ 1 643:
end
end
fragment_citation:appends( { Conference, Periodical, Translator, Illustrator, Others, Series, -- Book_series,
Volume, Issue, Edition, Institution, Place, PublisherName, Station, Date, Position } )
local fragment_ID_list = Fragment.new(ID_list, sepc):append(ID):start(",")
local fragment_URL = Fragment.new(URL):start(",")
local fragment_AccessInfofragment_AccessDate = Fragment.new({AccessDate, Via, Archived}, " "):start("'."')
local fragment_Archived = Fragment.new(Archived):start(' ')
local fragment_Via = Fragment.new(Via):start(".")
local fragment_Quote = Fragment.new({Quote}):start(".")
fragment_citation:appends({fragment_ID_list, fragment_URL, fragment_AccessInfofragment_AccessDate, fragment_Archived, fragment_Via, fragment_Quote})
if PostScript == 'nessuno' then
fragment_citation:last("nothing")
Linée 1 565 ⟶ 1 659:
fragment_citation:start(" ")
local text = Language_code .. tostring(fragment_citation)
-- aggiungo l'icona per cita video/audio
if config.CitationClass == "video" then text = cfg.messages['icon_video'] .. ' ' .. text end
if config.CitationClass == "audio" then text = cfg.messages['icon_audio'] .. ' ' .. text end
 
-- Now enclose the whole thing in a <span/> element
Linée 1 673 ⟶ 1 767:
else
if #suggestions == 0 then
suggestions = mw.loadData( 'Modulo:Citazione/Suggerimenti' );
--suggestions = load_configuration_table( 'Modulo:Citazione/Suggerimenti');
end
if suggestions[ k:lower() ] ~= nil then
Linée 1 700 ⟶ 1 795:
end
 
-- Funzione per generare direttamente una citazione web da un altro modulo
function z.citawebcita_da_modulo(classe, args)
-- mi assicuro che le code messaggi di errore siano vuote per evitare problemi in caso
return citation0( {CitationClass = 'web'}, args )
-- per citazioni multiple dall'interno dello stesso modulo
z.error_categories = {}; -- lista delle categorie di errore
z.error_ids = {}; -- lista dei codici di errore
z.message_tail = {}; -- messaggi di errore da visualizzare in coda alla citazione
return citation0( {CitationClass = classe}, args )
end
 
Pigghjete da "https://roa-tara.wikipedia.org/wiki/Modulo:Citazione"