Index: /trunk/DNSDB.pm
===================================================================
--- /trunk/DNSDB.pm	(revision 883)
+++ /trunk/DNSDB.pm	(revision 884)
@@ -3,5 +3,5 @@
 ##
 # $Id$
-# Copyright 2008-2022 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2008-2025 Kris Deugau <kdeugau@deepnet.cx>
 # 
 #    This program is free software: you can redistribute it and/or modify
@@ -4835,7 +4835,10 @@
   local $dbh->{RaiseError} = 1;
 
+  my $retid;
   eval {
-    $dbh->do("INSERT INTO "._rectable($defrec, $revrec)." ($fields) VALUES ($vallen)",
-	undef, @vallist);
+    ($retid) = $dbh->selectrow("INSERT INTO "._rectable($defrec, $revrec)." ($fields) VALUES ($vallen) RETURNING record_id",
+	undef,
+	@vallist
+	) || 'Falsey ID returned';
     $self->_updateserial(%logdata);
     $self->_log(%logdata);
@@ -4855,5 +4858,5 @@
 
   $resultstr = $logdata{entry};
-  return ($retcode, $retmsg);
+  return ($retcode, $retmsg, $retid);
 
 } # end addRec()