oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

EventManager Code

Browse source
This commit is contained in:
Roy Johnson 2006-01-29 19:41:45 +00:00
parent ca6dcb7382
commit 356e267b8f
1 changed files with 25 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
View file

@ -211,6 +211,19 @@ sub definition {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub www_deleteEvent { 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 { 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 { 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 { sub www_manageEvents {
my $self = shift; my $self = shift;