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

	my $cart = $session->param("CART") || [];
	$cart = [];
	$session->param("CART", $cart);
	return displayCart($cgi, $session);
}


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

	&getItemForCart($cgi, $session);

	# get current cart contents
	my $cart = $session->param("CART") || [];
	# add selected item
	push @{$cart}, $orderitem;
	# update the CART in the session
	$session->param( "CART", $cart );
	return displayCart($cgi, $session);
}