X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FXMLPage.pm;h=b7e70151488fe02f7d40c349e13aa8fe0c0e0fb5;hb=c5cc1151b5a4f1e52eb577a78df1f79dfdc193db;hp=2a876a4cbff879584af9340606726bedb4e5f183;hpb=571b019af4b9e3e051447f82135bb630a4fb4db8;p=ndwebbie.git diff --git a/ND/Web/XMLPage.pm b/ND/Web/XMLPage.pm index 2a876a4..b7e7015 100644 --- a/ND/Web/XMLPage.pm +++ b/ND/Web/XMLPage.pm @@ -80,6 +80,9 @@ sub render : method { $self->process; my $type = 'text/html'; + if ($self->{HTTP_ACCEPT} =~ m{application/xhtml\+xml}){ + $type = 'application/xhtml+xml' + } my $body; if ($self->{XML}){ $type = 'text/xml'; @@ -92,6 +95,10 @@ sub render : method { $body = $self->render_body($body); + unless ($body){ + return; + } + unless ($self->{XML}){ my $fleetupdate = $DBH->selectrow_array('SELECT landing_tick FROM fleets WHERE uid = ? AND fleet = 0',undef,$self->{UID}); @@ -118,18 +125,12 @@ 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); 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;