sub clrCart {
	my ($cgi, $session) = @_;

	$session->clear(["CART"]);
	$session->flush();
	return &displayCart($cgi, $session);
}