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 paytype paystate )) {
  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 $paytype = $cust_main->paytype;
 123 %  my( $account, $aba ) = split('@', $payinfo);
 124 %
 125 %  my $disabled = 'DISABLED style="background-color: #dddddd"';
 126 %  my $text_disabled = 'style="color: #999999"';
 127 %
 128 %  if ( $payby =~ /^(CARD|DCRD)$/ && cardtype($payinfo) =~ /^(Switch|Solo)$/ ) {
 129 %    $disabled = 'style="background-color: #ffffff"';
 130 %    $text_disabled = 'style="color: #000000";'
 131 %  }
 132 %
 133 %  my %payby = (
 134 %
 135 %    'CARD' =>
 136 %
 137 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 138 %
 139 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Card number </TD>!.
 140 %          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>!.
 141 %
 142 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Expiration </TD>!.
 143 %          '<TD WIDTH="408">'.
 144 %
 145 %          include('/elements/select-month_year.html',
 146 %                    'prefix' => 'exp',
 147 %                    'selected_date' =>
 148 %                      ( $payby =~ /^(CARD|DCRD)$/ ? $cust_main->paydate : '' ),
 149 %                 ).
 150 %
 151 %          '</TD></TR>'.
 152 %
 153 %        qq!<TR><TD ALIGN="right" WIDTH="200">CVV2&nbsp;!.
 154 %
 155 %          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>)!.
 156 %          qq!</TD>!.
 157 %          '<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>'.
 158 %
 159 %
 160 %        qq!<TR><TD ALIGN="right" WIDTH="200"><SPAN ID="paystart_label" $text_disabled>Start date </SPAN></TD>!.
 161 %          '<TD WIDTH="408">'.
 162 %
 163 %          include('/elements/select-month_year.html',
 164 %                    'prefix' => 'paystart',
 165 %                    'disabled' => $disabled,
 166 %                    'empty_option' => 1,
 167 %                    'start_year' => 2000,
 168 %                    'end_year'   => (localtime())[5] + 1900,
 169 %                    'selected_date' => (
 170 %                      ( $payby =~ /^(CARD|DCRD)$/
 171 %                        && cardtype($payinfo) =~ /^(Switch|Solo)$/ )
 172 %                          ? $cust_main->paystart_month. '-'.
 173 %                            $cust_main->paystart_year
 174 %                          : ''
 175 %                    )
 176 %                 ).
 177 %
 178 %        qq!<SPAN ID="payissue_label" $text_disabled> or Issue number </SPAN>!.
 179 %          '<INPUT TYPE="text" NAME="payissue" VALUE="'. ( $payby =~ /^(CARD|DCRD)$/ ? $cust_main->payissue : '' ). qq!" SIZE=3 MAXLENGTH=2 $disabled></TD></TR>!.
 180 %
 181 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Exact name on card </TD>!.
 182 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payname" VALUE="!. ( $payby =~ /^(CARD|DCRD)$/ ? $cust_main->payname : '' ). qq!"></TD></TR>!.
 183 %
 184 %        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>'.
 185 %
 186 %      '</TABLE>',
 187 %
 188 %    'CHEK' =>
 189 %
 190 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 191 %
 192 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Account number </TD>!.
 193 %          qq!<TD><INPUT TYPE="text" SIZE=12 NAME="payinfo1" VALUE="!. ( $payby =~ /^(CHEK|DCHK)$/ ? $account : '' ). '"></TD>'.
 194 %          qq!<TD ALIGN="right">Type</TD><TD><SELECT NAME="paytype">!.
 195 %            join('', map { qq!<OPTION VALUE="$_" !.($paytype eq $_ ? 'SELECTED' : '').">$_</OPTION>" } @FS::cust_main::paytypes).
 196 %          qq!</SELECT></TD></TR>!.
 197 %
 198 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}ABA/Routing number </TD>!.
 199 %          qq!<TD COLSPAN="3" WIDTH="408"><INPUT TYPE="text" SIZE=10 MAXLENGTH=9 NAME="payinfo2" VALUE="!. ( $payby =~ /^(CHEK|DCHK)$/ ? $aba : '' ). qq!" SIZE=10 MAXLENGTH=9> !.
 200 %          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>)!.
 201 %          qq!</TD></TR>!.
 202 %
 203 %        qq!<INPUT TYPE="hidden" NAME="exp_month" VALUE="12">!.
 204 %        qq!<INPUT TYPE="hidden" NAME="exp_year" VALUE="2037">!.
 205 %
 206 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Bank name </TD>!.
 207 %          qq!<TD COLSPAN="3" WIDTH="408"><INPUT TYPE="text" NAME="payname" VALUE="!. ( $payby =~ /^(CHEK|DCHK)$/ ? $cust_main->payname : '' ). qq!"></TD></TR>!.
 208 %      ( $conf->exists('show_bankstate') ?
 209 %          qq!<TR><TD ALIGN="right" WIDTH="200">$paystate_label</TD>!.
 210 %          qq!<TD COLSPAN="3" WIDTH="408">!.
 211 %          include('select-state.html',
 212 %                    'empty'   => '(choose)',
 213 %                    'state'   => $cust_main->paystate,
 214 %                    'country' => $cust_main->country,
 215 %                    'prefix' => 'pay',
 216 %                 ). "</TD></TR>"
 217 %         : '<INPUT TYPE="hidden" NAME="paystate" VALUE="'.
 218 %            $cust_main->paystate. '">'
 219 %       ).
 220 %
 221 %
 222 %        qq!<TR><TD COLSPAN=4 WIDTH="608"><INPUT TYPE="checkbox" NAME="payauto" !. ( $payby eq 'DCHK' ? '' : 'CHECKED' ). '> Charge future payments to this electronic check automatically</TD></TR>'.
 223 %
 224 %        '<TR><TD>&nbsp;</TD></TR>'.
 225 %        '<TR><TD>&nbsp;</TD></TR>'.
 226 %        '<TR><TD>&nbsp;</TD></TR>'.
 227 %
 228 %      '</TABLE>',
 229 %
 230 %    'LECB' =>
 231 %
 232 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 233 %
 234 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Phone number </TD>!.
 235 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE="!. ( $payby eq 'LECB' ? $cust_main->payinfo : '' ). qq!" MAXLENGTH=15 SIZE=16></TD></TR>!.
 236 %
 237 %        qq!<INPUT TYPE="hidden" NAME="exp_month" VALUE="12">!.
 238 %        qq!<INPUT TYPE="hidden" NAME="exp_year" VALUE="2037">!.
 239 %        qq!<INPUT TYPE="hidden" NAME="payname" VALUE="">!.
 240 %
 241 %        '<TR><TD>&nbsp;</TD></TR>'.
 242 %        '<TR><TD>&nbsp;</TD></TR>'.
 243 %        '<TR><TD>&nbsp;</TD></TR>'.
 244 %        '<TR><TD>&nbsp;</TD></TR>'.
 245 %        '<TR><TD>&nbsp;</TD></TR>'.
 246 %        '<TR><TD>&nbsp;</TD></TR>'.
 247 %
 248 %      '</TABLE>',
 249 %
 250 %    'BILL' =>
 251 %
 252 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 253 %
 254 %        qq!<TR><TD ALIGN="right" WIDTH="200">P.O. </TD>!.
 255 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE="!. ( $payby eq 'BILL' ? $cust_main->payinfo : '' ). qq!"></TD></TR>!.
 256 %
 257 %        qq!<INPUT TYPE="hidden" NAME="exp_month" VALUE="12">!.
 258 %        qq!<INPUT TYPE="hidden" NAME="exp_year" VALUE="2037">!.
 259 %
 260 %        qq!<TR><TD ALIGN="right" WIDTH="200">Attention </TD>!.
 261 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payname" VALUE="!. ( $payby eq 'BILL' ? $cust_main->payname : '' ). qq!"></TD></TR>!.
 262 %
 263 %        '<TR><TD>&nbsp;</TD></TR>'.
 264 %        '<TR><TD>&nbsp;</TD></TR>'.
 265 %        '<TR><TD>&nbsp;</TD></TR>'.
 266 %        '<TR><TD>&nbsp;</TD></TR>'.
 267 %        '<TR><TD>&nbsp;</TD></TR>'.
 268 %
 269 %      '</TABLE>',
 270 %
 271 %    'COMP' =>
 272 %
 273 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 274 %
 275 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Approved by </TD>!.
 276 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE=""></TD></TR>!.
 277 %
 278 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Expiration </TD>!.
 279 %          '<TD WIDTH="408">'.
 280 %
 281 %          include('/elements/select-month_year.html',
 282 %                    'prefix' => 'exp',
 283 %                    'selected_date' =>
 284 %                      ( $payby eq 'COMP' ? $cust_main->paydate : '' ),
 285 %                 ).
 286 %
 287 %          '</TD></TR>'.
 288 %
 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 %        '<TR><TD>&nbsp;</TD></TR>'.
 294 %
 295 %      '</TABLE>',
 296 %
 297 %    'CASH' =>
 298 %
 299 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 300 %
 301 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 302 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'CASH' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 303 %
 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 %        '<TR><TD>&nbsp;</TD></TR>'.
 310 %
 311 %      '</TABLE>',
 312 %
 313 %    'WEST' =>
 314 %
 315 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 316 %
 317 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 318 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'WEST' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 319 %
 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 %        '<TR><TD>&nbsp;</TD></TR>'.
 326 %
 327 %      '</TABLE>',
 328 %
 329 %    'MCRD' =>
 330 %
 331 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 332 %
 333 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 334 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'MCRD' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 335 %
 336 %        '<TR><TD>&nbsp;</TD></TR>'.
 337 %        '<TR><TD>&nbsp;</TD></TR>'.
 338 %        '<TR><TD>&nbsp;</TD></TR>'.
 339 %        '<TR><TD>&nbsp;</TD></TR>'.
 340 %        '<TR><TD>&nbsp;</TD></TR>'.
 341 %        '<TR><TD>&nbsp;</TD></TR>'.
 342 %
 343 %      '</TABLE>',
 344 %
 345 %  );
 346 %
 347 %  #this should use FS::payby
 348 %  my %allopt = (
 349 %    'CARD' => 'Credit card',
 350 %    'CHEK' => 'Electronic check',
 351 %    'LECB' => 'Phone bill billing',
 352 %    'BILL' => 'Billing',
 353 %    'CASH' => 'Cash', # initial payment, then billing',
 354 %    'WEST' => 'Western Union', # initial payment, then billing',
 355 %    'MCRD' => 'Manual credit card', # initial payment, then billing',
 356 %    'COMP' => 'Complimentary',
 357 %  );
 358 %  if ( $cust_main->custnum ) { #don't offer CASH/WEST/MCRD initial payment types
 359 %                               # when editing customer
 360 %    delete $allopt{$_} for qw(CASH WEST MCRD);
 361 %  }
 362 %
 363 %  tie my %options, 'Tie::IxHash',
 364 %    map  { $_ => $allopt{$_} }
 365 %    grep { exists $allopt{$_} }
 366 %         @payby;
 367 %
 368 %  my %payby2option = (
 369 %    ( map { $_ => $_ } keys %options ),
 370 %    'DCRD' => 'CARD',
 371 %    'DCHK' => 'CHEK',
 372 %  );
 373 %
 374 %  my $widget = new HTML::Widgets::SelectLayers(
 375 %    'options'        => \%options,
 376 %    #'form_name'      => 'dummy',
 377 %    #'form_action'    => 'nothingyet',
 378 %    #chops bottom of page in IE# 'under_position' => 'absolute',
 379 %    'html_between'   => '</TD></TR></TABLE>',
 380 %    'selected_layer' => $payby2option{$payby || $payby_default || $payby[0] },
 381 %    'layer_callback' => sub { my $layer = shift; $payby{$layer}; },
 382 %  );
 383 %
 384 %
 385
 386
 387   <TD WIDTH="408"><% $widget->html %>
 388
 389   <FORM NAME="billing_bottomform" STYLE="margin-top: 0; margin-bottom: 0">
 390
 391   <% &ntable("#cccccc") %>
 392
 393     <TR><TD>&nbsp;</TD></TR>
 394
 395     <TR>
 396       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="tax" VALUE="Y" <% $cust_main->tax eq "Y" ? 'CHECKED' : '' %>> Tax Exempt</TD>
 397     </TR>
 398
 399 % unless ( $conf->exists('emailinvoiceonly') ) {
 400
 401     <TR>
 402       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="invoicing_list_POST" VALUE="POST" <%
 403
 404         ( grep { $_ eq 'POST' } @invoicing_list )
 405
 406           ? 'CHECKED'
 407           : ''
 408
 409         %>> Postal mail invoice
 410
 411       </TD>
 412     </TR>
 413
 414     <TR>
 415       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="invoicing_list_FAX" VALUE="FAX" <%
 416
 417         ( grep { $_ eq 'FAX' } @invoicing_list )
 418           ? 'CHECKED'
 419           : ''
 420
 421         %>> Fax invoice
 422
 423       </TD>
 424     </TR>
 425
 426 % }
 427
 428     <TR>
 429       <TD ALIGN="right" WIDTH="200">
 430         <% $conf->exists('cust_main-require_invoicing_list_email') ? $r : '' %>Email address(es)
 431       </TD>
 432       <TD WIDTH="408"><INPUT TYPE="text" NAME="invoicing_list" VALUE="<% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) %>"></TD>
 433     </TR>
 434
 435     <TR>
 436       <TD ALIGN="right" WIDTH="200">Invoice terms </TD>
 437       <TD WIDTH="408">
 438         <SELECT NAME="invoice_terms">
 439           <OPTION VALUE="">Default (<% $conf->config('invoice_default_terms') || 'Payable upon receipt' %>)
 440 %         foreach my $term ( 'Payable upon receipt',
 441 %                            ( map "Net $_", 0, 10, 15, 30, 45, 60 ),
 442 %                          ) {
 443             <OPTION VALUE="<% $term %>" <% $cust_main->invoice_terms eq $term ? ' SELECTED' : '' %>><% $term %>
 444 %         }
 445         </SELECT>
 446       </TD>
 447     </TR>
 448
 449 % if ( $conf->exists('voip-cust_cdr_spools') ) {
 450       <TR>
 451        <TD COLSPAN="2"><INPUT TYPE="checkbox" NAME="spool_cdr" VALUE="Y" <% $cust_main->spool_cdr eq "Y" ? 'CHECKED' : '' %>> Spool CDRs</TD>
 452       </TR>
 453 % } else {
 454
 455       <INPUT TYPE="hidden" NAME="spool_cdr" VALUE="<% $cust_main->spool_cdr %>">
 456 % }
 457
 458   </TABLE>
 459
 460   </FORM>
 461
 462   <% $r %> required fields
 463 % }
 464
 465 <%once>
 466
 467 my $paystate_label = FS::Msgcat::_gettext('paystate');
 468 $paystate_label = 'Bank state' if $paystate_label =~/^paystate$/;
 469
 470 </%once>
 471 <%init>
 472
 473 my( $cust_main, %options ) = @_;
 474 my @invoicing_list = @{ $options{'invoicing_list'} };
 475 my $payinfo = $options{'payinfo'};
 476 my $conf = new FS::Conf;
 477 my $payby_default = $conf->config('payby-default');
 478
 479 my @payby = grep /\w/, $conf->config('payby');
 480 #@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP ))
 481 @payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP ))
 482   unless @payby;
 483
 484 </%init>