diff options
author | ivan <ivan> | 2004-10-26 11:26:35 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-10-26 11:26:35 +0000 |
commit | 6fe8172b11d0369d0b1274d6825ec0c57afe8001 (patch) | |
tree | 0d6c9abe6b7f9a14c40db8c4360849a5aa583077 /FS/FS/CGI.pm | |
parent | 717d562bcfb691d971a01b738d0b55cdda480cf0 (diff) |
modular price plans!
Diffstat (limited to 'FS/FS/CGI.pm')
-rw-r--r-- | FS/FS/CGI.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 1ddc62c..9b406d3 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -252,10 +252,11 @@ Returns HTML tag for beginning an (invisible) table. sub itable { my $col = shift; my $cellspacing = shift || 0; + my $width = ( scalar(@_) && shift ) ? '' : 'WIDTH="100%"'; #bah if ( $col ) { - qq!<TABLE BGCOLOR="$col" BORDER=0 CELLSPACING=$cellspacing WIDTH="100%">!; + qq!<TABLE BGCOLOR="$col" BORDER=0 CELLSPACING=$cellspacing $width>!; } else { - qq!<TABLE BORDER=0 CELLSPACING=$cellspacing WIDTH="100%">!; + qq!<TABLE BORDER=0 CELLSPACING=$cellspacing $width>!; } } |