From af689cba3b153e212c3c67f518309a03b06186a9 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 2 Jun 2008 18:31:07 +0000
Subject: [PATCH] fix ntable calls

---
 FS/FS/UI/Web/small_custview.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/FS/FS/UI/Web/small_custview.pm b/FS/FS/UI/Web/small_custview.pm
index 4c705c159..079ae9368 100644
--- a/FS/FS/UI/Web/small_custview.pm
+++ b/FS/FS/UI/Web/small_custview.pm
@@ -112,5 +112,18 @@ sub small_custview {
   $html;
 }
 
+#bah.  don't want to pull in all of FS::CGI, that's the whole problem in the
+#first place
+sub ntable {
+  my $col = shift;
+  my $cellspacing = shift || 0;
+  if ( $col ) {
+    qq!<TABLE BGCOLOR="$col" BORDER=0 CELLSPACING=$cellspacing>!;
+  } else {
+    '<TABLE BORDER CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999">';
+  }
+
+}
+
 1;
 
-- 
2.11.0