<%args> $pua_id $new_device_name $new_device_uri <%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("SELECT max(device_id) from owner_device;"); $sth->execute or die "Execute failed: " . $sth->errstr; my $new_device_id = $sth->fetchrow_array(); $sth = $dbh->prepare("SELECT max(owner_contact_method_id) from owner_contact_method;"); $sth->execute or die "Execute failed: " . $sth->errstr; my $new_owner_contact_method_id = $sth->fetchrow_array(); $new_device_id++; $new_owner_contact_method_id++; $sth = $dbh->prepare("INSERT into owner_device(device_id, pua_id, device_name) values($new_device_id, $pua_id, '$new_device_name');"); $sth->execute or die "Execute failed: " . $sth->errstr; $sth = $dbh->prepare("INSERT into owner_contact_method(owner_contact_method_id, device_id, uri) values($new_owner_contact_method_id, $new_device_id, '$new_device_uri');"); $sth->execute or die "Execute failed: " . $sth->errstr; $m->comp('pua_details.html', pua_id => $pua_id, edit => 't', device_id => $new_device_id);