# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::XMLPage;
+package NDWeb::XMLPage;
use strict;
use warnings;
use CGI qw/:standard/;
use HTML::Template;
use ND::Include;
-use ND::Web::Page;
-use ND::Web::Include;
+use NDWeb::Page;
+use NDWeb::Include;
-use base qw/ND::Web::Page/;
+use base qw/NDWeb::Page/;
sub noAccess () {
HTML::Template->new(filename => 'templates/NoAccess.tmpl', global_vars => 1, cache => 1);
$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});
}
}
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;