diff --git a/dist.ini b/dist.ini index 053fc49f67..bdb47fa1be 100644 --- a/dist.ini +++ b/dist.ini @@ -36,5 +36,4 @@ Template::Plugin::JSON = 0 Template::Plugin::Number::Format = 0 Template::Plugin::Page = 0 Test::XPath = 0.15 -URI::Query = 0 XML::Feed = 0 diff --git a/lib/MetaCPAN/Web/Role/Request.pm b/lib/MetaCPAN/Web/Role/Request.pm index dc307fb809..90e5e3bca9 100644 --- a/lib/MetaCPAN/Web/Role/Request.pm +++ b/lib/MetaCPAN/Web/Role/Request.pm @@ -1,17 +1,8 @@ package MetaCPAN::Web::Role::Request; use Moose::Role; -use URI::Query; use Plack::Session; -sub query_string_with { - my $self = shift; - my $params = shift; - my $qq = URI::Query->new( $self->parameters ); - $qq->replace(%$params); - return $qq->stringify; -} - sub page { my $page = shift->parameters->{p}; return $page && $page =~ /^\d+$/ ? $page : 1; diff --git a/root/inc/pager.html b/root/inc/pager.html index 24bf89d517..1e9f3e94d5 100644 --- a/root/inc/pager.html +++ b/root/inc/pager.html @@ -1,14 +1,14 @@ <%- USE pager = Page(size, page); pager.total_entries(total); IF pager.last_page > 1 %>
<%- IF pager.previous_page %> - Previous    + Previous    <% END %> <% FOREACH p IN [page - 10 .. [page + 10, pager.last_page].nsort.0 ]; IF p < 1; NEXT; END; IF p == page %><% p %><% ELSE %> -<% p %> <% END; END %> +<% p %> <% END; END %> <% IF pager.next_page %>    - Next + Next <% END %>
<% END %> \ No newline at end of file