blob: e0fb4f07d721050186dbcf340036532eb4bc19c5 (
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
42
|
<SELECT NAME="<% $opt{'field'} || 'payby' %>"
<% $opt{'multiple'} ? 'MULTIPLE' : '' %>
<% $onchange %>
>
% unless ( $opt{'multiple'} ) {
<OPTION VALUE="" <% '' eq $value ? 'SELECTED' : '' %> >all
% }
% foreach my $option ( keys %{ $opt{'paybys'} } ) {
% my $sel = $opt{'all_selected'}
% || ( ref($value) && $value->{$option} )
% || $option eq $value;
<OPTION VALUE="<% $option %>"
<% $sel ? 'SELECTED' : '' %>
><% $opt{'paybys'}->{$option} %>
% }
</SELECT>
<%init>
my %opt = @_;
my $method = 'payby';
$method = 'cust_payby' if $opt{'payby_type'} eq 'cust';
#$method = 'event_payby' if $opt{'payby_type'} eq 'event';
#$method = 'pay_payby' if $opt{'payby_type'} eq 'pay';
unless ( $opt{'paybys'} ) {
tie %{ $opt{'paybys'} }, 'Tie::IxHash', FS::payby->$method();
}
my $onchange = $opt{'onchange'}
? 'onChange="'. $opt{'onchange'}. '(this)"'
: '';
my $value = $opt{'curr_value'} || $opt{'value'};
</%init>
|
