Changeset 106 in bookmarks for trunk/lib/Bookmarks.pm

Timestamp:

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

Author:

peter

Message:

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

File:

• trunk/lib/Bookmarks.pm (modified) (2 diffs)

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);