httemplate/misc/order_pkg.html

   1 <% include('/elements/header-popup.html', 'Order new package' ) %>
   2
   3 <LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
   4 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
   5 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
   6 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
   7
   8 <SCRIPT TYPE="text/javascript" SRC="../elements/order_pkg.js"></SCRIPT>
   9
  10 <% include('/elements/error.html') %>
  11
  12 <FORM NAME="OrderPkgForm" ACTION="<% $p %>edit/process/quick-cust_pkg.cgi" METHOD="POST">
  13
  14 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $cust_main->custnum %>">
  15
  16 <% ntable("#cccccc", 2) %>
  17 <% include('/elements/tr-select-cust-part_pkg.html',
  18              'curr_value' => $pkgpart,
  19              'classnum'   => -1,
  20              'cust_main'  => $cust_main,
  21              'onchange'   => 'enable_order_pkg',
  22           )
  23 %>
  24
  25 <TR>
  26   <TH ALIGN="right">Start date </TD>
  27   <TD COLSPAN=6>
  28     <% include('/elements/input-date-field.html',{
  29                 'name'      => 'start_date',
  30                 'format'    => $date_format,
  31                 'value'     => $start_date,
  32                 'noinit'    => 1,
  33               }) %>
  34     <FONT SIZE=-1>(leave blank to start immediately)</FONT>
  35   </TD>
  36 </TR>
  37
  38 % if ( $cust_main->payby =~ /^(CARD|CHEK)$/ ) {
  39 %   my $what = lc(FS::payby->shortname($cust_main->payby));
  40     <TR>
  41       <TH ALIGN="right">Disable automatic <% $what %> charge </TH>
  42       <TD COLSPAN=6><INPUT TYPE="checkbox" NAME="no_auto" VALUE="Y"></TD>
  43     </TR>
  44 % }
  45
  46 % if ( $curuser->access_right('Discount customer package') ) {
  47   <% include('/elements/tr-select-discount.html',
  48                'element_etc' => 'DISABLED',
  49                'colspan'     => 7,
  50                'cgi'         => $cgi,
  51             )
  52   %>
  53 % }
  54
  55 % if ( $curuser->access_right('Waive setup fee') ) {
  56     <TR>
  57       <TH ALIGN="right">Waive setup fee </TH>
  58       <TD COLSPAN=6><INPUT TYPE="checkbox" NAME="waive_setup" VALUE="Y"></TD>
  59     </TR>
  60 % }
  61
  62 % if ( $conf->exists('pkg_referral') ) {
  63   <% include('/elements/tr-select-part_referral.html',
  64                'curr_value'    => scalar( $cgi->param('refnum') ), #get rid of empty_label first# || $cust_main->refnum,
  65                'disable_empty' => 1,
  66                'multiple'      => $conf->exists('pkg_referral-multiple'),
  67                'colspan'       => 7,
  68             )
  69   %>
  70 % }
  71
  72 <% include('/elements/tr-select-cust_location.html',
  73              'cgi'       => $cgi,
  74              'cust_main' => $cust_main,
  75           )
  76 %>
  77
  78 <TR>
  79   <TH ALIGN="right">Contract end date </TD>
  80   <TD COLSPAN=6>
  81     <% include('/elements/input-date-field.html',{
  82                 'name'      => 'contract_end',
  83                 'format'    => $date_format,
  84                 'value'     => '',
  85                 'noinit'    => 1,
  86                 }) %>
  87   </TD>
  88 </TR>
  89
  90 </TABLE>
  91
  92 <% include( '/elements/standardize_locations.html',
  93             'form'       => "OrderPkgForm",
  94             'onlyship'   => 1,
  95             'no_company' => 1,
  96             'callback'   => 'document.OrderPkgForm.submit();',
  97           )
  98 %>
  99
 100 <BR>
 101 <INPUT NAME    = "submitButton"
 102        TYPE    = "button"
 103        VALUE   = "Order Package"
 104        onClick = "this.disabled=true; standardize_new_location();"
 105        <% $pkgpart ? '' : 'DISABLED' %>
 106 >
 107
 108 </FORM>
 109 </BODY>
 110 </HTML>
 111 <%init>
 112
 113 my $curuser = $FS::CurrentUser::CurrentUser;
 114
 115 die "access denied"
 116   unless $curuser->access_right('Order customer package');
 117
 118 my $conf = new FS::Conf;
 119 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
 120
 121 $cgi->param('custnum') =~ /^(\d+)$/ or die "no custnum";
 122 my $custnum = $1;
 123 my $cust_main = qsearchs({
 124   'table'     => 'cust_main',
 125   'hashref'   => { 'custnum' => $custnum },
 126   'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
 127 });
 128
 129 my $pkgpart = scalar($cgi->param('pkgpart'));
 130
 131 my $format = $date_format. ' %T %z (%Z)'; #false laziness w/REAL_cust_pkg.cgi?
 132 my $start_date = '';
 133 if( ! $conf->exists('order_pkg-no_start_date') ) {
 134   $start_date = $cust_main->next_bill_date;
 135   $start_date = $start_date ? time2str($format, $start_date) : '';
 136 }
 137
 138 </%init>