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