<%args> $pua_id $rule_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 rule WHERE rule_id=$rule_id and pua_id=$pua_id;"); $sth->execute or die "Execute failed: " . $sth->errstr; $m->comp('pua_rules.html', pua_id => $pua_id);