blob: b2d542190415c7483ec5a28594c6e017430ddf5c (
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
  | 
<SELECT NAME="<% $opt{'field'} || 'payby' %>"
        <% $opt{'multiple'} ? 'MULTIPLE' : '' %>
        <% $onchange %>
>
% unless ( $opt{'multiple'} ) {
    <OPTION VALUE="" <% '' eq $value ? 'SELECTED' : '' %> ><% mt('all') |h %> 
% }
% 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';
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>
  |