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

here goes nothing.

Browse source
This commit is contained in:
Matthew Wilson 2006-04-17 10:19:18 +00:00
parent 9c357bf824
commit f5876853de
1 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2027,6 +2027,35 @@ sub www_addEventsToBadge {
return 1;
}
#-------------------------------------------------------------------
=head2 www_returnItem ( )
Method to set some registrations as returned.
=cut
sub www_returnItem {
my $self = shift;
my %var = $self->get();
my $isAdmin = $self->canAddEvents;
my $rid = $self->session->form->process('rid');
my $tid = $self->session->form->process('tid');
my $pid = $self->session->form->process('pid');
my @regs;
if ($pid) {
@regs = $self->session->db->buildArray("select registrationId from EventManagementSystem_registrations where purchaseId=?",[$pid]);
} elsif ($tid) {
@regs = $self->session->db->buildArray("select registrationId from EventManagementSystem_purchases as t,EventManagementSystem_registrations as r where r.purchaseId=t.purchaseId and t.transactionId=?",[$tid]);
} elsif ($rid) {
@regs = ($rid);
}
foreach (@regs) {
$self->session->db->write("update EventManagementSystem_registrations set returned=1 where registrationId=?",[$_]);
}
return $self->www_managePurchases;
}
#-------------------------------------------------------------------
sub www_editEventMetaDataField {
my $self = shift;