Module:Naval Vessel Register URL - Revision history

WOSlinker: use require('strict') instead of require('Module:No globals')

2022-10-21T19:46:55Z

use require('strict') instead of require('Module:No globals')

← Previous revision		Revision as of 19:46, 21 October 2022
Line 12:		Line 12:
	]]		]]

	require('~~Module:No globals~~')		require('strict')
	local p = {}		local p = {}

Pppery: Post-move cleanup

2020-10-22T19:49:47Z

Post-move cleanup

← Previous revision		Revision as of 19:49, 22 October 2020
Line 2:		Line 2:

	This module generates links to ships in the Naval Vessel Register (nvr.navy.mil) database.		This module generates links to ships in the Naval Vessel Register (nvr.navy.mil) database.
	It is used by Template:~~NVR_url~~ and Template:~~NVR_SC_url~~		It is used by Template:Naval Vessel Register URL and Template:Naval Vessel Register service craft URL

	Please do not modify this code without applying the changes first at Module:~~NVR~~/sandbox and testing		Please do not modify this code without applying the changes first at Module:Naval Vessel Register URL/sandbox and testing
	at Module:~~NVR~~/sandbox/testcases and Module talk:~~NVR~~/sandbox/testcases.		at Module:Naval Vessel Register URL/sandbox/testcases and Module talk:Naval Vessel Register URL/sandbox/testcases.

	Authors and maintainers:		Authors and maintainers:
Line 21:		Line 21:
	local srv_craft_data = {};		local srv_craft_data = {};

	local data = mw.loadData ('Module:~~NVR~~/data');		local data = mw.loadData ('Module:Naval Vessel Register URL/data');
	ships_data = data.nvr_ships_id;		ships_data = data.nvr_ships_id;
	srv_craft_data = data.nvr_srv_craft_id;		srv_craft_data = data.nvr_srv_craft_id;
Line 44:		Line 44:
	table.insert (output, suffix);		table.insert (output, suffix);
	if srv_craft then		if srv_craft then
	table.insert (output, ' ([[Template:~~NVR~~ SC ~~url~~#Error messages\|help]])</span>');		table.insert (output, ' ([[Template:Naval Vessel Register service craft URL#Error messages\|help]])</span>');
	else		else
	table.insert (output, ' ([[Template:~~NVR~~ url#Error messages\|help]])</span>');		table.insert (output, ' ([[Template:Naval Vessel Register url#Error messages\|help]])</span>');
	end		end
	table.insert (output, category);		table.insert (output, category);
