other media type, and fixes for that

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

diff --git a/ND/Web/XMLPage.pm b/ND/Web/XMLPage.pm
index c040c76c671d2a06f605e470f068c44b2ff7314a..f2353f4c0d2e8487d12bff8c313217e06268bcf9 100644 (file)
--- a/ND/Web/XMLPage.pm
+++ b/ND/Web/XMLPage.pm
@@ -27,7 +27,7 @@ use ND::Include;
 use ND::Web::Page;
 use ND::Web::Include;
 
-our @ISA = qw/ND::Web::Page/;
+use base qw/ND::Web::Page/;
 
 sub noAccess () {
        HTML::Template->new(filename => 'templates/NoAccess.tmpl', global_vars => 1, cache => 1);
@@ -79,7 +79,7 @@ sub render : method {
 
        $self->process;
 
-       my $type = 'text/html';
+       my $type = 'application/xhtml+xml';
        my $body;
        if ($self->{XML}){
                $type = 'text/xml';
@@ -125,11 +125,6 @@ sub render : method {
        my $output = $template->output;
        print header(-type=> $type, -charset => 'utf-8', -Content_Length => length $output);
        print $output;
-
-
-       $DBH->rollback unless $DBH->{AutoCommit};
-       $DBH->disconnect;
-
 };
 
 1;