From 77153b93fee9283aa9e23a42c83a546b2c713e92 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Mon, 17 Apr 2006 09:55:48 +0000
Subject: [PATCH] more

---
 .../Asset/Wobject/EventManagementSystem.pm      | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
index b64920980..4b5673541 100644
--- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
+++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
@@ -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;