summaryrefslogtreecommitdiff
path: root/httemplate/elements/select-taxclass.html
diff options
context:
space:
mode:
authorivan <ivan>2007-01-31 04:26:44 +0000
committerivan <ivan>2007-01-31 04:26:44 +0000
commit89cb729e71c400307f47eef8e9e0b295db2dfca0 (patch)
tree3ff63709612fba1af0bc490ab66aa060db61b5eb /httemplate/elements/select-taxclass.html
parentbbf490232a0805750ae946da1fa7c4006d0adafa (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.html48
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>