Changeset 13 in bookmarks for trunk

Timestamp:

01/19/13 17:16:14 (11 years ago)

Author:

peter

Message:

• the list of bookmarks accepts limit and offset parameters

Location:

trunk

Files:

• BookmarkApp.pm (modified) (1 diff)
• Bookmarks.pm (modified) (2 diffs)

trunk/BookmarkApp.pm

@@ -70 +70 @@
     my $format = $q->param('format') || 'html';
     my $tag = $q->param('tag');
-    my @resources = $bookmarks->get_resources({ tag => $tag });
+    my $limit = $q->param('limit');
+    my $offset = $q->param('offset');
+    my @resources = $bookmarks->get_resources({
+        tag    => $tag,
+        limit  => $limit,
+        offset => $offset,
+    });
     my @all_tags = $bookmarks->get_tags({ selected => $tag });
     my @cotags = $bookmarks->get_cotags({ tag => $tag });

trunk/Bookmarks.pm

@@ -38 +38 @@
     my $tag = $params->{tag};
     my $limit = $params->{limit};
+    my $offset = $params->{offset};
 
     my ($sql, @bind) = sql_interp(
@@ -43 +44 @@
         ($tag   ? ('join tags on resources.uri = tags.uri where tags.tag =', \$tag) : ''),
         'order by ctime desc',
-        ($limit ? ('limit', \$limit) : ''),
+        ($limit ? ('limit', \$limit) : ()),
+        # an offset is only allowed if we have a limit clause
+        ($limit && $offset ? ('offset', \$offset) : ()),
     );