proper tick for planetid

diff --git a/Intel.pm b/Intel.pm
index 1fc7680d1a5866afe745c3f77731f46696cc7db7..63c2ebdafab28c32815133d0f460ee808b42079e 100644 (file)
--- a/Intel.pm
+++ b/Intel.pm
@@ -41,7 +41,7 @@ sub setHostile {
                return;
        }
        if(my $user = dc()){
-               my $findid = $ND::DBH->prepare_cached(q{SELECT planetid(?,?,?,0)});
+               my $findid = $ND::DBH->prepare_cached(q{SELECT planetid(?,?,?,tick())});
                my ($id) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);
                my $rv = $ND::DBH->do(q{UPDATE planets SET planet_status = 'Hostile' WHERE id = $1},undef,$id);
                if ($rv == 1){
@@ -65,7 +65,7 @@ sub setNick {
        }
        if (my $user = officer){
                my $findid = $ND::DBH->prepare_cached(q{SELECT nick, id FROM planets
-                       WHERE id = planetid(?,?,?,0)});
+                       WHERE id = planetid(?,?,?,tick())});
                my ($oldnick,$id) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);
                if ($ND::DBH->do('UPDATE planets SET nick = $1 WHERE id = $2'
                                ,undef,$nick,$id)){