1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
<SELECT NAME = "invoice_terms"
ID = "invoice_terms"
<% $opt{'disabled'} ? 'DISABLED' : ''%>
>
# #false laziness w/select-table.html
% while ( @pre_options ) {
% my $pre_opt = shift(@pre_options);
% my $pre_label = shift(@pre_options);
% my $selected = # ( ref($value) && $value->{$pre_opt} ) ||
% ( $curr_value eq $pre_opt );
<OPTION VALUE="<% $pre_opt %>"
<% $selected ? 'SELECTED' : '' %>
><% $pre_label %>
% }
<OPTION VALUE="<% $empty_value %>"><% $empty_label %>
% foreach my $term ( @terms ) {
<OPTION VALUE="<% $term %>" <% $curr_value eq $term ? ' SELECTED' : '' %>><% $term %>
% }
</SELECT>
<%init>
my %opt = @_;
my $curr_value = $opt{'curr_value'};
my $conf = new FS::Conf;
my $empty_label =
$opt{'empty_label'}
|| emt('Default').' ('.
($conf->config('invoice_default_terms') || emt('Payable upon receipt')).
')';
my $empty_value = $opt{'empty_value'} || '';
my @terms = ( emt('Payable upon receipt'),
( map "Net $_",
0, 3, 5, 9, 10, 14, 15, 18, 20, 21, 25, 30, 45, 60, 90 ),
);
my @pre_options = $opt{pre_options} ? @{ $opt{pre_options} } : ();
</%init>
|
