minor changes

[ndwebbie.git] / ND / Web / XMLPage.pm

diff --git a/ND/Web/XMLPage.pm b/ND/Web/XMLPage.pm
index 68fd96b246b078f333d9dcd770fc4a432a0c26df..ccdb7c511a07897dbf5777ba78b2ecc8da6475a2 100644 (file)
--- a/ND/Web/XMLPage.pm
+++ b/ND/Web/XMLPage.pm
@@ -79,8 +79,10 @@ sub render : method {
 
        $self->process;
 
-       my $type = 'application/xhtml+xml';
-       $type = 'text/html' if $self->{USER_AGENT} =~ /MSIE/;
+       my $type = 'text/html';
+       if ($self->{HTTP_ACCEPT} =~ m{application/xhtml\+xml}){
+               $type = 'application/xhtml+xml'
+       }
        my $body;
        if ($self->{XML}){
                $type = 'text/xml';
@@ -119,7 +121,6 @@ sub render : method {
                my ($css) = $DBH->selectrow_array(q{SELECT css FROM users WHERE uid = $1},undef,$ND::UID);
                $template->param(CSS => $css);
                $template->param(TITLE => $self->{TITLE});
-
        }
        $template->param(Error => $ND::ERROR);
        $template->param(BODY => $body->output);