From f940fec130e194342b84a853d7a40c253f43a17c Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Mon, 17 Apr 2006 09:57:43 +0000
Subject: [PATCH] fix

---
 lib/WebGUI/Asset/Wobject/EventManagementSystem.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
index 4b5673541..2edad15f1 100644
--- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
+++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
@@ -1020,6 +1020,9 @@ sub getSubEventForm {
 	   });
 	 }
 	}
+	
+	return '' unless scalar(@subEventLoop);
+	
 	my $scratchCart = [split("\n",$self->session->scratch->get('EMS_scratch_cart'))];
 	
 	foreach (@$scratchCart) {
@@ -1040,7 +1043,7 @@ sub getSubEventForm {
 	$var{'subevents_loop'} = \@subEventLoop;
 	$var{'chooseSubevents'} = 1;
 	my $output;
-	$output = \%var if (scalar (@subEventLoop) > 0);
+	$output = \%var if scalar(@subEventLoop);
 	
 	return $output;	
 }