Changeset 43 in bookmarks for trunk

Timestamp:

05/31/13 12:40:09 (12 years ago)

Author:

peter

Message:

• don't append an extra '/' to the end of the base_uri
• save the created/edited bookmark object, and use its bookmark_uri as the redirection location after a POST

File:

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

trunk/BookmarkApp.pm

@@ -27 +27 @@
     $base_uri->host($ENV{SERVER_NAME});
     $base_uri->port($ENV{SERVER_PORT});
-    $base_uri->path($ENV{SCRIPT_NAME} . '/');
+    $base_uri->path($ENV{SCRIPT_NAME});
 
     my $bookmarks = Bookmarks->new({
@@ -370 +370 @@
     my $title = $q->param('title');
     my @tags = split ' ', $q->param('tags');
-    $self->_bookmarks->add({
+    my $bookmark = $self->_bookmarks->add({
         uri   => $uri,
         title => $title,
@@ -387 +387 @@
     $self->header_type('redirect');
     $self->header_props(
-        -uri => $ENV{REQUEST_URI},
+        -uri => $bookmark->bookmark_uri->canonical,
         -status => 303,
     );