Changeset 106 in bookmarks

Timestamp:

10/19/15 21:16:31 (9 years ago)

Author:

peter

Message:

#6: Added basic pagination to the bookmarks HTML list view.

Location:

trunk

Files:

• cpanfile (modified) (1 diff)
• lib/Bookmarks.pm (modified) (2 diffs)
• lib/Bookmarks/Controller.pm (modified) (2 diffs)
• lib/Bookmarks/List.pm (modified) (1 diff)
• lib/Bookmarks/Search.pm (modified) (1 diff)
• lib/Bookmarks/list.tt (modified) (2 diffs)

trunk/cpanfile

@@ -8 +8 @@
 requires 'Encode';
 requires 'Router::Resource';
+requires 'Data::Pageset';
 
 # web application

trunk/lib/Bookmarks.pm

@@ -99 +99 @@
 }
 
+sub get_count {
+    my $self = shift;
+    my $search = shift;
+
+    my ($sql, @bind) = sql_interp(
+        'select count(*) from resources join bookmarks on resources.uri = bookmarks.uri',
+        $self->_sql_where_clause($search),
+    );
+    my $sth = $self->dbh->prepare($sql);
+    $sth->execute(@bind);
+    my ($count) = $sth->fetchrow_array;
+    return $count;
+}
+
 sub search {
     my $self = shift;
     my $params = shift || {};
     my $search = Bookmarks::Search->new($params);
+
+    my ($limit, $offset);
+    if ($search->page) {
+        my $count = $self->get_count($search);
+        use Data::Pageset;
+        my $pages = Data::Pageset->new({
+            total_entries    => $count,
+            current_page     => $search->page,
+            entries_per_page => 15,
+            mode             => 'slide',
+        });
+        $search->pages($pages);
+        $limit = $pages->entries_per_page;
+        $offset = $pages->skipped;
+    } else {
+        $limit = $search->limit;
+        $offset = $search->offset;
+    }
 
     # build the query
@@ -110 +142 @@
     push @sql, $self->_sql_where_clause($search);
     push @sql, 'order by ctime desc';
-    push @sql, ('limit', \$search->limit) if $search->limit;
+    push @sql, ('limit', \$limit) if $limit;
     # an offset is only allowed if we have a limit clause
-    push @sql, ('offset', \$search->offset) if $search->limit && $search->offset;
+    push @sql, ('offset', \$offset) if $limit && $offset;
 
     my ($sql, @bind) = sql_interp(@sql);

trunk/lib/Bookmarks/Controller.pm

@@ -83 +83 @@
     my $limit = $self->request->param('limit');
     my $offset = $self->request->param('offset');
+    my $page = $self->request->param('page');
 
     my $list = Bookmarks::List->new({
@@ -91 +92 @@
             limit  => $limit,
             offset => $offset,
+            page   => $page,
         }),
     });

trunk/lib/Bookmarks/List.pm

@@ -197 +197 @@
             cotags       => \@cotags,
             resources    => $self->results,
+            pages        => $self->search->pages,
         },
         \my $output,

trunk/lib/Bookmarks/Search.pm

@@ -10 +10 @@
 has limit  => (is => 'ro');
 has offset => (is => 'ro');
+has page   => (is => 'ro');
 
 has results => (is => 'rw', default => sub { [] });
+has pages => (
+    is => 'rw',
+    isa => 'Data::Pageset',
+);
 
 # module return

trunk/lib/Bookmarks/list.tt

@@ -84 +84 @@
     font-size: .875em;
 }
+.pagination {
+    margin: .5em;
+}
     </style>
   </head>
@@ -96 +99 @@
       <input type="submit" value="Go"/>
     </form>
+    <div class="pagination">
+      [% IF pages %]
+        <a href="?page=[% pages.first_page %]">«</a>
+        [% IF pages.previous_set %]
+          <a href="?page=[% pages.previous_set %]">‹</a>
+        [% END %]
+        [% FOREACH page IN pages.pages_in_set %]
+          [% IF page == pages.current_page %]
+            <strong>[% page %]</strong>
+          [% ELSE %]
+            <a href="?page=[% page %]">[% page %]</a>
+          [% END %]
+        [% END %]
+        [% IF pages.next_set %]
+          <a href="?page=[% pages.next_set %]">›</a>
+        [% END %]
+        <a href="?page=[% pages.last_page %]">»</a>
+      [% END %]
+    </div>
     <ul class="main">
       [%  FOREACH resource IN resources %]