Optimize forum listing

[ndwebbie.git] / NDWeb / XMLPage.pm

diff --git a/NDWeb/XMLPage.pm b/NDWeb/XMLPage.pm
index 3e026080963f0fd4bcbe52dd322e199576e09379..ece5bdd877a69ac295e9e408cd4fafa178fce220 100644 (file)
--- a/NDWeb/XMLPage.pm
+++ b/NDWeb/XMLPage.pm
@@ -90,7 +90,8 @@ sub render : method {
                $template = HTML::Template->new(filename => "templates/xml.tmpl", cache => 1);
                $body = HTML::Template->new(filename => "templates/$self->{PAGE}.xml.tmpl", cache => 1);
        }else{
-               $body = HTML::Template->new(filename => "templates/$self->{PAGE}.tmpl", global_vars => 1, cache => 1);
+               $body = HTML::Template->new(filename => "templates/$self->{PAGE}.tmpl", global_vars => 1
+                       , cache => 1, loop_context_vars => 1, default_escape => 'HTML');
                $body->param(PAGE => $self->{PAGE});
        }
 
@@ -101,7 +102,8 @@ sub render : method {
        }
 
        unless ($self->{XML}){
-               my $fleetupdate = $DBH->selectrow_array('SELECT landing_tick FROM fleets WHERE uid = ? AND fleet = 0',undef,$self->{UID});
+               #TODO: Need to fix this with new stuff.
+               my $fleetupdate = $DBH->selectrow_array(q{SELECT tick FROM fleets WHERE sender = ? AND mission = 'Full fleet' AND tick > tick() - 24},undef,$self->{PLANET});
 
                $fleetupdate = 0 unless defined $fleetupdate;