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