X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=NDWeb%2FPages%2FAllianceRankings.pm;h=29bb2df612117c44e9a230674892cb2c12eed3d5;hb=b56f06604e4e01c764201b73bfe6c1d746942516;hp=bd0a2d5ccc71d5765585caaffe0e3f0f6c5e1058;hpb=d6c9085e748c4d61901aaea72f0e1546dcc7cdda;p=ndwebbie.git diff --git a/NDWeb/Pages/AllianceRankings.pm b/NDWeb/Pages/AllianceRankings.pm index bd0a2d5..29bb2df 100644 --- a/NDWeb/Pages/AllianceRankings.pm +++ b/NDWeb/Pages/AllianceRankings.pm @@ -17,15 +17,15 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * #**************************************************************************/ -package ND::Web::Pages::AllianceRankings; +package NDWeb::Pages::AllianceRankings; 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{alliancerankings} = __PACKAGE__; +$NDWeb::Page::PAGES{alliancerankings} = __PACKAGE__; sub parse { #TODO: Need to fix some links first @@ -81,7 +81,6 @@ sub render_body { ORDER BY $order LIMIT 100 OFFSET ?}); $query->execute($offset) or $error .= p($DBH->errstr); my @alliances; - my $i = 0; while (my $alliance = $query->fetchrow_hashref){ for my $type (qw/members size score avgsize avgscore/){ #$alliance->{$type} = prettyValue($alliance->{$type}); @@ -98,8 +97,6 @@ sub render_body { $alliance->{$type} =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g; #Add comma for ever 3 digits, i.e. 1000 => 1,000 } } - $i++; - $alliance->{ODD} = $i % 2; push @alliances,$alliance; } $BODY->param(Alliances => \@alliances);