X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=lib%2FNDWeb%2FController%2FMembers.pm;h=b9ae443ce5a994b3ca3e97e034f4608f41919eb6;hb=935116e73806d105bf3097b62e3e231fe834d672;hp=9d7afba326683372967ff0506b66bc589983667e;hpb=ee8c0983439647a8e652e4a344d3958e01219f92;p=ndwebbie.git

diff --git a/lib/NDWeb/Controller/Members.pm b/lib/NDWeb/Controller/Members.pm
index 9d7afba..b9ae443 100644
--- a/lib/NDWeb/Controller/Members.pm
+++ b/lib/NDWeb/Controller/Members.pm
@@ -279,6 +279,7 @@ sub points : Local {
 	my ( $self, $c, $order ) = @_;
 	my $dbh = $c->model;
 
+	$order //= 'total_points';
 	if ($order ~~ /^((?:defense|attack|total|humor|scan|raid)_points)$/
 			|| $order ~~ /^(defprio)$/){
 		$order = "$1 DESC";
@@ -307,6 +308,7 @@ sub stats : Local {
 	my ( $self, $c, $order ) = @_;
 	my $dbh = $c->model;
 
+	$order //= 'score';
 	if ($order ~~ /^(scre|value|xp|size|race)$/){
 		$order = "$1rank";
 	}else{
@@ -366,6 +368,11 @@ sub postintelmessage : Local {
 		}
 	}
 
+	my ($coords,$tick) = $c->model->selectrow_array(q{
+SELECT coords(x,y,z), tick() FROM current_planet_stats WHERE pid = $1
+		}, undef, $c->user->planet);
+
+	$c->req->param(message => "[i]Posted by $coords at tick $tick [/i]\n\n" . $c->req->param('message'));
 	$c->forward('/forum/insertThread',[12]);
 	$c->forward('/forum/insertPost',[$c->stash->{thread}]);
 	$c->flash(intelmessage => 1);