64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
(define (s:get-n-del! key)
(let ((val (session:page-get s:session key)))
(session:del! s:session key)
val))
;; these are session wide
(define (s:session-var-get key)
(session:get s:session "*sessionvars*" key))
(define (s:session-var-set! key val)
(session:set! s:session "*sessionvars*" key val))
(define (s:session-var-get-n-del! key)
(let ((val (session:page-get s:session key)))
(session:del! s:session "*sessionvars*" key)
|
|
|
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
(define (s:get-n-del! key)
(let ((val (session:page-get s:session key)))
(session:del! s:session key)
val))
;; these are session wide
(define (s:session-var-get key . params)
(session:get s:session "*sessionvars*" key params))
(define (s:session-var-set! key val)
(session:set! s:session "*sessionvars*" key val))
(define (s:session-var-get-n-del! key)
(let ((val (session:page-get s:session key)))
(session:del! s:session "*sessionvars*" key)
|