summaryrefslogtreecommitdiff
path: root/httemplate/elements/select-cust-fields.html
blob: 4d47fbe402d99536ead324201e66ee52c71140b0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<%
  my( $cust_fields, %opt ) = @_;

  use FS::ConfDefaults;
  $opt{'avail_fields'} ||= [ FS::ConfDefaults->cust_fields_avail() ];

  tie my %hash, 'Tie::IxHash', @{ $opt{'avail_fields'} };

%>

<SELECT NAME="cust_fields">

  <OPTION VALUE="">(configured default)

  <% 
     foreach my $value ( keys %hash ) { %>

       <OPTION VALUE="<%= $value %>"><%= $hash{$value} %>

  <% } %>

</SELECT>