[freeside-commits] freeside/FS/FS/UI/Web small_custview.pm, 1.1.2.4, 1.1.2.5

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/UI/Web
In directory wavetail.420.am:/tmp/cvs-serv2843

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	small_custview.pm 
Log Message:
fix ntable calls

Index: small_custview.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/UI/Web/small_custview.pm,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -d -r1.1.2.4 -r1.1.2.5
--- small_custview.pm	2 Jun 2008 17:22:46 -0000	1.1.2.4
+++ small_custview.pm	2 Jun 2008 18:31:08 -0000	1.1.2.5
@@ -112,5 +112,18 @@
   $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;