httemplate/edit/cust_main/billing.html

   1 %if ( $payby_default eq 'HIDE' ) {
   2 %
   3 %  $cust_main->payby('BILL') unless $cust_main->payby;
   4
   5   <INPUT TYPE="hidden" NAME="select" VALUE="<% $cust_main->payby %>">
   6
   7   </FORM>
   8
   9   <FORM NAME="<% $cust_main->payby %>" STYLE="margin-top: 0; margin-bottom: 0">
  10
  11     <INPUT TYPE="hidden" NAME="payinfo" VALUE="<% $cust_main->paymask %>">
  12
  13 % foreach my $field (qw( payname paycvv paystart_month paystart_year payissue payip )) {
  14
  15     <INPUT TYPE="hidden" NAME="<% $field %>" VALUE="<% $cust_main->getfield($field) %>">
  16
  17 % }
  18
  19 %  #false laziness w/elements/select-month_year.html & view/cust_main/billing.html
  20 %  my( $mon, $year );
  21 %  my $date = $cust_main->paydate || '12-2037';
  22 %  if ( $date  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
  23 %    ( $mon, $year ) = ( $2, $1 );
  24 %  } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
  25 %    ( $mon, $year ) = ( $1, $3 );
  26 %  } else {
  27 %    die "unrecognized expiration date format: $date";
  28 %  }
  29
  30   <INPUT TYPE="hidden" NAME="exp_month" VALUE="<% $mon %>">
  31   <INPUT TYPE="hidden" NAME="exp_year"  VALUE="<% $year %>">
  32
  33   </FORM>
  34
  35   <FORM NAME="billing_bottomform" STYLE="margin-top: 0; margin-bottom: 0">
  36
  37   <INPUT TYPE="hidden" NAME="tax" VALUE="<% $cust_main->tax %>">
  38
  39   <INPUT TYPE="hidden" NAME="invoicing_list" VALUE="<% join(', ', @invoicing_list) %>">
  40
  41   </FORM>
  42
  43 % } else {
  44 %
  45 %  my $r = qq!<font color="#ff0000">*</font>&nbsp;!;
  46
  47   <BR>Billing information
  48   <% &ntable("#cccccc") %>
  49
  50     <TR>
  51       <TD ALIGN="right" WIDTH="200"><%$r%>Billing type</TD>
  52
  53   <SCRIPT>
  54
  55     var mywindow = -1;
  56     function myopen(filename,windowname,properties) {
  57       myclose();
  58       mywindow = window.open(filename,windowname,properties);
  59     }
  60     function myclose() {
  61       if ( mywindow != -1 )
  62         mywindow.close();
  63       mywindow = -1;
  64     }
  65
  66     var achwindow = -1;
  67     function achopen(filename,windowname,properties) {
  68       achclose();
  69       achwindow = window.open(filename,windowname,properties);
  70     }
  71     function achclose() {
  72       if ( achwindow != -1 )
  73         achwindow.close();
  74       achwindow = -1;
  75     }
  76
  77     function card_changed(what) {
  78       if (
  79              what.form.payinfo.value.substring(0, 4) == '4093'
  80           || what.form.payinfo.value.substring(0, 4) == '4911'
  81           || what.form.payinfo.value.substring(0, 4) == '4936'
  82           || what.form.payinfo.value.substring(0, 6) == '564132'
  83           || what.form.payinfo.value.substring(0, 2) == '63'
  84           || what.form.payinfo.value.substring(0, 2) == '67'
  85          )
  86       {
  87         what.form.paystart_month.disabled = false;
  88         what.form.paystart_year.disabled = false;
  89         what.form.payissue.disabled = false;
  90         what.form.paystart_month.style.backgroundColor = '#ffffff';
  91         what.form.paystart_year.style.backgroundColor = '#ffffff';
  92         what.form.payissue.style.backgroundColor = '#ffffff';
  93         document.getElementById('paystart_label').style.color = '#000000';
  94         document.getElementById('payissue_label').style.color = '#000000';
  95       } else {
  96         what.form.paystart_month.disabled = true;
  97         what.form.paystart_year.disabled = true;
  98         what.form.payissue.disabled = true;
  99         what.form.paystart_month.style.backgroundColor = '#dddddd';
 100         what.form.paystart_year.style.backgroundColor = '#dddddd';
 101         what.form.payissue.style.backgroundColor = '#dddddd';
 102         document.getElementById('paystart_label').style.color = '#999999';
 103         document.getElementById('payissue_label').style.color = '#999999';
 104       }
 105       return true;
 106     }
 107
 108   </SCRIPT>
 109
 110   <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws.js"></SCRIPT>
 111   <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_iframe.js"></SCRIPT>
 112   <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_draggable.js"></SCRIPT>
 113   <SCRIPT TYPE="text/javascript">
 114   function OLiframeContent(src, width, height, name) {
 115     return ('<iframe src="'+src+'" width="'+width+'" height="'+height+'"'
 116      +(name?' name="'+name+'" id="'+name+'"':'')+' scrolling="auto">'
 117      +'<div>[iframe not supported]</div></iframe>');
 118   }
 119   </SCRIPT>
 120
 121 %  my $payby = $cust_main->payby;
 122 %  my( $account, $aba ) = split('@', $payinfo);
 123 %
 124 %  my $disabled = 'DISABLED style="background-color: #dddddd"';
 125 %  my $text_disabled = 'style="color: #999999"';
 126 %
 127 %  if ( $payby =~ /^(CARD|DCRD)$/ && cardtype($payinfo) =~ /^(Switch|Solo)$/ ) {
 128 %    $disabled = 'style="background-color: #ffffff"';
 129 %    $text_disabled = 'style="color: #000000";'
 130 %  }
 131 %
 132 %  my %payby = (
 133 %
 134 %    'CARD' =>
 135 %
 136 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 137 %
 138 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Card number </TD>!.
 139 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE="!. ( $payby =~ /^(CARD|DCRD)$/ ? $payinfo : '' ). qq!" MAXLENGTH=19 onChange="card_changed(this)" onKeyUp="card_changed(this)"></TD></TR>!.
 140 %
 141 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Expiration </TD>!.
 142 %          '<TD WIDTH="408">'.
 143 %
 144 %          include('/elements/select-month_year.html',
 145 %                    'prefix' => 'exp',
 146 %                    'selected_date' =>
 147 %                      ( $payby =~ /^(CARD|DCRD)$/ ? $cust_main->paydate : '' ),
 148 %                 ).
 149 %
 150 %          '</TD></TR>'.
 151 %
 152 %        qq!<TR><TD ALIGN="right" WIDTH="200">CVV2&nbsp;!.
 153 %
 154 %          qq!(<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('../docs/cvv2.html', 480, 352, 'cvv2_popup' ), CAPTION, 'CVV2 Help', STICKY, AUTOSTATUSCAP, CLOSECLICK, DRAGGABLE ); return false;">help</A>)!.
 155 %          qq!</TD>!.
 156 %          '<TD WIDTH="408"><INPUT TYPE="text" NAME="paycvv" VALUE="'. ( $payby =~ /^(CARD|DCRD)$/ && !$cust_main->is_encrypted($cust_main->paycvv) ? $cust_main->paycvv : '' ). '" SIZE=4 MAXLENGTH=4>'.
 157 %
 158 %
 159 %        qq!<TR><TD ALIGN="right" WIDTH="200"><SPAN ID="paystart_label" $text_disabled>Start date </SPAN></TD>!.
 160 %          '<TD WIDTH="408">'.
 161 %
 162 %          include('/elements/select-month_year.html',
 163 %                    'prefix' => 'paystart',
 164 %                    'disabled' => $disabled,
 165 %                    'empty_option' => 1,
 166 %                    'start_year' => 2000,
 167 %                    'end_year'   => (localtime())[5] + 1900,
 168 %                    'selected_date' => (
 169 %                      ( $payby =~ /^(CARD|DCRD)$/
 170 %                        && cardtype($payinfo) =~ /^(Switch|Solo)$/ )
 171 %                          ? $cust_main->paystart_month. '-'.
 172 %                            $cust_main->paystart_year
 173 %                          : ''
 174 %                    )
 175 %                 ).
 176 %
 177 %        qq!<SPAN ID="payissue_label" $text_disabled> or Issue number </SPAN>!.
 178 %          '<INPUT TYPE="text" NAME="payissue" VALUE="'. ( $payby =~ /^(CARD|DCRD)$/ ? $cust_main->payissue : '' ). qq!" SIZE=3 MAXLENGTH=2 $disabled></TD></TR>!.
 179 %
 180 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Exact name on card </TD>!.
 181 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payname" VALUE="!. ( $payby =~ /^(CARD|DCRD)$/ ? $cust_main->payname : '' ). qq!"></TD></TR>!.
 182 %
 183 %        qq!<TR><TD COLSPAN=2 WIDTH="608"><INPUT TYPE="checkbox" NAME="payauto" !. ( $payby eq 'DCRD' ? '' : 'CHECKED' ). '> Charge future payments to this card automatically</TD></TR>'.
 184 %
 185 %      '</TABLE>',
 186 %
 187 %    'CHEK' =>
 188 %
 189 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 190 %
 191 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Account number </TD>!.
 192 %          qq!<TD WIDTH="408"><INPUT TYPE="text" SIZE=12 NAME="payinfo1" VALUE="!. ( $payby =~ /^(CHEK|DCHK)$/ ? $account : '' ). '"></TD></TR>'.
 193 %
 194 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}ABA/Routing number </TD>!.
 195 %          qq!<TD WIDTH="408"><INPUT TYPE="text" SIZE=10 MAXLENGTH=9 NAME="payinfo2" VALUE="!. ( $payby =~ /^(CHEK|DCHK)$/ ? $aba : '' ). qq!" SIZE=10 MAXLENGTH=9> !.
 196 %          qq!(<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('../docs/ach.html', 380, 240, 'ach_popup' ), CAPTION, 'ACH Help', STICKY, AUTOSTATUSCAP, CLOSECLICK, DRAGGABLE ); return false;">help</A>)!.
 197 %          qq!</TD></TR>!.
 198 %
 199 %        qq!<INPUT TYPE="hidden" NAME="exp_month" VALUE="12">!.
 200 %        qq!<INPUT TYPE="hidden" NAME="exp_year" VALUE="2037">!.
 201 %
 202 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Bank name </TD>!.
 203 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payname" VALUE="!. ( $payby =~ /^(CHEK|DCHK)$/ ? $cust_main->payname : '' ). qq!"></TD></TR>!.
 204 %
 205 %        qq!<TR><TD COLSPAN=2 WIDTH="608"><INPUT TYPE="checkbox" NAME="payauto" !. ( $payby eq 'DCHK' ? '' : 'CHECKED' ). '> Charge future payments to this electronic check automatically</TD></TR>'.
 206 %
 207 %        '<TR><TD>&nbsp;</TD></TR>'.
 208 %        '<TR><TD>&nbsp;</TD></TR>'.
 209 %        '<TR><TD>&nbsp;</TD></TR>'.
 210 %
 211 %      '</TABLE>',
 212 %
 213 %    'LECB' =>
 214 %
 215 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 216 %
 217 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Phone number </TD>!.
 218 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE="!. ( $payby eq 'LECB' ? $cust_main->payinfo : '' ). qq!" MAXLENGTH=15 SIZE=16></TD></TR>!.
 219 %
 220 %        qq!<INPUT TYPE="hidden" NAME="exp_month" VALUE="12">!.
 221 %        qq!<INPUT TYPE="hidden" NAME="exp_year" VALUE="2037">!.
 222 %        qq!<INPUT TYPE="hidden" NAME="payname" VALUE="">!.
 223 %
 224 %        '<TR><TD>&nbsp;</TD></TR>'.
 225 %        '<TR><TD>&nbsp;</TD></TR>'.
 226 %        '<TR><TD>&nbsp;</TD></TR>'.
 227 %        '<TR><TD>&nbsp;</TD></TR>'.
 228 %        '<TR><TD>&nbsp;</TD></TR>'.
 229 %        '<TR><TD>&nbsp;</TD></TR>'.
 230 %
 231 %      '</TABLE>',
 232 %
 233 %    'BILL' =>
 234 %
 235 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 236 %
 237 %        qq!<TR><TD ALIGN="right" WIDTH="200">P.O. </TD>!.
 238 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE="!. ( $payby eq 'BILL' ? $cust_main->payinfo : '' ). qq!"></TD></TR>!.
 239 %
 240 %        qq!<INPUT TYPE="hidden" NAME="exp_month" VALUE="12">!.
 241 %        qq!<INPUT TYPE="hidden" NAME="exp_year" VALUE="2037">!.
 242 %
 243 %        qq!<TR><TD ALIGN="right" WIDTH="200">Attention </TD>!.
 244 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payname" VALUE="!. ( $payby eq 'BILL' ? $cust_main->payname : '' ). qq!"></TD></TR>!.
 245 %
 246 %        '<TR><TD>&nbsp;</TD></TR>'.
 247 %        '<TR><TD>&nbsp;</TD></TR>'.
 248 %        '<TR><TD>&nbsp;</TD></TR>'.
 249 %        '<TR><TD>&nbsp;</TD></TR>'.
 250 %        '<TR><TD>&nbsp;</TD></TR>'.
 251 %
 252 %      '</TABLE>',
 253 %
 254 %    'COMP' =>
 255 %
 256 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 257 %
 258 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Approved by </TD>!.
 259 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE=""></TD></TR>!.
 260 %
 261 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Expiration </TD>!.
 262 %          '<TD WIDTH="408">'.
 263 %
 264 %          include('/elements/select-month_year.html',
 265 %                    'prefix' => 'exp',
 266 %                    'selected_date' =>
 267 %                      ( $payby eq 'COMP' ? $cust_main->paydate : '' ),
 268 %                 ).
 269 %
 270 %          '</TD></TR>'.
 271 %
 272 %        '<TR><TD>&nbsp;</TD></TR>'.
 273 %        '<TR><TD>&nbsp;</TD></TR>'.
 274 %        '<TR><TD>&nbsp;</TD></TR>'.
 275 %        '<TR><TD>&nbsp;</TD></TR>'.
 276 %        '<TR><TD>&nbsp;</TD></TR>'.
 277 %
 278 %      '</TABLE>',
 279 %
 280 %    'CASH' =>
 281 %
 282 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 283 %
 284 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 285 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'CASH' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 286 %
 287 %        '<TR><TD>&nbsp;</TD></TR>'.
 288 %        '<TR><TD>&nbsp;</TD></TR>'.
 289 %        '<TR><TD>&nbsp;</TD></TR>'.
 290 %        '<TR><TD>&nbsp;</TD></TR>'.
 291 %        '<TR><TD>&nbsp;</TD></TR>'.
 292 %        '<TR><TD>&nbsp;</TD></TR>'.
 293 %
 294 %      '</TABLE>',
 295 %
 296 %    'WEST' =>
 297 %
 298 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 299 %
 300 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 301 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'WEST' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 302 %
 303 %        '<TR><TD>&nbsp;</TD></TR>'.
 304 %        '<TR><TD>&nbsp;</TD></TR>'.
 305 %        '<TR><TD>&nbsp;</TD></TR>'.
 306 %        '<TR><TD>&nbsp;</TD></TR>'.
 307 %        '<TR><TD>&nbsp;</TD></TR>'.
 308 %        '<TR><TD>&nbsp;</TD></TR>'.
 309 %
 310 %      '</TABLE>',
 311 %
 312 %    'MCRD' =>
 313 %
 314 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 315 %
 316 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 317 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'MCRD' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 318 %
 319 %        '<TR><TD>&nbsp;</TD></TR>'.
 320 %        '<TR><TD>&nbsp;</TD></TR>'.
 321 %        '<TR><TD>&nbsp;</TD></TR>'.
 322 %        '<TR><TD>&nbsp;</TD></TR>'.
 323 %        '<TR><TD>&nbsp;</TD></TR>'.
 324 %        '<TR><TD>&nbsp;</TD></TR>'.
 325 %
 326 %      '</TABLE>',
 327 %
 328 %  );
 329 %
 330 %  #this should use FS::payby
 331 %  my %allopt = (
 332 %    'CARD' => 'Credit card',
 333 %    'CHEK' => 'Electronic check',
 334 %    'LECB' => 'Phone bill billing',
 335 %    'BILL' => 'Billing',
 336 %    'CASH' => 'Cash', # initial payment, then billing',
 337 %    'WEST' => 'Western Union', # initial payment, then billing',
 338 %    'MCRD' => 'Manual credit card', # initial payment, then billing',
 339 %    'COMP' => 'Complimentary',
 340 %  );
 341 %  if ( $cust_main->custnum ) { #don't offer CASH/WEST/MCRD initial payment types
 342 %                               # when editing customer
 343 %    delete $allopt{$_} for qw(CASH WEST MCRD);
 344 %  }
 345 %
 346 %  tie my %options, 'Tie::IxHash',
 347 %    map  { $_ => $allopt{$_} }
 348 %    grep { exists $allopt{$_} }
 349 %         @payby;
 350 %
 351 %  my %payby2option = (
 352 %    ( map { $_ => $_ } keys %options ),
 353 %    'DCRD' => 'CARD',
 354 %    'DCHK' => 'CHEK',
 355 %  );
 356 %
 357 %  my $widget = new HTML::Widgets::SelectLayers(
 358 %    'options'        => \%options,
 359 %    #'form_name'      => 'dummy',
 360 %    #'form_action'    => 'nothingyet',
 361 %    #chops bottom of page in IE# 'under_position' => 'absolute',
 362 %    'html_between'   => '</TD></TR></TABLE>',
 363 %    'selected_layer' => $payby2option{$payby || $payby_default || $payby[0] },
 364 %    'layer_callback' => sub { my $layer = shift; $payby{$layer}; },
 365 %  );
 366 %
 367 %
 368
 369
 370   <TD WIDTH="408"><% $widget->html %>
 371
 372   <FORM NAME="billing_bottomform" STYLE="margin-top: 0; margin-bottom: 0">
 373
 374   <% &ntable("#cccccc") %>
 375
 376     <TR><TD>&nbsp;</TD></TR>
 377
 378     <TR>
 379       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="tax" VALUE="Y" <% $cust_main->tax eq "Y" ? 'CHECKED' : '' %>> Tax Exempt</TD>
 380     </TR>
 381
 382     <TR>
 383       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="invoicing_list_POST" VALUE="POST" <%
 384
 385         ( grep { $_ eq 'POST' } @invoicing_list )
 386
 387           ? 'CHECKED'
 388           : ''
 389
 390         %>> Postal mail invoice
 391
 392       </TD>
 393     </TR>
 394
 395     <TR>
 396       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="invoicing_list_FAX" VALUE="FAX" <%
 397
 398         ( grep { $_ eq 'FAX' } @invoicing_list )
 399           ? 'CHECKED'
 400           : ''
 401
 402         %>> Fax invoice
 403
 404       </TD>
 405     </TR>
 406
 407     <TR>
 408       <TD ALIGN="right" WIDTH="200">Email invoice </TD>
 409       <TD WIDTH="408"><INPUT TYPE="text" NAME="invoicing_list" VALUE="<% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) %>"></TD>
 410     </TR>
 411 % if ( $conf->exists('voip-cust_cdr_spools') ) {
 412
 413       <TR>
 414        <TD COLSPAN="2"><INPUT TYPE="checkbox" NAME="spool_cdr" VALUE="Y" <% $cust_main->spool_cdr eq "Y" ? 'CHECKED' : '' %>> Spool CDRs</TD>
 415       </TR>
 416 % } else {
 417
 418       <INPUT TYPE="hidden" NAME="spool_cdr" VALUE="<% $cust_main->spool_cdr %>">
 419 % }
 420
 421
 422   </TABLE>
 423
 424   </FORM>
 425
 426   <% $r %> required fields
 427 % }
 428
 429 <%init>
 430
 431 my( $cust_main, %options ) = @_;
 432 my @invoicing_list = @{ $options{'invoicing_list'} };
 433 my $payinfo = $options{'payinfo'};
 434 my $conf = new FS::Conf;
 435 my $payby_default = $conf->config('payby-default');
 436
 437 my @payby = grep /\w/, $conf->config('payby');
 438 #@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP ))
 439 @payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP ))
 440   unless @payby;
 441
 442 </%init>