- $hashref->{country} |
-END
+ <%= $hashref->{country} %> |
+
+ <%
my $j;
if ( $sup ) {
@@ -74,69 +77,73 @@ END
$j = 1;
}
- print "{state}
+ %>
+
+ | <%=
+ $hashref->{state}
? ' BGCOLOR="#ffffff">'. $hashref->{state}
: qq! BGCOLOR="#cccccc">(ALL) !.
qq!expand country!;
-
- print qq! collapse state! if $j>1;
-
- print " | ";
- }
-
-# $sup=$newsup;
-
- print "{county} ) {
- print ' BGCOLOR="#ffffff">'. $hashref->{county};
- } else {
- print ' BGCOLOR="#cccccc">(ALL)';
- if ( $hashref->{state} ) {
- print qq!!.
- qq!expand state!;
- }
- }
- print " | ";
-
- print "{taxclass} ) {
- print ' BGCOLOR="#ffffff">'. $hashref->{taxclass};
- } else {
- print ' BGCOLOR="#cccccc">(ALL)';
- if ( $enable_taxclasses ) {
- print qq!!.
- qq!expand taxclasses!;
- }
-
- }
- print " | ";
-
- print "{taxname} ) {
- print ' BGCOLOR="#ffffff">'. $hashref->{taxname};
- } else {
- print ' BGCOLOR="#cccccc">Tax';
- }
- print " | ";
-
- print "$hashref->{tax}% | ".
- '';
- print '$'. sprintf("%.2f", $hashref->{exempt_amount} ).
- ' per month '
- if $hashref->{exempt_amount} > 0;
- print 'Setup fee ' if $hashref->{setuptax} =~ /^Y$/i;
- print 'Recurring fee ' if $hashref->{recurtax} =~ /^Y$/i;
- print ' |
';
-
-}
-
-print <