Changeset 24 in bookmarks for trunk

Timestamp:

05/22/13 21:24:00 (12 years ago)

Author:

peter

Message:

Bookmarks takjes an actual URI object as its base_uri attribute

Location:

trunk

Files:

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

trunk/BookmarkApp.pm

@@ -21 +21 @@
 my $bookmarks = Bookmarks->new({
     dbname   => $dbname,
-    base_uri => $base_uri->canonical,
+    base_uri => $base_uri,
 });
 

trunk/Bookmarks.pm

@@ -3 +3 @@
 use Moose;
 use SQL::Interp qw{:all};
+use URI;
 use Bookmark;
 
 has dbh      => ( is => 'rw' );
-has base_uri => ( is => 'ro' );
+has base_uri => ( is => 'ro', isa => 'URI' );
 
 sub BUILD {
@@ -44 +45 @@
         $bookmark->{tags} = [ map { $$_[0] } @{ $sth_tag->fetchall_arrayref } ];
         if ($self->base_uri) {
-            $bookmark->{bookmark_uri} = $self->base_uri . $bookmark->{id};
+            $bookmark->{bookmark_uri} = URI->new_abs($bookmark->{id}, $self->base_uri);
         }
     }
@@ -90 +91 @@
         $resource->{tags} = [ map { $$_[0] } @{ $sth_tag->fetchall_arrayref } ];
         if ($self->base_uri) {
-            $resource->{bookmark_uri} = $self->base_uri . $resource->{id};
+            $resource->{bookmark_uri} = URI->new_abs($resource->{id}, $self->base_uri);
         }
         push @resources, $resource;