summaryrefslogtreecommitdiff
path: root/perl/Wallet/Object
diff options
context:
space:
mode:
authorRuss Allbery <rra@stanford.edu>2007-08-29 22:25:59 +0000
committerRuss Allbery <rra@stanford.edu>2007-08-29 22:25:59 +0000
commite8a4e031eb1604d8a3c61baf7340c986833ec986 (patch)
treefcc96fdda7f27a367655aa4976efdbf66bec0aba /perl/Wallet/Object
parent47e73096c95c9de797b54feb6dfedef2211bf7b3 (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')
-rw-r--r--perl/Wallet/Object/Base.pm2
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);