Line 58:		Line 58:

	Usage:		Usage:
	{{#invoke:~~NVR~~\|MakeShipLink\|1=\|title=}}		{{#invoke:Naval Vessel Register URL\|MakeShipLink\|1=\|title=}}
	{{#invoke:~~NVR~~\|MakeShipLink}} - uses the caller's parameters		{{#invoke:Naval Vessel Register URL\|MakeShipLink}} - uses the caller's parameters

	Parameters		Parameters
Line 108:		Line 108:

	if not ships_data[hull_prefix] then -- is there a group for the hull number?		if not ships_data[hull_prefix] then -- is there a group for the hull number?
	make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in [[Module:~~NVR~~/data]] nvr_ships_id');		make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in [[Module:Naval Vessel Register URL/data]] nvr_ships_id');
	return table.concat (output);		return table.concat (output);
	end		end

	if not ships_data[hull_prefix][hull] then -- is there a hull number		if not ships_data[hull_prefix][hull] then -- is there a hull number
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in [[Module:~~NVR~~/data]] nvr_ships_id');		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in [[Module:Naval Vessel Register URL/data]] nvr_ships_id');
	return table.concat (output);		return table.concat (output);
	end		end
Line 145:		Line 145:

	else -- no identifier		else -- no identifier
	make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in [[Module:~~NVR~~/data]] nvr_ships_id');		make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in [[Module:Naval Vessel Register URL/data]] nvr_ships_id');
	end		end

Line 157:		Line 157:

	Usage:		Usage:
	{{#invoke:~~NVR~~\|MakeServiceCraftLink\|1=\|title=}}		{{#invoke:Naval Vessel Register URL\|MakeServiceCraftLink\|1=\|title=}}
	{{#invoke:~~NVR~~\|MakeServiceCraftLink}} - uses the caller's parameters		{{#invoke:Naval Vessel Register URL\|MakeServiceCraftLink}} - uses the caller's parameters

	Parameters		Parameters
Line 201:		Line 201:

	if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?		if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?
	make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in [[Module:~~NVR~~/data]] nvr_srv_craft_id', true);		make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in [[Module:Naval Vessel Register URL/data]] nvr_srv_craft_id', true);
	return table.concat (output);		return table.concat (output);
	end		end

	if not srv_craft_data[hull_prefix][hull] then -- is there a hull number		if not srv_craft_data[hull_prefix][hull] then -- is there a hull number
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in [[Module:~~NVR~~/data]] nvr_srv_craft_id', true);		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in [[Module:Naval Vessel Register URL/data]] nvr_srv_craft_id', true);
	return table.concat (output);		return table.concat (output);
	end		end
Line 225:		Line 225:
	end		end
	else -- no identifier		else -- no identifier
	make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in [[Module:~~NVR~~/data]] nvr_srv_craft_id', true);		make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in [[Module:Naval Vessel Register URL/data]] nvr_srv_craft_id', true);
	end		end

Pppery: Pppery moved page Module:NVR to Module:Naval Vessel Register URL without leaving a redirect: Per requested move

2020-10-22T19:46:29Z

Pppery moved page Module:NVR to Module:Naval Vessel Register URL without leaving a redirect: Per requested move

← Previous revision	Revision as of 19:46, 22 October 2020
(No difference)

Trappist the monk at 13:59, 29 March 2019

2019-03-29T13:59:38Z

← Previous revision		Revision as of 13:59, 29 March 2019
Line 118:		Line 118:

	local nvr_id = ships_data[hull_prefix][hull][1]; -- try to fetch nvr id		local nvr_id = ships_data[hull_prefix][hull][1]; -- try to fetch nvr id
	if not title and args['name'] then		if not title and (args['name'] and '' ~= args['name']) then
	title = ships_data[hull_prefix][hull][2];		title = ships_data[hull_prefix][hull][2];
	if not title or '' == title then		if not title or '' == title then

Trappist the monk: |name= experiment;

2019-03-29T13:27:12Z

|name= experiment;

← Previous revision		Revision as of 13:27, 29 March 2019
Line 79:		Line 79:

	local hull = args["id"] or args[1] or '';		local hull = args["id"] or args[1] or '';
			local hull_designator; -- for use with \|name= parameter rendering
	local hull_prefix;		local hull_prefix;
	local title = args["title"] or args[2] or '';		local title = args["title"] or args[2] or '';
Line 88:		Line 89:
	hull = mw.text.trim (hull):upper(); -- make sure that there is no leading/trailing whitespace and uppercase		hull = mw.text.trim (hull):upper(); -- make sure that there is no leading/trailing whitespace and uppercase
	-- standardize so that we can recognize as many formats as possible		-- standardize so that we can recognize as many formats as possible
			hull_designator = hull:match ('^T%-') or ''; -- if there is a 'T-' prefix to the prefix, save a copy of it; empty string for concatenation else
			--error (hull_designator)
	hull = hull:gsub ('^T%-', ''); -- if hull classification symbol is T-XX-NNN, remove the 'T-'		hull = hull:gsub ('^T%-', ''); -- if hull classification symbol is T-XX-NNN, remove the 'T-'
	hull = hull:gsub ('(%a+)_(%d+)_%d+', '%1-%2'); -- if template has 'new' url identifier format (SSBN_659_1635)		hull = hull:gsub ('(%a+)_(%d+)_%d+', '%1-%2'); -- if template has 'new' url identifier format (SSBN_659_1635); as of March 2019 this form not used at NVR
	hull = hull:gsub ('(%a+)[_ ]?(%d+)', '%1-%2'); -- if template has SSBN 659 or SSBN_659 or SSBN659 format		hull = hull:gsub ('(%a+)[_ ]?(%d+)', '%1-%2'); -- if template has SSBN 659 or SSBN_659 or SSBN659 format
			hull_designator = hull_designator .. hull; -- copy for use with \|name= parameter

	if hull:match ('(%a+)%-%d+') then -- most common case		if hull:match ('(%a+)%-%d+') then -- most common case
Line 114:		Line 118:

	local nvr_id = ships_data[hull_prefix][hull][1]; -- try to fetch nvr id		local nvr_id = ships_data[hull_prefix][hull][1]; -- try to fetch nvr id
			if not title and args['name'] then
			title = ships_data[hull_prefix][hull][2];
			if not title or '' == title then
			title = nil; -- ensure
			elseif 'no name' == title:lower() then -- new construction capital ships, and many service craft
			title = title .. ' (' .. hull_designator .. ')';
			elseif 'nh' == args['name'] then -- special keyword to render name and hull designator
			title = '\'\'' .. ships_data[hull_prefix][hull][2] .. '\'\' (' .. hull_designator .. ')';
			else
			title = '\'\'' .. ships_data[hull_prefix][hull][2] .. '\'\''; -- just the name
			end
			end

	if (nil ~= nvr_id) and ('' ~= nvr_id) then -- there appears to be an identifier, so use it		if (nil ~= nvr_id) and ('' ~= nvr_id) then -- there appears to be an identifier, so use it

MusikAnimal: Protected "Module:NVR": High-risk Lua module; 1,000+ transclusions ([Edit=Require autoconfirmed or confirmed access] (indefinite))

2017-10-10T17:47:29Z

Protected "Module:NVR": High-risk Lua module; 1,000+ transclusions ([Edit=Require autoconfirmed or confirmed access] (indefinite))

← Previous revision	Revision as of 17:47, 10 October 2017
(No difference)

Trappist the monk: link to correct template;

2017-09-09T09:58:23Z

link to correct template;

← Previous revision		Revision as of 09:58, 9 September 2017
Line 32:		Line 32:
	]]		]]

	local function make_error_message (output, prefix, item, suffix)		local function make_error_message (output, prefix, item, suffix, srv_craft)
	local category = ''; -- for concatenation		local category = ''; -- for concatenation

