From 356e267b8f1057bc562b44201bb79d9029e56bf7 Mon Sep 17 00:00:00 2001
From: Roy Johnson <roy.l.johnson@gmail.com>
Date: Sun, 29 Jan 2006 19:41:45 +0000
Subject: [PATCH] EventManager Code

---
 .../Asset/Wobject/EventManagementSystem.pm    | 32 +++++++++++++++----
 1 file changed, 25 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
index 34a115ead..69bf93d8f 100644
--- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
+++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
@@ -211,7 +211,20 @@ sub definition {
 
 #-------------------------------------------------------------------
 sub www_deleteEvent {
-
+	my $self = shift;
+	my $eventId = $self->session->form->get("id");
+	
+	#Remove this event as a prerequisite to any other event
+	$self->session->db->write("delete from EventManagementSystem_prerequisiteEvents where requiredEventId=".
+				   $self->session->db->quote($eventId));
+	
+	#Check for orphaned prerequisite definitions
+	my @orphans = $self->session->db->quickArray("select p.prerequisiteId from EventManagementSystem_prerequisites as p 
+							left join EventManagementSystem_prerequisiteEvents as pe 
+							on p.prerequisiteId = pe.prerequisiteId 
+							where pe.prerequisiteId is null"); 
+			  
+	
 
 }
 
@@ -434,19 +447,24 @@ sub www_editEventSave {
 
 #-------------------------------------------------------------------
 sub www_moveEventDown {
+	my $self = shift;
+	my $eventId = $self->session->form->get("pid");
+	
+	$self->moveCollateralDown('EventManagementSystem_products', 'productId', $eventId);
 
-
-
+	return $self->www_manageEvents;
 }
 
 #-------------------------------------------------------------------
 sub www_moveEventUp {
-
-
+	my $self = shift;
+	my $eventId = $self->session->form->get("pid");
+	
+	$self->moveCollateralUp('EventManagementSystem_products', 'productId', $eventId);
+	
+	return $self->www_manageEvents;
 }
 
-
-
 #-------------------------------------------------------------------
 sub www_manageEvents {
 	my $self = shift;