This commit is contained in:
Matthew Wilson 2006-04-17 09:55:48 +00:00
parent fc415495fd
commit 77153b93fe

View file

@ -1020,6 +1020,23 @@ sub getSubEventForm {
});
}
}
my $scratchCart = [split("\n",$self->session->scratch->get('EMS_scratch_cart'))];
foreach (@$scratchCart) {
my $details = $self->getEventDetails($_);
push(@subEventLoop, {
'form.checkBox' => WebGUI::Form::checkbox($self->session, {
value => 1,
checked => 1,
name => "subEventDisregard",
extras => 'disabled="disabled"',
}),
'title' => $details->{title},
'description' => $details->{description},
'price' => $details->{price}
});
}
$var{'subevents_loop'} = \@subEventLoop;
$var{'chooseSubevents'} = 1;
my $output;