<%args> $pua_id $device_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 owner_contact_method WHERE device_id=$device_id;"); $sth->execute or die "Execute failed: " . $sth->errstr; $sth = $dbh->prepare("DELETE from owner_device WHERE device_id=$device_id;"); $sth->execute or die "Execute failed: " . $sth->errstr; $m->comp('pua_details.html', pua_id => $pua_id);