X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=lib%2FNDWeb%2FInclude.pm;h=1974724f7951ad1f3694efcfd8d301d86f00f2a0;hb=2c69d5fa71e2b4ddf7c9f5fa1880a9c69f70e43a;hp=ff5a8825a20fc9f39ec0e62cea7ad0b6bdcfb389;hpb=ffd7bf407e56bf271981151b6845f26ff1b366bc;p=ndwebbie.git

diff --git a/lib/NDWeb/Include.pm b/lib/NDWeb/Include.pm
index ff5a882..1974724 100644
--- a/lib/NDWeb/Include.pm
+++ b/lib/NDWeb/Include.pm
@@ -27,12 +27,19 @@ use CGI qw/:standard/;
 our @ISA = qw/Exporter/;
 
 our @EXPORT = qw/parseMarkup min max
-	alliances intelquery html_escape/;
+	intelquery html_escape
+	comma_value array_expand/;
 
 sub html_escape($) {
 	return CGI::escapeHTML @_;
 }
 
+sub comma_value ($) {
+	my ($v) = @_;
+	$v =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g;
+	return $v;
+}
+
 sub parseMarkup ($) {
 	my ($text) = @_;
 
@@ -64,20 +71,6 @@ sub max {
     return ($x < $y ? $y : $x);
 }
 
-
-sub alliances {
-	my ($alliance) = @_;
-	my @alliances;
-	$alliance = -1 unless defined $alliance;
-	push @alliances,{Id => -1, Name => '', Selected => not $alliance};
-	my $query = $ND::DBH->prepare(q{SELECT id,name FROM alliances ORDER BY LOWER(name)});
-	$query->execute;	
-	while (my $ally = $query->fetchrow_hashref){
-		push @alliances,{Id => $ally->{id}, Name => $ally->{name}, Selected => $alliance == $ally->{id}};
-	}
-	return @alliances;
-}
-
 sub intelquery {
 	my ($columns,$where) = @_;
 	return qq{
@@ -86,10 +79,23 @@ FROM (fleets i NATURAL JOIN users u)
 	JOIN current_planet_stats t ON i.target = t.id
 	JOIN current_planet_stats o ON i.sender = o.id
 WHERE $where 
-GROUP BY i.tick,i.mission,t.x,t.y,t.z,o.x,o.y,o.z,i.amount,i.ingal,u.username,t.alliance,o.alliance,t.nick,o.nick
+GROUP BY i.tick,i.mission,t.x,t.y,t.z,o.x,o.y,o.z,i.amount,i.ingal,u.username,t.alliance,o.alliance,t.nick,o.nick,i.sender,i.target
 ORDER BY i.tick DESC, i.mission};
 }
 
+sub array_expand ($) {
+	my ($array) = @_;
+
+	my @arrays;
+	for my $string (@{$array}){
+		$string =~ s/^\((.*)\)$/$1/;
+		$string =~ s/"//g;
+		my @array = split /,/, $string;
+		push @arrays,\@array;
+	}
+	return \@arrays;
+}
+
 
 
 1;