+<BR>
+
+% my $discount_cust_pkg = $curuser->access_right('Discount customer package');
+% my $waive_setup_fee = $curuser->access_right('Waive setup fee');
+%
+% if ( $discount_cust_pkg || $waive_setup_fee ) {
+ <FONT CLASS="fsinnerbox-title"><% mt('Discounting') |h %></FONT>
+ <% ntable("#cccccc") %>
+
+% if ( $waive_setup_fee ) {
+ <TR>
+ <TH ALIGN="right"><% mt('Waive setup fee') |h %> </TH>
+ <TD COLSPAN=6><INPUT TYPE="checkbox" NAME="waive_setup" VALUE="Y"></TD>
+ </TR>
+% }
+
+% if ( $discount_cust_pkg ) {
+ <& /elements/tr-select-discount.html,
+ 'element_etc' => 'DISABLED',
+ 'colspan' => 7,
+ 'cgi' => $cgi,
+ &>
+% }
+
+ </TABLE><BR>
+
+% }
+
+
+% my $lock_locationnum = scalar($cgi->param('lock_locationnum'));
+% my $contact_title = $lock_locationnum ? 'Contact'
+% : 'Contact and Location';
+<FONT CLASS="fsinnerbox-title"><% mt($contact_title) |h %></FONT>
+<% ntable("#cccccc") %>
+
+<& /elements/tr-select-contact.html,
+ 'cgi' => $cgi,
+ 'cust_main' => $cust_main,
+ 'prospect_main' => $prospect_main,
+&>
+
+% if ( $cgi->param('lock_locationnum') ) {
+
+ <INPUT TYPE = "hidden"
+ NAME = "locationnum"
+ ID = "locationnum"
+ VALUE = "<% scalar($cgi->param('lock_locationnum')) |h %>"
+ >
+
+% } else {
+
+ <& /elements/tr-select-cust_location.html,
+ 'cgi' => $cgi,
+ 'cust_main' => $cust_main,
+ 'prospect_main' => $prospect_main,
+ &>
+
+% }
+
+</TABLE>
+
+% unless ( $cgi->param('lock_locationnum') ) {
+
+ <& /elements/standardize_locations.html,
+ 'form' => "OrderPkgForm",
+ 'callback' => 'document.OrderPkgForm.submit()',
+ 'with_census' => 1,
+ 'with_census_functions' => 1,
+ &>
+
+% }