projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add CTY-2008 prefixes
[spider.git]
/
perl
/
DXSql
/
SQLite.pm
diff --git
a/perl/DXSql/SQLite.pm
b/perl/DXSql/SQLite.pm
index 8cb1606d1584f6668c5e43896ac0217bb05f468f..2330837f41cd4b2192dc2821f926ff917c00653b 100644
(file)
--- a/
perl/DXSql/SQLite.pm
+++ b/
perl/DXSql/SQLite.pm
@@
-36,7
+36,7
@@
sub has_ipaddr
my $sth = $self->prepare($s);
$sth->execute;
while (my @t = $sth->fetchrow_array) {
my $sth = $self->prepare($s);
$sth->execute;
while (my @t = $sth->fetchrow_array) {
- if ($t[
0
] eq 'ipaddr') {
+ if ($t[
1
] eq 'ipaddr') {
$sth->finish;
return 1;
}
$sth->finish;
return 1;
}
@@
-48,7
+48,7
@@
sub has_ipaddr
sub add_ipaddr
{
my $self = shift;
sub add_ipaddr
{
my $self = shift;
- my $s = q(alter table spot add column ipaddr
varchar(40)
);
+ my $s = q(alter table spot add column ipaddr
text
);
$self->do($s);
}
$self->do($s);
}
@@
-79,10
+79,10
@@
ipaddr text
sub spot_add_indexes
{
my $self = shift;
sub spot_add_indexes
{
my $self = shift;
- $self->do('create index spot_ix1 on spot(time desc)');
dbg('adding spot index ix1');
dbg('adding spot index ix1');
- $self->do('create index spot_ix
2 on spot(spotcall a
sc)');
+ $self->do('create index spot_ix
1 on spot(time de
sc)');
dbg('adding spot index ix2');
dbg('adding spot index ix2');
+ $self->do('create index spot_ix2 on spot(spotcall asc)');
}
}