Module:Citation/CS1/COinS: Difference between revisions

Module:Citation/CS1/COinS (edit)

Revision as of 11:05, 3 September 2019

1,550 bytes removed , 5 years ago

sync from sandbox;

Anonymous user

wikipedia>Trappist the monk

@@ Line 3: / Line 3: @@
 ]]
-local is_set, in_array, remove_wiki_link;										-- functions in Module:Citation/CS1/Utilities
+local is_set, in_array, remove_wiki_link, strip_apostrophe_markup;				-- functions in Module:Citation/CS1/Utilities
 local cfg;																		-- table of configuration tables that are defined in Module:Citation/CS1/Configuration
---[[--------------------------< S T R I P _ A P O S T R O P H E _ M A R K U P >--------------------------------
-Strip wiki italic and bold markup from argument so that it doesn't contaminate COinS metadata.
-This function strips common patterns of apostrophe markup.  We presume that editors who have taken the time to
-markup a title have, as a result, provided valid markup. When they don't, some single apostrophes are left behind.
-]]
-local function strip_apostrophe_markup (argument)
-	if not is_set (argument) then return argument; end
-	if argument:find ( "''", 1, true ) == nil then								-- Is there at least one double apostrophe?  If not, exit.
-		return argument;
-	end
-	while true do
-		if argument:find ( "'''''", 1, true ) then								-- bold italic (5)
-			argument=argument:gsub("%'%'%'%'%'", "");							-- remove all instances of it
-		elseif argument:find ( "''''", 1, true ) then							-- italic start and end without content (4)
-			argument=argument:gsub("%'%'%'%'", "");
-		elseif argument:find ( "'''", 1, true ) then							-- bold (3)
-			argument=argument:gsub("%'%'%'", "");
-		elseif argument:find ( "''", 1, true ) then								-- italic (2)
-			argument=argument:gsub("%'%'", "");
-		else
-			break;
-		end
-	end
-	return argument;															-- done
-end
@@ Line 212: / Line 180: @@
 	});
-	if in_array (class, {'arxiv', 'biorxiv', 'citeseerx', 'journal', 'news', 'magazine'}) or (in_array (class, {'conference', 'interview', 'map', 'press release', 'web'}) and is_set(data.Periodical)) or
+	if in_array (class, {'arxiv', 'biorxiv', 'citeseerx', 'ssrn', 'journal', 'news', 'magazine'}) or (in_array (class, {'conference', 'interview', 'map', 'press release', 'web'}) and is_set(data.Periodical)) or
 		('citation' == class and is_set(data.Periodical) and not is_set (data.Encyclopedia)) then
 			OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:journal";			-- journal metadata identifier
-			if in_array (class, {'arxiv', 'biorxiv', 'citeseerx'}) then			-- set genre according to the type of citation template we are rendering
+			if in_array (class, {'arxiv', 'biorxiv', 'citeseerx', 'ssrn'}) then	-- set genre according to the type of citation template we are rendering
-				OCinSoutput["rft.genre"] = "preprint";							-- cite arxiv, cite biorxiv, cite citeseerx
+				OCinSoutput["rft.genre"] = "preprint";							-- cite arxiv, cite biorxiv, cite citeseerx, cite ssrn
 			elseif 'conference' == class then
 				OCinSoutput["rft.genre"] = "conference";						-- cite conference (when Periodical set)
@@ Line 283: / Line 251: @@
 	end
---[[
-	for k, v in pairs( data.ID_list ) do										-- what to do about these? For now assume that they are common to all?
-		local id, value = cfg.id_handlers[k].COinS;
-		if k == 'ISBN' then value = clean_isbn( v ); else value = v; end
-		if string.sub( id or "", 1, 4 ) == 'info' then
-			OCinSoutput["rft_id"] = table.concat{ id, "/", v };
-		else
-			OCinSoutput[ id ] = value;
-		end
-	end
-]]
 	local last, first;
 	for k, v in ipairs( data.Authors ) do
@@ Line 333: / Line 290: @@
 	cfg = cfg_table_ptr;
-	is_set = utilities_page_ptr.is_set;											-- import functions from select Module:Citation/CS1/Utilities module
+	is_set = utilities_page_ptr.is_set;											-- import functions from selected Module:Citation/CS1/Utilities module
 	in_array = utilities_page_ptr.in_array;
 	remove_wiki_link = utilities_page_ptr.remove_wiki_link;
+	strip_apostrophe_markup = utilities_page_ptr.strip_apostrophe_markup;
 end