[

define_tag:'lp_date_stringToOffset',
	-description='Returns a standardize timezone string (e.g. +0100) given a timezone offset string. Optionally can return a map of the hours and minutes.',
	-priority='replace',
	-required='timezone_offset', -copy,
	-optional='map', -copy;

	// Note: I use a workaround due to Lasso 8.1 bug where (integer: -08) == 0 instead of -8
	// So this is far more complicated that it should be :(

	if: local_defined:'map';
		#map = true;
	else;
		local:'map' = false;
	/if;

	#timezone_offset = string: #timezone_offset;

	local:'direction' = 1;
	local:'sign' = '+';
	if: #timezone_offset->(contains:'-');
		#direction = -1;
		#sign = '-';
	/if;

	// default at UTC/GMT
	local:'hours' = 0;
	local:'minutes' = 0;

	local:'offset' = lp_string_getnumeric: #timezone_offset;

	if: #offset->size == 0;
		// go with default
	else: #offset->size <= 2; // e.g. 5, 10, 3
		#offset->(removeleading:'0');
		#hours = #direction * (integer: #offset);
	else: #offset->size == 3;  // e.g. 500, 800, 300
		#hours = #direction * (integer: #offset->(substring: 1,1));
		#minutes = (integer: #offset->(substring: 2,2));
	else: #offset->size == 4; // e.g. 0500, 1300, 0130
		#hours = #direction * (integer: #offset->(substring: 1,2));
		#minutes = (integer: #offset->(substring: 3,2));
	else;
		fail: -1,'Offset not recognized.';
	/if;

	if: #map;
		return: (map: 'hours' = #hours, 'minutes' = #minutes);
	else;

		if: #hours == 0 && #minutes == 0;
			#sign = '+';
		/if;

		return: #sign (lp_string_pad: (math_abs:#hours), 2) (lp_string_pad: #minutes, 2);

	/if;

/define_tag;

]