warn "# using partition $table";
}
- if ( my $cols = $self->redis->get("pg.$table") ) {
+ if ( my $cols = $self->redis->get("columns.$table") ) {
@c = split(/\s+/,$cols);
} else {
my $sth = $self->dbh->prepare( "select * from $table limit 1" );
}
@c = @{ $sth->{NAME_lc} };
- $self->redis->set( "pg.$table" => join(' ',@c) );
- $self->redis->expire( "pg.$table" => $redis_ttl );
+ $self->redis->set( "columns.$table" => join(' ',@c) );
+ $self->redis->expire( "columns.$table" => $redis_ttl );
# web interface requires base table columns
- $self->redis->set( "pg.$base_table" => join(' ',@c) );
- $self->redis->expire( "pg.$base_table" => $redis_ttl );
+ $self->redis->set( "columns.$base_table" => join(' ',@c) );
+ $self->redis->expire( "columns.$base_table" => $redis_ttl );
}
my $sql = "INSERT INTO $table (" . join(',',@c) . ') values (' . join(',', map { '?' } 0 .. $#c) . ')';