Overview
Comment:Corrected get-path-params from get-page-params
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | selfcontained
Files: files | file ages | folders
SHA1: 460f848f5f6360bebaf877c8d173c37fb9314352
User & Date: matt on 2015-10-28 06:17:04
Other Links: branch diff | manifest | tags
Context
2015-11-15
02:20
deal somewhat gracefully with improper %num escaped char in URL Leaf check-in: 332033f93f user: matt tags: selfcontained
2015-10-28
06:17
Corrected get-path-params from get-page-params check-in: 460f848f5f user: matt tags: selfcontained
2015-10-27
03:54
Added s:button check-in: 6fc4c3e74b user: matt tags: selfcontained
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified setup.scm from [e52dd0f926] to [db7a7b2e0f].

︙
111
112
113
114
115
116
117



118
119
120




121
122
123
124
125
126
127

111
112
113
114
115
116
117
118
119
120



121
122
123
124
125
126
127
128
129
130
131








+
+
+
-
-
-
+
+
+
+









;; What to return when no value for key?
;;
(define (s:shared-get key)
  (hash-table-ref/default (sdat-get-shared-hash s:session) key #f))

;; http://foo.bar.com/pagename/p1/p2 => '("p1" "p2")
;;  #### DEPRECATED ####
(define (s:get-page-params)
  (sdat-get-path-params s:session))
;;
(define (s:get-page-params)
  (sdat-get-page-params s:session))

(define (s:get-path-params)
  (sdat-get-path-params s:session))
	

(define (s:db)
  (sdat-get-conn s:session))

(define (s:never-called-page? page)
  (session:never-called-page? s:session page))
︙