httemplate/elements/select-payby.html

   1 <SELECT NAME="<% $opt{'field'} || 'payby' %>"
   2         <% $opt{'multiple'} ? 'MULTIPLE' : '' %>
   3         <% $onchange %>
   4 >
   5
   6 % unless ( $opt{'multiple'} ) {
   7     <OPTION VALUE="" <% '' eq $value ? 'SELECTED' : '' %> ><% mt('all') |h %>
   8 % }
   9
  10 % foreach my $option ( keys %{ $opt{'paybys'} } ) {
  11 %   my $sel = $opt{'all_selected'}
  12 %               || ( ref($value) && $value->{$option} )
  13 %               || $option eq $value;
  14
  15     <OPTION VALUE="<% $option %>"
  16             <% $sel ? 'SELECTED' : '' %>
  17     ><% $opt{'paybys'}->{$option} %>
  18
  19 % }
  20
  21 </SELECT>
  22
  23 <%init>
  24
  25 my %opt = @_;
  26
  27 my $method = 'payby';
  28 $method = 'cust_payby'  if $opt{'payby_type'} eq 'cust';
  29
  30 unless ( $opt{'paybys'} ) {
  31   tie %{ $opt{'paybys'} }, 'Tie::IxHash', FS::payby->$method();
  32 }
  33
  34 my $onchange = $opt{'onchange'}
  35                  ? 'onChange="'. $opt{'onchange'}. '(this)"'
  36                  : '';
  37
  38 my $value = $opt{'curr_value'} || $opt{'value'};
  39
  40 </%init>