% if ( scalar(@{ $opt{'discount'} }) == 0 % && ! $curuser->access_right('Custom discount customer package') ) { % } else { <% $opt{'label'} || 'Discount' %> > <% include( '/elements/select-discount.html', 'curr_value' => $discountnum, 'onchange' => $name.'_changed', %opt, ) %> % # a weird kind of false laziness w/edit/discount.html <% include( '/elements/tr-select.html', 'label' => 'Discount Type', 'field' => $name. '__type', 'id' => $name. '__type', 'options' => \@_type_options, #XXX 'curr_value' => 'onchange' => '_type_changed', 'colspan' => $opt{'colspan'}, ) %> <% include( '/elements/tr-input-money.html', 'label' => 'Discount Amount', 'field' => $name. '_amount', 'id' => $name. '_amount', 'default' => '0.00', #XXX 'curr_value' => 'colspan' => $opt{'colspan'}, ) %> <% include( '/elements/tr-input-percentage.html', 'label' => 'Discount Percentage', 'field' => $name. '_percent', 'id' => $name. '_percent', 'default' => '0', #XXX 'curr_value' => 'colspan' => $opt{'colspan'}, ) %> <% include( '/elements/tr-input-text.html', 'label' => 'Discount # of Months', 'field' => $name. '_months', 'id' => $name. '_months', 'size' => 2, 'postfix' => qq((blank for non-expiring discount)), #XXX 'curr_value' => 'colspan' => $opt{'colspan'}, ) %> % } <%init> my %opt = @_; my $discountnum = $opt{'curr_value'} || $opt{'value'}; $opt{'discount'} ||= [ qsearch( 'discount', { disabled=>'' } ) ]; my $curuser = $FS::CurrentUser::CurrentUser; my $name = $opt{'element_name'} || $opt{'field'} || 'discountnum'; my $select = 'Select discount type'; my @_type_options = ( 'Amount', 'Percentage' ); unshift @_type_options, $select; my $colspan = $opt{'colspan'} ? 'COLSPAN="'.$opt{'colspan'}.'"' : '';