Line 43:		Line 43:
	table.insert (output, item);		table.insert (output, item);
	table.insert (output, suffix);		table.insert (output, suffix);
			if srv_craft then
⚫	table.insert (output, ' ([[Template:NVR url#Error messages\|help]])</span>');
			table.insert (output, ' ([[Template:NVR SC url#Error messages\|help]])</span>');
			else
		⚫	table.insert (output, ' ([[Template:NVR url#Error messages\|help]])</span>');
			end
	table.insert (output, category);		table.insert (output, category);
	return		return
Line 153:		Line 157:
	args = frame:getParent().args;		args = frame:getParent().args;
	if (args[1]==nil) and (args["id"]==nil) then		if (args[1]==nil) and (args["id"]==nil) then
	make_error_message (output, 'required parameter missing', '', '');		make_error_message (output, 'required parameter missing', '', '', true);
	return table.concat (output);		return table.concat (output);
	end		end
Line 176:		Line 180:
	hull_prefix = hull:match ('(%a+)%-%d+%a'); -- each section has a single letter designator: AFDB-7F		hull_prefix = hull:match ('(%a+)%-%d+%a'); -- each section has a single letter designator: AFDB-7F
	else		else
	make_error_message (output, 'malformed hull classification symbol: ', hull, '');		make_error_message (output, 'malformed hull classification symbol: ', hull, '', true);
	return table.concat (output);		return table.concat (output);
	end		end

	if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?		if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?
	make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in [[Module:NVR/data]] nvr_srv_craft_id');		make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in [[Module:NVR/data]] nvr_srv_craft_id', true);
	return table.concat (output);		return table.concat (output);
	end		end

	if not srv_craft_data[hull_prefix][hull] then -- is there a hull number		if not srv_craft_data[hull_prefix][hull] then -- is there a hull number
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in [[Module:NVR/data]] nvr_srv_craft_id');		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in [[Module:NVR/data]] nvr_srv_craft_id', true);
	return table.concat (output);		return table.concat (output);
	end		end
