{
		#
		# Start the SELECT tag
		#
		# Amended by Chris Brown to use radio buttons instead of select options
		#
#		$sSelectHTML = "<SELECT ID='lstClass' NAME='ShippingClass'>\n";
		$sSelectHTML = "\n";					# CDB No start tag
		foreach $phashShipping (@::s_arrSortedShippingHashes)	# for each shipping option
			{
			#
			# Handle the label by appending the cost if we're displaying prices
			#
			$sClassLabel = $$phashShipping{ShippingLabel};
			if ($::s_Ship_bDisplayPrices)									# displaying prices?
				{
				my (@PriceResponse) = 
					ActinicOrder::FormatPrice($$phashShipping{Cost}, 
						$::TRUE, 
						\%::s_Ship_PriceFormatBlob);
				
				$sClassLabel .= sprintf($sPriceLabelFormat, $PriceResponse[2]);	# add the price to the label
				}
			#
			# Set the SELECTED attribute
			#
			$sClassID = $$phashShipping{ShippingClass};
			
			my $sSelected = 
				($sClassID eq $::s_hashShipData{'ShippingClass'}) ?	# if this one is the current selection
#				'SELECTED ':														# make it the selected value else
				'CHECKED ':									# CDB make it the selected value else
				'';																	# just another value
			#
			# Format as an OPTION tag
			#
#			$sSelectHTML .= sprintf("<OPTION %s Value='%s'>%s\n",
			$sSelectHTML .= sprintf("<INPUT TYPE='RADIO' %s NAME='ShippingClass' Value='%s'>%s<BR>\n",	# CDB make it a radio button
				$sSelected, $sClassID, $sClassLabel);
			}
		#
		# End the SELECT tag
		#
#		$sSelectHTML .= "</SELECT>\n";
		$sSelectHTML .= "\n";		# CDB No end tag
		}