Changeset 27273 in project

Timestamp:

08/20/12 22:28:11 (9 years ago)

Author:

sjamaan

Message:

Qwiki: fix bug in call to read-urlencoded-request-data

File:

• release/4/qwiki/trunk/qwiki.scm (modified) (2 diffs)

release/4/qwiki/trunk/qwiki.scm

@@ -295 +295 @@
          (auth-required (requires-authentication? source-file))
          (postdata (if (eq? 'POST (request-method req))
-                       (read-urlencoded-request-data)
+                       (read-urlencoded-request-data req)
                        '()))
          (new-file (not (file-exists? source-file)))
@@ -654 +654 @@
                ((cdr handler) (current-request))))
          ((any impossible-filename? (cdr (uri-path uri))) ; should be absolute
-          (read-urlencoded-request-data) ; Discard possible sent data
+          (read-urlencoded-request-data req) ; Discard possible sent data
           (send-status 404 "Not found"))
          (else (let* ((action (->symbol (alist-ref