1 % if ( scalar(@{ $opt{'discount'} }) == 0
2 % && ! $curuser->access_right('Custom discount customer package') ) {
4 <INPUT TYPE="hidden" NAME="<% $name %>" VALUE="<% $discountnum %>">
9 <TD ALIGN="right" WIDTH="176"><% $opt{'label'} || '<B>'.emt('Discount').'</B>' %></TD>
11 <% include( '/elements/select-discount.html',
12 'curr_value' => $discountnum,
13 'onchange' => $onchange,
20 % # a weird kind of false laziness w/edit/discount.html
22 % # <INPUT TYPE="hidden" NAME="<% $name %>_disabled" VALUE="Y">
25 <% include( '/elements/tr-select.html',
26 'label' => '<B>Discount Type</B>',
27 'field' => $name. '__type',
28 'id' => $name. '__type',
29 'options' => \@_type_options,
30 'curr_value' => scalar($cgi->param($name.'__type')),
31 'onchange' => $name.'__type_changed',
32 'colspan' => $opt{'colspan'},
36 <% include( '/elements/tr-input-money.html',
37 'label' => '<B>Discount Amount </B>',
38 'field' => $name. '_amount',
39 'id' => $name. '_amount',
41 'curr_value' => scalar($cgi->param($name.'_amount')),
42 'colspan' => $opt{'colspan'},
46 <% include( '/elements/tr-input-percentage.html',
47 'label' => '<B>Discount Percentage</B>',
48 'field' => $name. '_percent',
49 'id' => $name. '_percent',
51 'curr_value' => scalar($cgi->param($name.'_percent')),
52 'colspan' => $opt{'colspan'},
56 <% include( '/elements/tr-input-text.html',
57 'label' => '<B>Discount duration (months)</B>',
58 'field' => $name. '_months',
59 'id' => $name. '_months',
61 'postfix' => qq(<FONT SIZE="-1" ID="${name}_months_postfix"><I>(blank for non-expiring discount)</I></FONT>),
62 'curr_value' => scalar($cgi->param($name.'_months')),
63 'colspan' => $opt{'colspan'},
67 <% include( '/elements/tr-checkbox.html',
68 'label' => '<B>Apply discount to setup fee</B>',
69 'field' => $name.'_setup',
70 'id' => $name.'_setup',
71 'curr_value' => scalar($cgi->param($name.'_setup')),
73 'colspan' => $opt{'colspan'},
77 <SCRIPT TYPE="text/javascript">
79 % my $ge = 'document.getElementById';
81 function <% $name %>_changed(what) {
82 var <% $name %> = what.options[what.selectedIndex].value;
84 if ( <% $name %> == '-1' && ! what.disabled ) {
85 <% $ge %>('<% $name %>__type_label0').style.display = '';
86 <% $ge %>('<% $name %>__type_label0').style.visibility = '';
87 <% $ge %>('<% $name %>__type').style.display = '';
88 <% $ge %>('<% $name %>__type').style.visibility = '';
90 <% $name %>__type_changed( <% $ge %>('<% $name %>__type') );
92 <% $ge %>('<% $name %>_months_label0').style.display = '';
93 <% $ge %>('<% $name %>_months_label0').style.visibility = '';
94 <% $ge %>('<% $name %>_months').style.display = '';
95 <% $ge %>('<% $name %>_months').style.visibility = '';
96 <% $ge %>('<% $name %>_months_postfix').style.display = '';
97 <% $ge %>('<% $name %>_months_postfix').style.visibility = '';
98 <% $ge %>('<% $name %>_setup_label0').style.display = '';
99 <% $ge %>('<% $name %>_setup_label0').style.visibility = '';
100 <% $ge %>('<% $name %>_setup').style.display = '';
101 <% $ge %>('<% $name %>_setup').style.visibility = '';
104 <% $ge %>('<% $name %>__type_label0').style.display = 'none';
105 <% $ge %>('<% $name %>__type_label0').style.visibility = 'hidden';
106 <% $ge %>('<% $name %>__type').style.display = 'none';
107 <% $ge %>('<% $name %>__type').style.visibility = 'hidden';
109 <% $name %>__type_changed( <% $ge %>('<% $name %>__type') );
111 <% $ge %>('<% $name %>_months_label0').style.display = 'none';
112 <% $ge %>('<% $name %>_months_label0').style.visibility = 'hidden';
113 <% $ge %>('<% $name %>_months').style.display = 'none';
114 <% $ge %>('<% $name %>_months').style.visibility = 'hidden';
115 <% $ge %>('<% $name %>_months_postfix').style.display = 'none';
116 <% $ge %>('<% $name %>_months_postfix').style.visibility = 'hidden';
118 <% $ge %>('<% $name %>_setup_label0').style.display = 'none';
119 <% $ge %>('<% $name %>_setup_label0').style.visibility = 'hidden';
120 <% $ge %>('<% $name %>_setup').style.display = 'none';
121 <% $ge %>('<% $name %>_setup').style.visibility = 'hidden';
127 function <% $name %>__type_changed(what) {
128 var <% $name %>__type = what.options[what.selectedIndex].value;
130 if ( <% $name %>__type == '<% $select %>' || what.style.display == 'none' ) {
131 <% $ge %>('<% $name %>_amount_label0').style.display = 'none';
132 <% $ge %>('<% $name %>_amount_label0').style.visibility = 'hidden';
133 <% $ge %>('<% $name %>_amount_input0').style.display = 'none';
134 <% $ge %>('<% $name %>_amount_input0').style.visibility = 'hidden';
135 <% $ge %>('<% $name %>_percent_label0').style.display = 'none';
136 <% $ge %>('<% $name %>_percent_label0').style.visibility = 'hidden';
137 <% $ge %>('<% $name %>_percent_input0').style.display = 'none';
138 <% $ge %>('<% $name %>_percent_input0').style.visibility = 'hidden';
139 } else if ( <% $name %>__type == 'Amount' ) {
140 <% $ge %>('<% $name %>_amount_label0').style.display = '';
141 <% $ge %>('<% $name %>_amount_label0').style.visibility = '';
142 <% $ge %>('<% $name %>_amount_input0').style.display = '';
143 <% $ge %>('<% $name %>_amount_input0').style.visibility = '';
144 <% $ge %>('<% $name %>_percent_label0').style.display = 'none';
145 <% $ge %>('<% $name %>_percent_label0').style.visibility = 'hidden';
146 <% $ge %>('<% $name %>_percent_input0').style.display = 'none';
147 <% $ge %>('<% $name %>_percent_input0').style.visibility = 'hidden';
148 } else if ( <% $name %>__type == 'Percentage' ) {
149 <% $ge %>('<% $name %>_amount_label0').style.display = 'none';
150 <% $ge %>('<% $name %>_amount_label0').style.visibility = 'hidden';
151 <% $ge %>('<% $name %>_amount_input0').style.display = 'none';
152 <% $ge %>('<% $name %>_amount_input0').style.visibility = 'hidden';
153 <% $ge %>('<% $name %>_percent_label0').style.display = '';
154 <% $ge %>('<% $name %>_percent_label0').style.visibility = '';
155 <% $ge %>('<% $name %>_percent_input0').style.display = '';
156 <% $ge %>('<% $name %>_percent_input0').style.visibility = '';
161 <% $name %>_changed(<% $ge %>('<% $name %>'));
169 my $cgi = $opt{'cgi'};
170 my $discountnum = $opt{'curr_value'} || $opt{'value'};
172 $opt{'discount'} ||= [ qsearch( 'discount', { disabled=>'' } ) ];
174 my $curuser = $FS::CurrentUser::CurrentUser;
176 my $name = $opt{'element_name'} || $opt{'field'} || 'discountnum';
178 my $select = 'Select discount type';
180 my @_type_options = ( 'Amount', 'Percentage' );
181 unshift @_type_options, $select;
183 my $colspan = $opt{'colspan'} ? 'COLSPAN="'.$opt{'colspan'}.'"' : '';
185 my $onchange = ( $opt{'onchange'} ? delete($opt{'onchange'}).';' : '' ).
186 $name.'_changed(this);';