Changeset 884

Timestamp:

05/22/25 16:25:47 (2 weeks ago)

Author:

Kris Deugau

Message:

/trunk

Extend addRec() a little to return the record ID. Suggested by Jawala Birdi.

File:

• trunk/DNSDB.pm (modified) (3 diffs)

trunk/DNSDB.pm

@@ -3 +3 @@
 ##
 # $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 +4835 @@
   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 +4858 @@
 
   $resultstr = $logdata{entry};
-  return ($retcode, $retmsg);
+  return ($retcode, $retmsg, $retid);
 
 } # end addRec()