Overview
| Comment: | Added direct access to pg conn |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
57f91bc5c85ea191c33936f8af5535d8 |
| User & Date: | matt on 2012-08-08 15:06:55 |
| Other Links: | manifest | tags |
Context
|
2012-12-11
| ||
| 02:59 | docs-tweak check-in: bec5075b24 user: matt tags: trunk | |
|
2012-08-08
| ||
| 15:06 | Added direct access to pg conn check-in: 57f91bc5c8 user: matt tags: trunk | |
|
2012-08-04
| ||
| 20:55 | Basic twiki now working but still buggy check-in: 1a58be0746 user: matt tags: trunk | |
Changes
Modified session.scm from [5ace07e7c5] to [8cf5e377cc].
| ︙ | ︙ | |||
26 27 28 29 30 31 32 33 34 35 36 37 38 39 | ;; ;; make-vector-record session session dbtype dbinit conn params path-params session-key session-id domain toppage page curr-page content-type page-type sroot twikidir pagedat alt-page-dat pagevars pagevars-before sessionvars sessionvars-before globalvars globalvars-before logpt formdat request-method session-cookie curr-err log-port logfile seen-pages page-dir-style debugmode (define (make-sdat)(make-vector 33)) (define (sdat-get-dbtype vec) (vector-ref vec 0)) (define (sdat-get-dbinit vec) (vector-ref vec 1)) (define (sdat-get-conn vec) (vector-ref vec 2)) (define (sdat-get-params vec) (vector-ref vec 3)) (define (sdat-get-path-params vec) (vector-ref vec 4)) (define (sdat-get-session-key vec) (vector-ref vec 5)) (define (sdat-get-session-id vec) (vector-ref vec 6)) (define (sdat-get-domain vec) (vector-ref vec 7)) (define (sdat-get-toppage vec) (vector-ref vec 8)) (define (sdat-get-page vec) (vector-ref vec 9)) | > | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | ;; ;; make-vector-record session session dbtype dbinit conn params path-params session-key session-id domain toppage page curr-page content-type page-type sroot twikidir pagedat alt-page-dat pagevars pagevars-before sessionvars sessionvars-before globalvars globalvars-before logpt formdat request-method session-cookie curr-err log-port logfile seen-pages page-dir-style debugmode (define (make-sdat)(make-vector 33)) (define (sdat-get-dbtype vec) (vector-ref vec 0)) (define (sdat-get-dbinit vec) (vector-ref vec 1)) (define (sdat-get-conn vec) (vector-ref vec 2)) (define (sdat-get-pgconn vec) (vector-ref (vector-ref vec 2) 1)) (define (sdat-get-params vec) (vector-ref vec 3)) (define (sdat-get-path-params vec) (vector-ref vec 4)) (define (sdat-get-session-key vec) (vector-ref vec 5)) (define (sdat-get-session-id vec) (vector-ref vec 6)) (define (sdat-get-domain vec) (vector-ref vec 7)) (define (sdat-get-toppage vec) (vector-ref vec 8)) (define (sdat-get-page vec) (vector-ref vec 9)) |
| ︙ | ︙ |