Changeset 3 in bookmarks for trunk/index.cgi

Timestamp:

03/02/12 20:51:06 (12 years ago)

Author:

peter

Message:

• Added a base URL to the list, guarenteed to end in "bookmarks/"
• Default the ?format parameer to the list to "html" to avoid the unitialized value warnings
• Added more classes to the individual bookmark page elements
• Added an onclick handler to the tag links in a bookmark edit form that will attempt to open the link in the opener window; failing that, they will use a new window
• Check for an opener before attempting to reload it on page load

File:

• trunk/index.cgi (modified) (2 diffs)

trunk/index.cgi

@@ -98 +98 @@
             }
         } else {
-            #print $q->header('text/html');
-            #print "TODO: list bookmarks";
-            #return;
-            # list all the resources
-            my $format = $q->param('format');
+            # list all the bookmarks 
+            my $format = $q->param('format') || 'html';
             my $tag = $q->param('tag');
             my @resources = $bookmarks->get_resources({ tag => $tag });
@@ -123 +120 @@
                     -charset => 'UTF-8',
                 );
+
+                # set the base URL, adding a trailing slash if needed
+                my $base_url = $q->url;
+                $base_url .= '/' if $base_url =~ m{/bookmarks$};
+
                 $template->process(
                     'list.tt',
                     {
+                        base_url     => $base_url,
                         selected_tag => $tag,
                         tags         => \@all_tags,