more debug

This commit is contained in:
Matthew Wilson 2006-05-09 15:01:22 +00:00
parent a76fc98f19
commit f5f1f895c0

View file

@ -108,6 +108,8 @@ sub priceLineItem {
my $quantity = shift;
# this is the output of ShoppingCart->getItems (the \@normal arrayref).
my $cartItems = shift;
use Data::Dumper;
$self->session->errorHandler->warn('normal contents: '.Dumper($cartItems));
# this is the default price of this event.
my $price = $self->{_event}->{price};
# get the list of discount passes that this event is "under"