Differences From Artifact [c2c51e03a9]:
- File setup.scm — part of check-in [4bccacb50f] at 2016-09-22 06:28:07 on branch trunk — Added safe handling for params (user: matt, size: 3718) [annotate] [blame] [check-ins using]
To Artifact [77c57eae95]:
- File setup.scm — part of check-in [44c407806c] at 2016-09-24 07:07:37 on branch trunk — Added recovery from bad form. but it is broken and I don't know why. Still seems rare ... (user: matt, size: 3769) [annotate] [blame] [check-ins using]
︙ | |||
77 78 79 80 81 82 83 84 85 86 87 88 89 90 | 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | + + | (define (s:session-var-get-n-del! key) (let ((val (session:page-get s:session key))) (session:del! s:session "*sessionvars*" key) val)) (define (s:session-var-del! key) (session:del! s:session "*sessionvars*" key)) (define s:session-var-delete! s:session-var-del!) ;; utility to get all vars as hash table (define (s:session-get-sessionvars) (sdat-get-sessionvars s:session)) ;; inputs ;; |
︙ |