return (a ({-href => $url. "?choice=checkout"}, 

##</code><code>##

sub get_checkout_link
{
my $label = shift;

my $url;

	($url = "https://www.addr.com/~summitwe/cgi-bin/pet_shop.cgi") =~ s/^http:/https:/i;
	return (a ({-href => $url. "?choice=checkout"}, img ({-src => "../images/checkout.jpg",  -border => "0", escapeHTML ($label)})));
}

##</code><code>##

elsif ($choice eq "checkout")		# customer is ready to check out
{
	$page .= display_billing_form ($dbh, $cart_ref);
}

##</code><code>##

sub display_billing_form
{
my ($dbh, $cart_ref) = @_;
my ($state_val_ref, $state_label_ref);
my $page;
my $JSCRIPT;

	if (!keys (%{$cart_ref}))
	{
		$page .= p ({-style=>"font-family: verdana; font-size: 10pt;"}, "Shopping cart is empty.");
		return ($page);
	}

	# Get references to lists of state abbreviations
	# and names for state popup menu
	($state_val_ref, $state_label_ref) = WebDB::get_lookup_values (
						$dbh,
						"SELECT abbrev, name FROM us_state ORDER BY name");

	$page .= format_checkout_html ($cart_ref, 1);
      $page .= p({ -style => "font-family: verdana; font-size: 10pt;" }, "Shipping and tax may be added to your order.\n"
                   . "To estimate shipping and tax, please see the " 
                   . span({-style => "text-decoration: underline; color: blue; cursor: pointer;", -onClick => "launchwin()"}, 
                   "Shipping and Tax")
                   . " page.\n");


	$page .= start_form (-method => "POST", -action => url ());
	$page .= table ({-align => "center",  -valign=>"center", -style=>"font-family: verdana; font-size: 10pt;"},
                                                                Tr ({-bgcolor=>"blue", -style=>"font-family: verdana; font-size: 10pt; color: yellow; font-weight: 700;"},
                                                                                td ({-colspan => "2"},"Customer Information")
                                                                 ),
				Tr (
					td ("Name:"),
					td (textfield (-name => "cust_name", -size => "40"))
				),
                                                                Tr (
					td ("Address:"),
					td (textfield (-name => "street", -size => "60"))
				),
                                                                Tr (
					td ("City:"),
					td (textfield (-name => "city", -size => "60"))
				),
				Tr (
					td ("State:"),
					td (popup_menu (-name => "state",
									-values => $state_val_ref,
									-labels => $state_label_ref))
				),
				Tr (
					td ("Zip code:"),
					td (textfield (-name => "zip", -size => "10"))
				),
				Tr (
					td ("Email address:"),
					td (textfield (-name => "cust_email", -size => "60"))
				),
				Tr (
					td ("Daytime Phone:"),
					td (textfield (-name => "cust_dayph", -size => "20"))
				),
                                                                Tr (
					td ("Evening Phone:"),
					td (textfield (-name => "cust_evenph", -size => "20"))
				),
                        Tr ({-bgcolor=>"blue", -style=>"font-family: verdana; font-size: 10pt; color: yellow; font-weight: 700;"},
                              td ({-colspan => "2"},"Shipping Information")
                        ),
				Tr (
					td ("Name:"),
					td (textfield (-name => "ship_name", -size => "40"))
				),
                                                                Tr (
					td ("Address:"),
					td (textfield (-name => "ship_street", -size => "60"))
				),
                                                                Tr (
					td ("City:"),
					td (textfield (-name => "ship_city", -size => "60"))
				),
				Tr (
					td ("State:"),
					td (popup_menu (-name => "ship_state",
									-values => $state_val_ref,
									-labels => $state_label_ref))
				),
				Tr (
					td ("Zip code:"),
					td (textfield (-name => "ship_zip", -size => "10"))
				),
				Tr (
					td ("Email address:"),
					td (textfield (-name => "ship_email", -size => "60"))
				),
				Tr (
					td ("Daytime Phone:"),
					td (textfield (-name => "ship_dayph", -size => "20"))
				),
                                                                Tr (
					td ("Evening Phone:"),
					td (textfield (-name => "ship_evenph", -size => "20"))
				),
                        Tr ({-bgcolor=>"blue", -style=>"font-family: verdana; font-size: 10pt; color: yellow; font-weight: 700;"},
                              td ({-colspan => "2"},"Shipping Method")
                        ),
                        Tr (
                              td ("Please select a shipping method:"),
                              td (popup_menu (-name => "method", -values => ["ND", "23D", "NDD"], -labels => {"ND" => "Normal Delivery", "23D" => "2-3 Day Delivery", "NDD" => "Next Day Delivery"}))
                                              
				)
			)
			. br ()
			. submit (-name => "choice", -value => "proceed to checkout")
			. end_form ();

	return ($page);
}