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

Corrected purge table column names

Browse source
This commit is contained in:
Kaleb Murphy 2008-08-01 14:51:44 +00:00
parent 178c6340a9
commit f49c79eed4
3 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Asset/Sku/EMSBadge.pm
View file

@ -285,10 +285,10 @@ Deletes all badges and things attached to the badges. No refunds are given.
sub purge { sub purge {
my $self = shift; my $self = shift;
my $db = $self->session->db; my $db = $self->session->db;
$db->write("delete from EMSRegistrantTicket where badgeAssetId=?",[$self->getId]); $db->write("delete from EMSRegistrantTicket where badgeId=?",[$self->getId]);
$db->write("delete from EMSRegistrantToken where badgeAssetId=?",[$self->getId]); $db->write("delete from EMSRegistrantToken where badgeId=?",[$self->getId]);
$db->write("delete from EMSRegistrantRibbon where badgeAssetId=?",[$self->getId]); $db->write("delete from EMSRegistrantRibbon where badgeId=?",[$self->getId]);
$db->write("delete from EMSRegistrant where badgeAssetId=?",[$self->getId]); $db->write("delete from EMSRegistrant where badgeId=?",[$self->getId]);
$self->SUPER::purge; $self->SUPER::purge;
} }

2
lib/WebGUI/Asset/Sku/EMSRibbon.pm
View file

@ -173,7 +173,7 @@ Deletes all entries in EMSRegistrationRibbon table for this sku. No refunds are
sub purge { sub purge {
my $self = shift; my $self = shift;
$self->session->db->write("delete from EMSRegistrantRibbon where tokenAssetId=?",[$self->getId]); $self->session->db->write("delete from EMSRegistrantRibbon where ribbonAssetId=?",[$self->getId]);
$self->SUPER::purge; $self->SUPER::purge;
} }

3
lib/WebGUI/Asset/Sku/Subscription.pm
View file

@ -808,8 +808,9 @@ sub www_listSubscriptionCodes {
my ($p, $codes, $output, $where, $ops, $delete); my ($p, $codes, $output, $where, $ops, $delete);
return $session->privilege->insufficient unless $self->canEdit; return $session->privilege->insufficient unless $self->canEdit;
$session->errorHandler->warn(1);
my $dcStart = $session->form->date('dcStart'); my $dcStart = $session->form->date('dcStart');
$session->errorHandler->warn(2);
my $dcStop = $session->datetime->addToTime($session->form->date('dcStop'), 23, 59); my $dcStop = $session->datetime->addToTime($session->form->date('dcStop'), 23, 59);
my $duStart = $session->form->date('duStart'); my $duStart = $session->form->date('duStart');
my $duStop = $session->datetime->addToTime($session->form->date('duStop'), 23, 59); my $duStop = $session->datetime->addToTime($session->form->date('duStop'), 23, 59);