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

diff --git a/lib/NDWeb/Include.pm b/lib/NDWeb/Include.pm
index e35567a..4b94597 100644
--- a/lib/NDWeb/Include.pm
+++ b/lib/NDWeb/Include.pm
@@ -22,11 +22,23 @@ use strict;
 use warnings;
 require Exporter;
 use BBCode::Parser;
+use CGI qw/:standard/;
 
 our @ISA = qw/Exporter/;
 
 our @EXPORT = qw/parseMarkup min max
-	alliances intelquery /;
+	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) = @_;