+ $query = $DBH->prepare(q{SELECT DISTINCT ON(rid) tick,category,name,amount
+ FROM planet_data pd JOIN planet_data_types pdt ON pd.rid = pdt.id
+ WHERE pd.id = $1 ORDER BY rid,tick DESC
+ });
+ $query->execute($planet_id);
+ my @pdata;
+ $i = 0;
+ while (my $data = $query->fetchrow_hashref){
+ $data->{ODD} = ++$i % 2;
+ $data->{amount} =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g; #Add comma for ever 3 digits, i.e. 1000 => 1,000
+ push @pdata,$data;
+ }
+ $BODY->param(PlanetData => \@pdata);
+