diff options
| -rw-r--r-- | perl/Wallet/ACL.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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', ?, ?, ?)"; |