diff options
author | Russ Allbery <rra@stanford.edu> | 2007-08-29 22:25:59 +0000 |
---|---|---|
committer | Russ Allbery <rra@stanford.edu> | 2007-08-29 22:25:59 +0000 |
commit | e8a4e031eb1604d8a3c61baf7340c986833ec986 (patch) | |
tree | fcc96fdda7f27a367655aa4976efdbf66bec0aba /perl/Wallet/Object/Base.pm | |
parent | 47e73096c95c9de797b54feb6dfedef2211bf7b3 (diff) |
Fix lots of problems with the schema and rework it a little bit to be
compatible with SQLite. Mostly this involves creating indexes
separately rather than part of the create table statement.
Diffstat (limited to 'perl/Wallet/Object/Base.pm')
-rw-r--r-- | perl/Wallet/Object/Base.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/Object/Base.pm b/perl/Wallet/Object/Base.pm index cc0af1f..76bb799 100644 --- a/perl/Wallet/Object/Base.pm +++ b/perl/Wallet/Object/Base.pm @@ -169,7 +169,7 @@ sub log_set { die "invalid history field $field"; } my $sql = "insert into object_history (oh_object, oh_type, oh_action, - oh_field, oh_type_field, oh_from, oh_to, oh_by, oh_from, oh_on) + oh_field, oh_type_field, oh_old, oh_new, oh_by, oh_from, oh_on) values (?, ?, 'set', ?, ?, ?, ?, ?, ?, ?)"; $self->{dbh}->do ($sql, undef, $self->{name}, $self->{type}, $field, $type_field, $old, $new, $user, $host, $time); |