Changeset 7 in bookmarks for trunk/Bookmarks.pm

Timestamp:

03/23/12 23:50:49 (13 years ago)

Author:

peter

Message:

• added a base_uri property to the Bookmarks class; if present, it adds a bookmark_uri key to bookmarks returned by get_bookmark() and get_resources()
• an individual bookmark can be returned as JSON by passing a "?format=json" parameter to the individual bookmark GET request

File:

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

trunk/Bookmarks.pm

@@ -4 +4 @@
 use Bookmark;
 
-has dbh => ( is => 'ro');
+has dbh      => ( is => 'ro' );
+has base_uri => ( is => 'ro' );
 
 sub get_bookmark {
@@ -24 +25 @@
         $sth_tag->execute($bookmark->{uri});
         $bookmark->{tags} = [ map { $$_[0] } @{ $sth_tag->fetchall_arrayref } ];
+        if ($self->base_uri) {
+            $bookmark->{bookmark_uri} = $self->base_uri . $bookmark->{id};
+        }
     }
     return $bookmark;
@@ -46 +50 @@
         $sth_tag->execute($resource->{uri});
         $resource->{tags} = [ map { $$_[0] } @{ $sth_tag->fetchall_arrayref } ];
+        if ($self->base_uri) {
+            $resource->{bookmark_uri} = $self->base_uri . $resource->{id};
+        }
         push @resources, $resource;
     }