[Axiom-developer] 20071014.01.acr.patch

[daly]

This patch restores the correct page type handling for ContentType
=====================================================================
diff --git a/changelog b/changelog
index 7608e21..ea3d202 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20071014 acr src/algebra/axserver.spad use getContentType(pathvar)
 20071013 acr license/license.ralfs license rewrite
 20071013 acr src/interp/http.lisp faster page service
 20071013 acr src/algebra/axserver.spad faster page service
diff --git a/src/algebra/axserver.spad.pamphlet 
b/src/algebra/axserver.spad.pamphlet
index 791d851..741840f 100644
--- a/src/algebra/axserver.spad.pamphlet
+++ b/src/algebra/axserver.spad.pamphlet
@@ -95,7 +95,7 @@ AxiomServer: public == private where
        WriteLine("")$Lisp
        WriteLine("getFile begin")$Lisp
        if not null? PATHNAME_-NAME(PATHNAME(pathvar)$Lisp)$Lisp then
-           contentType:String := "application/xhtml+xml"
+           contentType:String := getContentType(pathvar)
           q := Open(pathvar)$Lisp
           if null? q then
             q := MAKE_-STRING_-INPUT_-STREAM("File doesn't exist")$Lisp