Fix a problem with purging an EMS.

This commit is contained in:
Colin Kuskie 2009-02-05 23:10:35 +00:00
parent 1cbedd34a8
commit 6c61eb54db
2 changed files with 4 additions and 3 deletions

View file

@ -26,6 +26,7 @@
- fixed: Added survey.css as a snippet. Had been left out.
- fixed: Permissions aren't correctly applied to Article attachments
- fixed #9681: Form-related template errors in gallery
- fixed #9683: Problem with EMS related workflow
7.6.10
- fixed #9577: WebGUI::Form::Url::getValue returns blank rather than undef for blank fields

View file

@ -364,9 +364,9 @@ sub purge {
my $db = $self->session->db;
# delete registrations
my $deleteTicket = $db->prepare("delete from EMSRegistrantTicket=?");
my $deleteToken = $db->prepare("delete from EMSRegistrantToken=?");
my $deleteRibbon = $db->prepare("delete from EMSRegistrantRibbon=?");
my $deleteTicket = $db->prepare("delete from EMSRegistrantTicket where badgeId=?");
my $deleteToken = $db->prepare("delete from EMSRegistrantToken where badgeId=?");
my $deleteRibbon = $db->prepare("delete from EMSRegistrantRibbon where badgeId=?");
my $sth = $db->read("select badgeId from EMSRegistrant where emsAssetId=?",[$self->getId]);
while (my ($id) = $sth->array) {
$deleteTicket->execute([$id]);