Changeset 112 in bookmarks for trunk/lib/Bookmarks/Controller.pm

Timestamp:

02/17/16 22:05:50 (8 years ago)

Author:

peter

Message:

• Added the sidebar resource.
• Moved the list resources to list.
• Respond with a 406 if the required modules are not available for XBEL, Atom, or CSV.

File:

• trunk/lib/Bookmarks/Controller.pm (modified) (3 diffs)

trunk/lib/Bookmarks/Controller.pm

@@ -71 +71 @@
 }
 
+sub _get_search_from_request {
+    my $self = shift;
+
+    my @tags   = grep { $_ ne '' } $self->request->param('tag');
+    my $query  = $self->request->param('q');
+    my $limit  = $self->request->param('limit');
+    my $offset = $self->request->param('offset');
+    my $page   = $self->request->param('page');
+
+    return $self->bookmarks->search({
+        query  => $query,
+        tags   => \@tags,
+        limit  => $limit,
+        offset => $offset,
+        page   => $page,
+    });
+}
+
 sub list {
     my $self = shift;
@@ -79 +97 @@
     my $format = $self->request->param('format') || 'html';
 
-    my @tags = grep { $_ ne '' } $self->request->param('tag');
-    my $query = $self->request->param('q');
-    my $limit = $self->request->param('limit');
-    my $offset = $self->request->param('offset');
-    my $page = $self->request->param('page');
-
     my $list = Bookmarks::List->new({
         bookmarks => $self->bookmarks,
-        search    => $self->bookmarks->search({
-            query  => $query,
-            tags   => \@tags,
-            limit  => $limit,
-            offset => $offset,
-            page   => $page,
-        }),
+        search    => $self->_get_search_from_request,
     });
 
@@ -101 +107 @@
     }
     return $list->$as_format;
+}
+
+sub sidebar {
+    my $self = shift;
+
+    my $list = Bookmarks::List->new({
+        bookmarks => $self->bookmarks,
+        search    => $self->_get_search_from_request,
+    });
+
+    require Template;
+    require File::Basename;
+    my $template = Template->new({ INCLUDE_PATH => File::Basename::dirname($INC{'Bookmarks/List.pm'}) });
+
+    my @all_tags = $list->bookmarks->get_tags({ selected => @{ $list->tags }[0] });
+    my @cotags = $list->bookmarks->get_cotags({ search => $list->search });
+
+    $template->process(
+        'list.tt',
+        {
+            base_url     => $list->bookmarks->base_uri,
+            title        => $list->title,
+            query        => $list->query,
+            selected_tag => @{ $list->tags }[0],
+            search_tags  => $list->tags,
+            links        => [ $list->_get_list_links('text/html', { q => $list->query, tag => $list->tags }) ],
+            all_tags     => \@all_tags,
+            cotags       => \@cotags,
+            resources    => $list->results,
+            pages        => $list->search->pages,
+        },
+        \my $output,
+    );
+    return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$output]];
 }