diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-08-30 00:06:38 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-08-30 00:06:38 +0000 |
| commit | 5997fe12586a33a865ed68d3628e09e68b562e50 (patch) | |
| tree | 2ec5d6112f7a35542211ae6259d45a717ec0f974 /perl | |
| parent | c707e5741f41cc88f19f242975447d520dce6081 (diff) | |
Call last_insert_id with the correct arguments.
Diffstat (limited to 'perl')
| -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', ?, ?, ?)"; |