Update to new database structure

[NDIRC.git] / Commands / PA.pm

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 808f4092020ef9b67dc9addaa3ba0441009783b7..2dcb00671d0c90ccc3355f138606ffd50ce7100d 100644 (file)
--- a/Commands/PA.pm
+++ b/Commands/PA.pm
@@ -126,7 +126,7 @@ sub xp
 
        my ($avalue,$ascore) = $c->model->selectrow_array(q{
 SELECT value,score FROM current_planet_stats
-WHERE id = (SELECT planet FROM users WHERE hostmask ILIKE ?)
+WHERE pid = (SELECT pid FROM users WHERE hostmask ILIKE ?)
                }, undef, $c->host);
        my ($tvalue,$tscore,$tsize) = $c->model->selectrow_array(q{
 SELECT value,score,size FROM current_planet_stats
@@ -167,7 +167,7 @@ sub fco
 
        my ($value,$score) = $c->model->selectrow_array(q{
 SELECT value,score FROM planet_stats WHERE tick = $2 AND
-       id = (SELECT planet FROM users WHERE hostmask ILIKE $1)
+       pid = (SELECT pid FROM users WHERE hostmask ILIKE $1)
                }, undef, $c->host,$tick);
        unless ($value){
                $c->reply("You don't have a planet registered.");
@@ -175,7 +175,7 @@ SELECT value,score FROM planet_stats WHERE tick = $2 AND
        }
        my $attackers = $c->model->prepare(q{
 SELECT coords(p.x,p.y,p.z), ruler, planet FROM current_planet_stats p
-       JOIN planet_stats ps using (id)
+       JOIN planet_stats ps using (pid)
 WHERE ps.tick = $1 AND trunc(2000.0*$2*$3/ps.value)::int = $4
                });
        $attackers->execute($tick,$agents,$value,$stolen);