X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=NDWeb%2FPages%2FPlanetRankings.pm;h=e74462624ffe666acb2dfeeece6ddebe82101b67;hb=eb2ec45ab96b0968c5bfc5d17ec6c6d7a57ebe37;hp=d40fa3356844ede716e74fa596c9500b694be68e;hpb=d6c9085e748c4d61901aaea72f0e1546dcc7cdda;p=ndwebbie.git diff --git a/NDWeb/Pages/PlanetRankings.pm b/NDWeb/Pages/PlanetRankings.pm index d40fa33..e744626 100644 --- a/NDWeb/Pages/PlanetRankings.pm +++ b/NDWeb/Pages/PlanetRankings.pm @@ -17,15 +17,15 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * #**************************************************************************/ -package ND::Web::Pages::PlanetRankings; +package NDWeb::Pages::PlanetRankings; use strict; use warnings FATAL => 'all'; use CGI qw/:standard/; -use ND::Web::Include; +use NDWeb::Include; -use base qw/ND::Web::XMLPage/; +use base qw/NDWeb::XMLPage/; -$ND::Web::Page::PAGES{planetrankings} = __PACKAGE__; +$NDWeb::Page::PAGES{planetrankings} = __PACKAGE__; sub parse { #TODO: Need to fix some links first @@ -78,7 +78,6 @@ sub render_body { $extra_columns FROM current_planet_stats_full ORDER BY $order LIMIT 100 OFFSET ?}); $query->execute($offset) or $error .= p($DBH->errstr); my @planets; - my $i = 0; while (my $planet = $query->fetchrow_hashref){ for my $type (qw/size score value xp/){ #$planet->{$type} = prettyValue($planet->{$type}); @@ -92,8 +91,6 @@ sub render_body { $planet->{$type} =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g; #Add comma for ever 3 digits, i.e. 1000 => 1,000 } } - $i++; - $planet->{ODD} = $i % 2; push @planets,$planet; } $BODY->param(Planets => \@planets);