Changeset 75 in bookmarks for trunk

Timestamp:

04/11/14 11:03:53 (11 years ago)

Author:

peter

Message:

• added a collection attribute to the Bookmark class
• added an update() method to the Bookmark class that calls the collection->update() method, if the collection is set
• Bookmarks::Controller::update_and_redirect() calls Bookmark::update()

Location:

trunk/lib

Files:

• Bookmark.pm (modified) (2 diffs)
• Bookmarks.pm (modified) (3 diffs)
• Bookmarks/Controller.pm (modified) (1 diff)

trunk/lib/Bookmark.pm

@@ -17 +17 @@
 has bookmark_uri => ( is => 'rw' );
 has exists => ( is => 'ro' );
+has collection => ( is => 'ro' );
 
 sub created { scalar localtime $_[0]->ctime }
@@ -44 +45 @@
 }
 
+sub update {
+    my $self = shift;
+    die "Not part of a collection; nowhere to write this bookmark" unless $self->collection;
+    return $self->collection->update($self);
+}
+
 # module return
 1;

trunk/lib/Bookmarks.pm

@@ -67 +67 @@
     return Bookmark->new({
         %$bookmark,
-        exists   => 1,
-        tags     => [ $self->get_tags({ uri => $bookmark->{uri} }) ],
-        base_uri => $self->base_uri,
+        exists     => 1,
+        tags       => [ $self->get_tags({ uri => $bookmark->{uri} }) ],
+        base_uri   => $self->base_uri,
+        collection => $self,
     });
 }
@@ -110 +111 @@
         push @resources, Bookmark->new({
             %$resource,
-            tags     => [ $self->get_tags({ uri => $resource->{uri} }) ],
-            base_uri => $self->base_uri,
+            exists     => 1,
+            tags       => [ $self->get_tags({ uri => $resource->{uri} }) ],
+            base_uri   => $self->base_uri,
+            collection => $self,
         });
     }
@@ -184 +187 @@
     my $bookmark = shift;
 
+    #TODO: accept a pre-made Bookmark object in addition to a hash
     my $uri = $bookmark->{uri};
     my $title = $bookmark->{title};

trunk/lib/Bookmarks/Controller.pm

@@ -203 +203 @@
 
         # write to the database
-        $self->bookmarks->update($bookmark);
+        $bookmark->update;
 
         #TODO: not RESTful; proper response would be a 200