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 Unified 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


;; 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")



;;
(define (s:get-page-params)
  (sdat-get-page-params s:session))


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

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









>
>
>
|
|
|
>








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-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))
︙︙