scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

server-generated webpages -> XHTML 1.0 Strict: 

add XML namespace declaration to html element
This commit is contained in:
vibr 2004-08-13 15:49:19 +00:00
parent 6969b80206
commit 06ec0f0293
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/file-dir-handler.scm
View File

@ -416,7 +416,7 @@
(file-directory-options-back-icon-url options)) (file-directory-options-back-icon-url options))
(blank-icon (blank-icon
(file-directory-options-blank-icon-url options))) (file-directory-options-blank-icon-url options)))
(with-tag port html () (with-tag port html (xmlnsdecl-attr)
(let ((title (string-append "Index of /" (let ((title (string-append "Index of /"
(string-join file-path "/")))) (string-join file-path "/"))))
(with-tag port head () (with-tag port head ()

2
scheme/httpd/info-gateway.scm
View File

@ -440,7 +440,7 @@
(receive (port file-header node-header up-header prev-header next-header) (receive (port file-header node-header up-header prev-header next-header)
(find-node file node find-file) (find-node file node find-file)
(with-tag out html () (with-tag out html (xmlnsdecl-attr)
(with-tag out head () (with-tag out head ()
(display-title file node-header up-header (display-title file node-header up-header
prev-header next-header prev-header next-header