- 

package Koha::REST::Plugin::Query;

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Mojo::Base 'Mojolicious::Plugin';

=head1 NAME

Koha::REST::Plugin::Query

=head1 API

=head2 Mojolicious::Plugin methods

=head3 register

=cut

sub register {

    my ( $self, $app ) = @_;

=head2 Helper methods

=head3 generate_dbic_query

    my ( $filter, $attributes ) = $c->generate_dbic_query($params);

Generates the DBIC query from the query parameters.

=cut

    $app->helper(

        'generate_dbic_query' => sub {

            my ( $c, $params ) = @_;

            my $attributes = _build_dbic_attributes( $params->{page}, $params->{per_page} );

            my $filter     = _build_dbic_filter( $params );

            return ( $filter, $attributes );

        }

    );

}

=head2 Internal methods

=head3 _build_dbic_attributes

    my $attributes = _build_dbic_attributes( $page, $per_page );

=cut

sub _build_dbic_attributes {

    my ( $page, $per_page ) = @_;

    my $attributes = {

        rows => $per_page,

        page => $page

    };

    return $attributes;

}

=head3 _build_dbic_filter

    my $filter = _build_dbic_filter( $params );

=cut

sub _build_dbic_filter {

    my ( $params ) = @_;

    my $filter;

    my $exact_match = $params->{_exact_match};

    for my $param ( keys %{ $params } ) {

        next if   $param eq 'page'           # reserved

               or $param eq 'per_page'       # reserved

               or $param eq '_exact_match' ; # reserved

        if ( $exact_match ) {

            $filter->{$param} = $params->{$param};

        }

        else {

            $filter->{$param} = { like => $params->{$param} . "%" }

        }

    }

    return $filter;

}

1;