<%args> $pua_id $group $member <%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 group_entry WHERE parent_contact_id=$group AND child_contact_id=$member;"); $sth->execute or die "Execute failed: " . $sth->errstr; $m->comp('pua_contacts.html', edit => 't', contact_id => $group, pua_id => $pua_id);