odd test.

This commit is contained in:
Matthew Wilson 2006-04-17 08:33:00 +00:00
parent e6c2e568eb
commit 854a3ca447

View file

@ -226,10 +226,10 @@ sub addToScratchCart {
my $self = shift; my $self = shift;
my $event = shift; my $event = shift;
my @eventsInCart = split("\n",$self->session->scratch->get('EMS_scratch_cart')); my @eventsInCart = split("::",$self->session->scratch->get('EMS_scratch_cart'));
push(@eventsInCart, $event) unless isIn($event,@eventsInCart); push(@eventsInCart, $event) unless isIn($event,@eventsInCart);
$self->session->scratch->set('EMS_scratch_cart', join("\n", @eventsInCart)); $self->session->scratch->set('EMS_scratch_cart', join("::", @eventsInCart));
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -608,7 +608,7 @@ sub getEventsInCart {
#------------------------------------------------------------------ #------------------------------------------------------------------
sub getEventsInScratchCart { sub getEventsInScratchCart {
my $self = shift; my $self = shift;
my @eventsInCart = split("\n",$self->session->scratch->get('EMS_scratch_cart')); my @eventsInCart = split("::",$self->session->scratch->get('EMS_scratch_cart'));
return \@eventsInCart; return \@eventsInCart;
} }
@ -1052,7 +1052,7 @@ sub removeFromScratchCart {
foreach (@{$events}) { foreach (@{$events}) {
push (@newArr,$_) unless $_ eq $event; push (@newArr,$_) unless $_ eq $event;
} }
$self->session->scratch->set('EMS_scratch_cart', join("\n",@newArr)); $self->session->scratch->set('EMS_scratch_cart', join("::",@newArr));
} }
#------------------------------------------------------------------ #------------------------------------------------------------------