Changeset 22 in bookmarks for trunk/BookmarkApp.pm

Timestamp:

05/22/13 16:08:09 (11 years ago)

Author:

peter

Message:

• construct the link attributes and hrefs in the BookmarkApp instead of in the template
• render the @links array as a list instead of hardcoded paths using the tag_query value
• display the links whether or not there are any tag parameters

File:

• trunk/BookmarkApp.pm (modified) (2 diffs)

trunk/BookmarkApp.pm

@@ -136 +136 @@
         $base_url .= '/' if $base_url =~ m{/bookmarks$};
 
+        my @links = (
+            {
+                text => 'Link',
+                type => 'text/html',
+                rel  => 'self',
+                query => {
+                    tag => \@tags,
+                },
+            },
+            {
+                text => 'JSON',
+                type => 'application/json',
+                rel  => 'alternate',
+                query => {
+                    tag => \@tags,
+                    format => 'json',
+                },
+            },
+            {
+                text => 'XBEL',
+                type => 'application/xml',
+                rel  => 'alternate',
+                query => {
+                    tag => \@tags,
+                    format => 'xbel',
+                },
+            },
+            {
+                text => 'Atom',
+                type => 'application/atom+xml',
+                rel  => 'alternate',
+                path => 'feed',
+                query => {
+                    tag => \@tags,
+                },
+            },
+        );
+        for my $link (@links) {
+            $link->{href} = URI->new_abs($link->{path} || '', $base_uri);
+            $link->{href}->query_form($link->{query});
+        }
+        
         return $self->tt_process(
             'list.tt',
@@ -142 +184 @@
                 selected_tag => $tag,
                 search_tags  => \@tags,
-                tag_query    => join('&', map { "tag=$_" } @tags),
+                links        => \@links,
                 all_tags     => \@all_tags,
                 cotags       => \@cotags,