Fix edit-blog action

2008-09-29 23:29:51 -05:00 · 2008-09-29 23:29:51 -05:00 · 94872bd43a
parent 0dff27507d
commit 94872bd43a
1 changed files with 6 additions and 6 deletions
--- a/extra/webapps/planet/planet.factor
+++ b/extra/webapps/planet/planet.factor
@ -166,14 +166,14 @@ posting "POSTINGS"
        [
            f <blog>
            [ deposit-blog-slots ]
+            [ "id" value >>id ]
            [ update-tuple ]
-            [
-                <url>
-                    "$planet/admin" >>path
-                    swap id>> "id" set-query-param
-                <redirect>
-            ]
            tri
+
+            <url>
+                "$planet/admin" >>path
+                "id" value "id" set-query-param
+            <redirect>
        ] >>submit ;

 : <planet-admin> ( -- responder )