Changeset 5892 in project


Ignore:
Timestamp:
09/03/07 20:49:55 (12 years ago)
Author:
sjamaan
Message:

Implement #315

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ajax/ajax.scm

    r1272 r5892  
    8787     url
    8888     (lambda (r a)
    89        (and lifetime (refresh-session sessionid lifetime))
    90        (let ((body
    91               (parameterize ((current-request r)
    92                              (current-urlencoded-arguments a))
     89       (parameterize ((current-request r)
     90                      (current-urlencoded-arguments a))
     91         (and lifetime (refresh-session sessionid lifetime))
     92         (let ((body
    9393                (if (eq? (ajax-output-format) 'shtml)
    9494                    (sxml->html (thunk))
    95                     (with-output-to-string thunk) ) ) ) )
    96          (write-response-header
    97           r 200 "OK"
    98           `(("Content-type" . "text/xml")
    99             ("Expires" . "Mon, 26 Jul 1997 05:00:00 GMT")
    100             ("Cache-Control" . "no-cache, must-revalidate") ; HTTP/1.1
    101             ("Pragma" . "no-cache")     ; HTTP/1.0
    102             ("Content-length" . ,(->string (string-length body))) ) )
    103          (printf "\r\n~a" body) ) ) )
     95                    (with-output-to-string thunk))))
     96           (parameterize ((current-response-headers
     97                           `(("Content-type" . "text/xml")
     98                             ("Expires" . "Mon, 26 Jul 1997 05:00:00 GMT")
     99                             ("Cache-Control" . "no-cache, must-revalidate") ; HTTP/1.1
     100                             ("Pragma" . "no-cache") ; HTTP/1.0
     101                             ("Content-length" . ,(->string (string-length body))))))
     102            (write-response-header))
     103           (printf "\r\n~a" body)))))
    104104    (if (null? arguments)
    105105        url
Note: See TracChangeset for help on using the changeset viewer.