From e8a4e031eb1604d8a3c61baf7340c986833ec986 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Wed, 29 Aug 2007 22:25:59 +0000 Subject: 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. --- perl/Wallet/Object/Base.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl/Wallet/Object/Base.pm') 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); -- cgit v1.2.3