diff options
author | ivan <ivan> | 2007-01-31 04:26:44 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-01-31 04:26:44 +0000 |
commit | 89cb729e71c400307f47eef8e9e0b295db2dfca0 (patch) | |
tree | 3ff63709612fba1af0bc490ab66aa060db61b5eb /httemplate/elements/select-taxclass.html | |
parent | bbf490232a0805750ae946da1fa7c4006d0adafa (diff) |
minor UI work on one-time charges w/taxclasses
Diffstat (limited to 'httemplate/elements/select-taxclass.html')
-rw-r--r-- | httemplate/elements/select-taxclass.html | 48 |
1 files changed, 23 insertions, 25 deletions
diff --git a/httemplate/elements/select-taxclass.html b/httemplate/elements/select-taxclass.html index 495572323..3c1558b72 100644 --- a/httemplate/elements/select-taxclass.html +++ b/httemplate/elements/select-taxclass.html @@ -1,40 +1,38 @@ -% -% my $conf = new FS::Conf; -% my $selected_taxclass = scalar(@_) ? shift : ''; -% % if ( $conf->exists('enable_taxclasses') ) { - <SELECT NAME="taxclass"> -% if ( $conf->exists('require_taxclasses') ) { - +% if ( $conf->exists('require_taxclasses') ) { <OPTION VALUE="(select)">Select tax class -% } else { - - +% } else { <OPTION VALUE=""> -% } -% -% my $sth = dbh->prepare('SELECT DISTINCT taxclass FROM cust_main_county') -% or die dbh->errstr; -% $sth->execute or die $sth->errstr; -% my %taxclasses = map { $_->[0] => 1 } @{$sth->fetchall_arrayref}; -% my @taxclasses = grep $_, keys %taxclasses; -% -% foreach my $taxclass ( @taxclasses ) { - - - <OPTION VALUE="<% $taxclass %>"<% $taxclass eq $selected_taxclass ? ' SELECTED' : '' %>><% $taxclass %> -% } +% } +% foreach my $taxclass ( @{ $opt{'taxclasses'} } ) { + <OPTION VALUE="<% $taxclass %>"<% $taxclass eq $selected_taxclass ? ' SELECTED' : '' %>><% $taxclass %> +% } </SELECT> -% } else { +% } else { <INPUT TYPE="hidden" NAME="taxclass" VALUE="<% $selected_taxclass %>"> + % } - +<%init> + +my( $selected_taxclass, %opt ) = @_; +my $conf = new FS::Conf; + +unless ( $opt{'taxclasses'} ) { + + my $sth = dbh->prepare('SELECT DISTINCT taxclass FROM cust_main_county') + or die dbh->errstr; + $sth->execute or die $sth->errstr; + my %taxclasses = map { $_->[0] => 1 } @{$sth->fetchall_arrayref}; + @{ $opt{'taxclasses'} } = grep $_, keys %taxclasses; + +} +</%init> |