3.2 bug in Database::prepare_select

[sebastfr]

Some parts of Stats::Handler rely on prepare_select() however that method is buggy on 3.2 (and early 3.3?) as the query "offset" and "limit" are swapped hence no records are select'ed.

Potential solution: implement that method locally (i.e. in Handler.pm).

[sebastfr]

For a quick fix try that:

sub prepare_select
{
        my( $self, $sql, %options ) = @_;
        if( defined $options{limit} && length($options{limit}) )
        {
                if( defined $options{offset} && length($options{offset}) )
                {
                        $sql .= sprintf(" LIMIT %d OFFSET %d",
                                $options{offset},
                                $options{limit} );
                }
                else
                {
                        $sql .= sprintf(" LIMIT %d", $options{limit} );
                }
        }
        return $self->prepare( $sql );
}

Replace with:

sub prepare_select
{
        my( $self, $sql, %options ) = @_;
        if( defined $options{limit} && length($options{limit}) )
        {
                if( defined $options{offset} && length($options{offset}) )
                {
                        $sql .= sprintf(" LIMIT %d OFFSET %d",
                                $options{limit},
                                $options{offset} );
                }
                else
                {
                        $sql .= sprintf(" LIMIT %d", $options{limit} );
                }
        }
        return $self->prepare( $sql );
}