From 10cef9a090f6d1da55224189006f7bc1847159a8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 2 Feb 2006 20:49:54 +0000 Subject: [PATCH] Generate HTTP header _after_ editing document. --- v7/src/ssp/xhtml-expander.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/v7/src/ssp/xhtml-expander.scm b/v7/src/ssp/xhtml-expander.scm index d0d871dd5..2a2bee9e1 100644 --- a/v7/src/ssp/xhtml-expander.scm +++ b/v7/src/ssp/xhtml-expander.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: xhtml-expander.scm,v 1.7 2006/02/02 20:08:24 cph Exp $ +$Id: xhtml-expander.scm,v 1.8 2006/02/02 20:49:54 cph Exp $ Copyright 2002,2003,2004,2006 Massachusetts Institute of Technology @@ -35,11 +35,6 @@ USA. (let ((document (read/expand-xml-file pathname (make-expansion-environment pathname)))) - (if (in-mod-lisp?) - (http-response-header 'content-type - (string-append (html-content-type) - "; charset=" - (xml-document-charset document)))) (if (not (xml-document-declaration document)) (set-xml-document-declaration! document (make-xml-declaration "1.0" #f #f))) @@ -62,6 +57,11 @@ USA. (universal-time->local-time-string (get-universal-time)) ". ")) (xml-element-contents root)))) + (if (in-mod-lisp?) + (http-response-header 'content-type + (string-append (html-content-type) + "; charset=" + (xml-document-charset document)))) (write-xml document port 'INDENT-DTD? #t))) (define (xml-document-charset document) -- 2.25.1