% 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'}.'"' : '';
%init>