fix: first index entry should have nr. 1 not 0

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@95 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/index_DBI_cache.pm b/index_DBI_cache.pm
index ec3c038..87337d1 100644 (file)
--- a/index_DBI_cache.pm
+++ b/index_DBI_cache.pm
@@ -178,7 +178,7 @@ sub close {
 
                my $ord = 0;
                foreach my $key (@keys) {
 
                my $ord = 0;
                foreach my $key (@keys) {

-                       $sth->execute($ord++,
+                       $sth->execute(++$ord,

                                $c_table->{$table}->{$key},
                                $c_count->{$table}->{$key}
                        );
                                $c_table->{$table}->{$key},
                                $c_count->{$table}->{$key}
                        );