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