From f5876853de662bf96874cac314ca18858cd52152 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Mon, 17 Apr 2006 10:19:18 +0000
Subject: [PATCH] here goes nothing.

---
 .../Asset/Wobject/EventManagementSystem.pm    | 29 +++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
index b55ae72a9..07a7f270c 100644
--- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
+++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
@@ -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;