tedkulp/breezewiki
1
0
Fork 0
mirror of https://gitdab.com/cadence/breezewiki.git synced 2026-04-19 22:04:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

Rename ref parameter to next_location

Browse Source
This commit is contained in:
Cadence Ember
2022-12-04 23:44:35 +13:00
parent a661ddb313
commit ba3b39242c
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/data.rkt
+1 -1
View File
@@ -91,5 +91,5 @@
#:max-age (* 60 60 24 365 10))))) #:max-age (* 60 60 24 365 10)))))
(define (user-cookies-setter-url req new-settings) (define (user-cookies-setter-url req new-settings)
(format "/set-user-settings?~a" (params->query `(("ref" . ,(url->string (request-uri req))) (format "/set-user-settings?~a" (params->query `(("next_location" . ,(url->string (request-uri req)))
("new_settings" . ,(format "~a" new-settings)))))) ("new_settings" . ,(format "~a" new-settings))))))
src/page-set-user-settings.rkt
+2 -2
View File
@@ -12,7 +12,7 @@
(define (page-set-user-settings req) (define (page-set-user-settings req)
(response-handler (response-handler
(define ref (dict-ref (url-query (request-uri req)) 'ref)) (define next-location (dict-ref (url-query (request-uri req)) 'next_location))
(define new-settings (read (open-input-string (dict-ref (url-query (request-uri req)) 'new_settings)))) (define new-settings (read (open-input-string (dict-ref (url-query (request-uri req)) 'new_settings))))
(define headers (user-cookies-setter new-settings)) (define headers (user-cookies-setter new-settings))
(generate-redirect ref #:headers headers))) (generate-redirect next-location #:headers headers)))