$query .= sprintf (" WHERE oid = %d", $oid);
pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");
-<when <not <string-eq "$(NILI)" "" />>>
$query = sprintf ("SELECT id FROM person WHERE oid = %d", $oid);
$sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");
if (pg_NumRows ($sth) > 0) {
} else {
die ("Cannot retrieve id through oid.");
}
+<when <not <string-eq "$(NILI)" "" />>>
$query = sprintf("DELETE from nili where person = %d", $id);
pg_exec($dbh, $query) or die ("Cannot delete from nili");
</when>