% # Do paging % if ($num_pages) {
<% $prev_link %> % foreach my $page (0 .. $num_pages) { % if ($page == $offset) { <% $page + 1 %>  % } else { % my $off = $page * $limit;   % } % } <% $next_link %>
% unless ($show_all) {
Show All
% }
% } # if $num_pages <%args> $offset => 0 $show_all => undef <%init> # desk_asset matches Callback/Desk.pm class_key my $d = $r->pnotes('desk_asset.objs'); # from desk.mc $d->{story} ||= []; $d->{media} ||= []; $d->{template} ||= []; my $num_objs = @{$d->{story}} + @{$d->{media}} + @{$d->{template}}; return unless $num_objs; # Paging my $limit = get_pref('Search Results / Page'); my $num_pages = ($num_objs <= $limit) ? 0 : $limit ? int($num_objs / $limit) : 0; my $colspan = $show_all ? '' : 'colspan="2"'; my $url = $r->uri; my $prev_offset = $offset ? $offset - $limit : 0; my $next_offset = $offset + $limit; $next_offset = $num_pages * $limit if $next_offset > $num_objs; my ($prev_link, $next_link) = ('', ''); if ($offset) { $prev_link = qq{«}; } unless ($offset == $num_pages * $limit) { $next_link = qq{»}; }