From 5997fe12586a33a865ed68d3628e09e68b562e50 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Thu, 30 Aug 2007 00:06:38 +0000
Subject: Call last_insert_id with the correct arguments.

---
 perl/Wallet/ACL.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl/Wallet')

diff --git a/perl/Wallet/ACL.pm b/perl/Wallet/ACL.pm
index bbab03d..0d4685d 100644
--- a/perl/Wallet/ACL.pm
+++ b/perl/Wallet/ACL.pm
@@ -77,7 +77,7 @@ sub create {
     eval {
         my $sql = 'insert into acls (ac_name) values (?)';
         $dbh->do ($sql, undef, $name);
-        $id = $dbh->last_insert_id;
+        $id = $dbh->last_insert_id (undef, undef, 'acls', 'ac_id');
         die "unable to retrieve new ACL ID" unless defined $id;
         $sql = "insert into acl_history (ah_acl, ah_action, ah_by, ah_from,
             ah_on) values (?, 'create', ?, ?, ?)";
-- 
cgit v1.2.3