X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=lib%2FNDWeb%2FInclude.pm;h=4b94597e79c7857d63e92e6b4fbc3f317dd3d69e;hb=f9f06136c85f9634c409b71e18452c358530556e;hp=ff5a8825a20fc9f39ec0e62cea7ad0b6bdcfb389;hpb=b56f06604e4e01c764201b73bfe6c1d746942516;p=ndwebbie.git

diff --git a/lib/NDWeb/Include.pm b/lib/NDWeb/Include.pm
index ff5a882..4b94597 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/;
+	alliances intelquery html_escape
+	comma_value/;
 
 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) = @_;