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