1 2 3 4 5 6 7 8 9 10 11 12 13
<TABLE CLASS="grid" CELLSPACING=<% $opt{cellspacing} %> CELLPADDING=<% $opt{cellpadding} %> <% $opt{bgcolor} %>> <%init> my %opt = @_; $opt{cellspacing} ||= 0; $opt{cellpadding} ||= 0; $opt{bgcolor} =~ s/^#//; $opt{bgcolor} = 'BGCOLOR="#'. $opt{bgcolor}. '"' if length($opt{bgcolor}); </%init>