+
+ $fleets->execute($c->stash->{target}->{pid});
+ $c->stash(def => $fleets->fetchall_arrayref({}));
+
+ $fleets = $dbh->prepare(q{
+SELECT tick, fid, race ,score , value
+FROM fleets f LEFT OUTER JOIN current_planet_stats p USING (pid)
+WHERE fid = $1 AND pid = $2
+ });
+ $fleets->execute($fid, $c->user->planet);
+ $c->stash(att => $fleets->fetchall_arrayref({}));
+
+ $c->forward('calcredir');
+}
+
+sub calcredir : Private {
+ my ($self, $c) = @_;
+ my $dbh = $c->model;
+
+ my @query = (
+ "def_structures=".($c->stash->{target}->{total} // 0),
+ "def_metal_asteroids=".($c->stash->{target}->{metal_roids} // 0),
+ "def_crystal_asteroids=".($c->stash->{target}->{crystal_roids} // 0),
+ "def_eonium_asteroids=".($c->stash->{target}->{eonium_roids} // 0),
+ );
+