blob: 1ca586e605b349071739f5f11a323935bace2d47 (
plain)
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
|
<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'}
|| 'Default ('.
($conf->config('invoice_default_terms') || 'Payable upon receipt').
')';
my $empty_value = $opt{'empty_value'} || '';
my @terms = ( 'Payable upon receipt',
( map "Net $_", 0, 10, 15, 20, 30, 45, 60, 90 ),
);
my @pre_options = $opt{pre_options} ? @{ $opt{pre_options} } : ();
</%init>
|
