Module:Citation/CS1: Difference between revisions

function hiddencomment( content )

end

end

function createTag(t, frame)

     local name = t.name or "!-- --"

--[[

This is a clone of mw.text.nowiki.  When the mw.text library is installed,

function nowiki( s )

     -- string.gsub is safe here, because we're only caring about ASCII chars

end

function externallinkid(args)

     local sep = args.separator or " "

     end

      

end

function internallinkid(args)

     local sep = args.separator or " "

     args.suffix = args.suffix or ""

end

function amazon(id, domain)

     if ( nil == domain ) then  

end

function doi(id, inactive)

     local cat = ""

      

     local text;

     if ( inactive ~= nil ) then  

         text = "[[Digital object identifier|doi]]:" .. id;

         inactive = " (inactive " .. inactive .. ")"  

     else  

     end

     if ( string.sub(id,1,3) ~= "10." ) then

         cat = ' <span class="error">Bad DOI (expected "10." prefix) in code number</span>'

     end

  end

function safeforurl( str )

     return str:gsub( '[%[%]\n]', {     

end

function hyphentodash( str )

     if str == nil then

end

function safeforitalics( str )

     --[[ Note: We can not use <i> for italics, as the expected behavior for

end

function safejoin( tbl, duplicate_char )

     --[[

end   

function selectyear( str )

     local lang = mw.getContentLanguage();

end

function openlibrary(id)

     local code = id:sub(-1,-1)

     if ( code == "A" ) then

     elseif ( code == "M" ) then

     elseif ( code == "W" ) then

     else

     end

end

function reducetoinitials(first)

     local initials = {}

end

function listpeople(control, people)

     local sep = control.sep;

end

function anchorid(args)

     local P1 = args[1] or ""

end

function extractauthors(args)

     local authors = {};

end

function extracteditors(args)

     local editors = {};

      

     while true do

         if ( last and "" < last ) then -- just in case someone passed in an empty parameter

             editors[i] = {

end

function citation0( config, args)

     local PPrefix = config.PPrefix or "p.&nbsp;"

     local PPPrefix = config.PPPrefix or "pp.&nbsp;"

     end

      

     local Edition = args.edition

     local PublicationPlace = args["publication-place"] or args.publicationplace or args.place or args.location

     local ArchiveDate = args["archive-date"] or args.archivedate

     local Agency = args.agency

     local Language = args.language or args["in"]

     local Format = args.format

     local Transcript = args.transcript

     local TranscriptURL = args["transcript-url"] or args.transcripturl

     if ( config.CitationClass == "journal" ) then

         if ( Ref == nil ) then Ref = "harv" end

     end

     -- At this point fields may be nil if they weren't specified in the template use.  We can use that fact.

         OCinStitle = OCinStitle .. "&" .. name .. "=" .. mw.uri.encode(value)

     end

     OCinStitle = OCinStitle .. "&rfr_id=info:sid/en.wikipedia.org:"

     -- Now perform various field substitutions.

     -- Captures the value for Date prior to adding parens or other textual transformations

     local DateIn = Date

     if ( config.CitationClass == "web" ) then

         if ( URL == nil or URL == '' ) and

                 ( ConferenceURL == nil or ConferenceURL == '' ) and                 

                 ( TranscriptURL == nil or TranscriptURL == '' ) then

             if Title == nil or Title == "" then  

                 Authors = Authors .. hiddencomment("No URL on cite web here");  

     end     

     if ( Chapter == nil or Chapter == "" ) and  

             ( Title == nil or Title == "" ) and

             ( Periodical == nil or Periodical == "" ) and

             ( Conference == nil or Conference == "" ) then

         Authors = Authors .. hiddencomment("No citation title here");

     end

         BIBCODE = sepc .. " " .. externallinkid({label="Bibcode",link="Bibcode",prefix="http://adsabs.harvard.edu/abs/",id=BIBCODE,separator=":"}) else BIBCODE = "" end

     if ( DOI ~= nil and DOI ~= "" ) then

     if ( ID ~= nil and ID ~="") then ID = sepc .." ".. ID else ID="" end

     if ( ISBN ~= nil and ISBN ~= "") then

         OCLC = sepc .." " .. externallinkid({label="OCLC",link="OCLC",prefix="//www.worldcat.org/oclc/",id=OCLC}) else OCLC = "" end

     if ( OL ~= nil and OL ~="") then

     if ( OSTI ~= nil and OSTI ~="") then

         OSTI = sepc .." " .. externallinkid({label="OSTI",link="Office of Scientific and Technical Information",prefix="http://www.osti.gov/energycitations/product.biblio.jsp?osti_id=",id=OSTI}) else OSTI = "" end

         SSRN = sepc .." " .. externallinkid({label="SSRN",link="Social Science Research Network",prefix="http://ssrn.com/abstract=",id=SSRN}) else SSRN = "" end

     if ( URL ~= nil and URL ~="") then

       if config.CitationClass == "web" then

           URL = URL .. " <span class='error'>No <code>title=</code> specified</span>"

         else  

             ArchiveDate = " <span class='error'>If you specify <code>archiveurl=</code>, you must also specify <code>archivedate=</code></span> "

         end

         local arch_text = " archived"

                 Archived = sepc .. arch_text .. " from <span class='error'>If you specify <code>archiveurl=</code>" ..

                     ", you must also specify <code>url=</code></span> on" .. ArchiveDate

             end                 

         end

     local tcommon

         tcommon = safejoin( {Others, Title, TitleNote, Format, TitleType, Conference, Periodical, Series, Language, Edition, Publisher, Agency, Volume, Issue, Position}, sepc );

     elseif ( config.CitationClass == "citation" ) or (config.CitationClass == "encyclopaedia" ) then

         tcommon = safejoin( {Title, TitleNote, Series, Format, TitleType, Conference, Periodical, Language, Volume, Issue, Others, Edition, Publisher, Agency, Position}, sepc );

     end

     local idcommon = safejoin( { ARXIV, ASIN, BIBCODE, DOI, ISBN, ISSN, JFM, JSTOR, LCCN, MR, OCLC, OL, OSTI, PMC, PMID, RFC, SSRN, URL, ZBL, ID, Archived, AccessDate, Via, SubscriptionRequired, Lay, Quote, PostScript }, sepc );

     local pgtext = Page .. Pages .. At

     if page_error then

         pgtext = pgtext .. hiddencomment('Bad page specification here');

     end

      

     if string.len(text:gsub("<span[^>/]*>.-</span>", ""):gsub("%b<>","")) <= 2 then

         text = '<span class="error">Citation is empty</span>';

     end

     text = text .. OCinS;

      

     end

      

--20Mar2013 If CitationClass is journal, show "others=" before title.

--20Mar2013 If CitationClass is book, show "others=" before edition.

--

--End