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' : '' %> >all
   8 % }
   9
  10 % foreach my $option ( keys %{ $opt{'paybys'} } ) {
  11 %   my $sel = ( ref($value) && $value->{$option} ) || $option eq $value;
  12
  13     <OPTION VALUE="<% $option %>"
  14             <% $sel ? 'SELECTED' : '' %>
  15     ><% $opt{'paybys'}->{$option} %>
  16
  17 % }
  18
  19 </SELECT>
  20
  21 <%init>
  22
  23 my %opt = @_;
  24
  25 my $method = 'payby';
  26 $method = 'cust_payby'  if $opt{'payby_type'} eq 'cust';
  27 #$method = 'event_payby' if $opt{'payby_type'} eq 'event';
  28 #$method = 'pay_payby'   if $opt{'payby_type'} eq 'pay';
  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>