Line 205:		Line 209:
	end		end
	else -- no identifier		else -- no identifier
	make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in [[Module:NVR/data]] nvr_srv_craft_id');		make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in [[Module:NVR/data]] nvr_srv_craft_id', true);
	end		end

Trappist the monk: synch from sandbox;

2017-09-05T09:49:10Z

synch from sandbox;

Show changes

RP88: fix comment

2016-10-04T02:06:15Z

fix comment

← Previous revision		Revision as of 02:06, 4 October 2016
Line 187:		Line 187:

	Parameters		Parameters
	nvrid: The 'file name' portion of the url path (typically the ~~crafts~~'s hull designation) without the .HTM/.HTML extension, as a string.		nvrid: The 'file name' portion of the url path (typically the craft's hull designation) without the .HTM/.HTML extension, as a string.
	title: Title for link, set to '' for a bare link without a title.		title: Title for link, set to '' for a bare link without a title.
	]]		]]

RP88: ServiceShip -> ServiceCraft

2016-10-04T02:01:41Z

ServiceShip -> ServiceCraft

← Previous revision		Revision as of 02:01, 4 October 2016
Line 130:		Line 130:

	--[[		--[[
			MakeServiceCraftLink
	MakeServiceShipLink

	This function returns a link to a service ~~ship~~ in the Naval Vessel Register.		This function returns a link to a service craft in the Naval Vessel Register.

	Usage:		Usage:
	{{#invoke:NVR\|~~MakeServiceShipLink~~\|1=\|title=}}		{{#invoke:NVR\|MakeServiceCraftLink\|1=\|title=}}
	{{#invoke:NVR\|~~MakeServiceShipLink~~}} - uses the caller's parameters		{{#invoke:NVR\|MakeServiceCraftLink}} - uses the caller's parameters

	Parameters		Parameters
	1, id: The 'file name' portion of the url path (typically the ~~ship~~'s hull designation) without the .HTM/.HTML extension.		1, id: The 'file name' portion of the url path (typically the craft's hull designation) without the .HTM/.HTML extension.
	2, title: A title or label for the link.		2, title: A title or label for the link.
	]]		]]
	function p.~~MakeServiceShipLink~~( frame )		function p.MakeServiceCraftLink( frame )
	-- if no argument provided than check parent template/module args		-- if no argument provided than check parent template/module args
	local args = frame.args		local args = frame.args
Line 152:		Line 152:
	local title = args["title"] or args[2];		local title = args["title"] or args[2];

	local output = p.~~_MakeServiceShipLink~~(nvrid, title)		local output = p._MakeServiceCraftLink(nvrid, title)

	return output		return output
Line 184:		Line 184:

	--[[		--[[
	This function returns a link to a service ~~ship~~ in the Naval Vessel Register.		This function returns a link to a service craft in the Naval Vessel Register.

	Parameters		Parameters
	nvrid: The 'file name' portion of the url path (typically the ~~ship~~'s hull designation) without the .HTM/.HTML extension, as a string.		nvrid: The 'file name' portion of the url path (typically the crafts's hull designation) without the .HTM/.HTML extension, as a string.
	title: Title for link, set to '' for a bare link without a title.		title: Title for link, set to '' for a bare link without a title.
	]]		]]
	function p.~~_MakeServiceShipLink~~( nvrid, title )		function p._MakeServiceCraftLink( nvrid, title )
	local output = ''		local output = ''
	local url = ''		local url = ''
Line 199:		Line 199:

	-- create url from nvrid		-- create url from nvrid
	url = nvr_url_using_rules(nvrid, rules.~~ServiceShipRules~~)		url = nvr_url_using_rules(nvrid, rules.ServiceCraftRules)

	-- create link from url		-- create link from url