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

addEventsToBadge method

Browse source
This commit is contained in:
Matthew Wilson 2006-04-17 09:26:28 +00:00
parent 1114fa36f4
commit be132eeb21
1 changed files with 31 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -226,11 +226,11 @@ sub addToScratchCart {
my $self = shift; my $self = shift;
my $event = shift; my $event = shift;
my @eventsInCart = split("::",$self->session->scratch->get('EMS_scratch_cart')); my @eventsInCart = split("\n",$self->session->scratch->get('EMS_scratch_cart'));
push(@eventsInCart, $event) unless isIn($event,@eventsInCart); push(@eventsInCart, $event) unless isIn($event,@eventsInCart);
$self->session->scratch->delete('EMS_scratch_cart'); $self->session->scratch->delete('EMS_scratch_cart');
$self->session->scratch->set('EMS_scratch_cart', join("::", @eventsInCart)); $self->session->scratch->set('EMS_scratch_cart', join("\n", @eventsInCart));
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -617,7 +617,7 @@ sub getEventsInCart {
#------------------------------------------------------------------ #------------------------------------------------------------------
sub getEventsInScratchCart { sub getEventsInScratchCart {
my $self = shift; my $self = shift;
my @eventsInCart = split("::",$self->session->scratch->get('EMS_scratch_cart')); my @eventsInCart = split("\n",$self->session->scratch->get('EMS_scratch_cart'));
return \@eventsInCart; return \@eventsInCart;
} }
@ -1063,7 +1063,7 @@ sub removeFromScratchCart {
foreach (@{$events}) { foreach (@{$events}) {
push (@newArr,$_) unless $_ eq $event; push (@newArr,$_) unless $_ eq $event;
} }
$self->session->scratch->set('EMS_scratch_cart', join("::",@newArr)); $self->session->scratch->set('EMS_scratch_cart', join("\n",@newArr));
} }
#------------------------------------------------------------------ #------------------------------------------------------------------
@ -1965,6 +1965,33 @@ sub www_viewPurchase {
return $self->session->style->process($self->processTemplate(\%var,$self->getValue("viewPurchaseTemplateId")),$self->getValue("styleTemplateId")); return $self->session->style->process($self->processTemplate(\%var,$self->getValue("viewPurchaseTemplateId")),$self->getValue("styleTemplateId"));
} }
#-------------------------------------------------------------------
=head2 www_addEventsToBadge ( )
Method to display a purchase. From this screen, admins can
return the whole purchase, return a whole badge (registration,
a.k.a itinerary for a single person), or return a single event
from an itinerary. The purchaser can just add events to
individual registrations that have at least one event that
hasn't occurred yet.
=cut
sub www_addEventsToBadge {
my $self = shift;
my %var = $self->get();
my $isAdmin = $self->canAddEvents;
my $bid = $self->session->form->process('bid');
$self->session->scratch->delete('EMS_add_purchase_badgeId');
$self->session->scratch->set('EMS_add_purchase_badgeId',$bid);
my @pastEvents = $self->session->db->buildArray("select productId from EventManagementSystem_registrations where badgeId=?",[$bid]);
$self->session->scratch->delete('EMS_add_purchase_events');
$self->session->scratch->set('EMS_add_purchase_events',join("\n",@pastEvents));
$self->session->http->setRedirect($self->getUrl."?func=addToCart;method=addEventsToBadge");
return 1;
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub www_editEventMetaDataField { sub www_editEventMetaDataField {
my $self = shift; my $self = shift;