<%args> $pua_id $contact_id <%once> use DBI; <%init> my $dbh = DBI->connect('dbi:Pg:dbname=pua', 'pua', 'pua') or die "Couldn't connect to database: " . DBI->errstr; my $sth = $dbh->prepare("DELETE from contact_method WHERE contact_id=$contact_id;"); $sth->execute or die "Execute failed: " . $sth->errstr; $sth = $dbh->prepare("DELETE from group_entry WHERE parent_contact_id=$contact_id or child_contact_id=$contact_id;"); $sth->execute or die "Execute failed: " . $sth->errstr; $sth = $dbh->prepare("DELETE from pua_contact WHERE contact_id=$contact_id;"); $sth->execute or die "Execute failed: " . $sth->errstr; $m->comp('pua_contacts.html', edit => 't', contact_id => $contact_id, pua_id => $pua_id);