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="text" 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 %          qq!<TR><TD ALIGN="right" WIDTH="200">$paystate_label</TD>!.
 209 %          qq!<TD COLSPAN="3" WIDTH="408">!.
 210 %          include('select-state.html',
 211 %                    'empty'   => '(choose)',
 212 %                    'state'   => $cust_main->paystate,
 213 %                    'country' => $cust_main->country,
 214 %                    'prefix' => 'pay',
 215 %                 ). "</TD></TR>".
 216 %
 217 %
 218 %        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>'.
 219 %
 220 %        '<TR><TD>&nbsp;</TD></TR>'.
 221 %        '<TR><TD>&nbsp;</TD></TR>'.
 222 %        '<TR><TD>&nbsp;</TD></TR>'.
 223 %
 224 %      '</TABLE>',
 225 %
 226 %    'LECB' =>
 227 %
 228 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 229 %
 230 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Phone number </TD>!.
 231 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE="!. ( $payby eq 'LECB' ? $cust_main->payinfo : '' ). qq!" MAXLENGTH=15 SIZE=16></TD></TR>!.
 232 %
 233 %        qq!<INPUT TYPE="hidden" NAME="exp_month" VALUE="12">!.
 234 %        qq!<INPUT TYPE="hidden" NAME="exp_year" VALUE="2037">!.
 235 %        qq!<INPUT TYPE="hidden" NAME="payname" VALUE="">!.
 236 %
 237 %        '<TR><TD>&nbsp;</TD></TR>'.
 238 %        '<TR><TD>&nbsp;</TD></TR>'.
 239 %        '<TR><TD>&nbsp;</TD></TR>'.
 240 %        '<TR><TD>&nbsp;</TD></TR>'.
 241 %        '<TR><TD>&nbsp;</TD></TR>'.
 242 %        '<TR><TD>&nbsp;</TD></TR>'.
 243 %
 244 %      '</TABLE>',
 245 %
 246 %    'BILL' =>
 247 %
 248 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 249 %
 250 %        qq!<TR><TD ALIGN="right" WIDTH="200">P.O. </TD>!.
 251 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE="!. ( $payby eq 'BILL' ? $cust_main->payinfo : '' ). qq!"></TD></TR>!.
 252 %
 253 %        qq!<INPUT TYPE="hidden" NAME="exp_month" VALUE="12">!.
 254 %        qq!<INPUT TYPE="hidden" NAME="exp_year" VALUE="2037">!.
 255 %
 256 %        qq!<TR><TD ALIGN="right" WIDTH="200">Attention </TD>!.
 257 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payname" VALUE="!. ( $payby eq 'BILL' ? $cust_main->payname : '' ). qq!"></TD></TR>!.
 258 %
 259 %        '<TR><TD>&nbsp;</TD></TR>'.
 260 %        '<TR><TD>&nbsp;</TD></TR>'.
 261 %        '<TR><TD>&nbsp;</TD></TR>'.
 262 %        '<TR><TD>&nbsp;</TD></TR>'.
 263 %        '<TR><TD>&nbsp;</TD></TR>'.
 264 %
 265 %      '</TABLE>',
 266 %
 267 %    'COMP' =>
 268 %
 269 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 270 %
 271 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Approved by </TD>!.
 272 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="payinfo" VALUE=""></TD></TR>!.
 273 %
 274 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Expiration </TD>!.
 275 %          '<TD WIDTH="408">'.
 276 %
 277 %          include('/elements/select-month_year.html',
 278 %                    'prefix' => 'exp',
 279 %                    'selected_date' =>
 280 %                      ( $payby eq 'COMP' ? $cust_main->paydate : '' ),
 281 %                 ).
 282 %
 283 %          '</TD></TR>'.
 284 %
 285 %        '<TR><TD>&nbsp;</TD></TR>'.
 286 %        '<TR><TD>&nbsp;</TD></TR>'.
 287 %        '<TR><TD>&nbsp;</TD></TR>'.
 288 %        '<TR><TD>&nbsp;</TD></TR>'.
 289 %        '<TR><TD>&nbsp;</TD></TR>'.
 290 %
 291 %      '</TABLE>',
 292 %
 293 %    'CASH' =>
 294 %
 295 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 296 %
 297 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 298 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'CASH' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 299 %
 300 %        '<TR><TD>&nbsp;</TD></TR>'.
 301 %        '<TR><TD>&nbsp;</TD></TR>'.
 302 %        '<TR><TD>&nbsp;</TD></TR>'.
 303 %        '<TR><TD>&nbsp;</TD></TR>'.
 304 %        '<TR><TD>&nbsp;</TD></TR>'.
 305 %        '<TR><TD>&nbsp;</TD></TR>'.
 306 %
 307 %      '</TABLE>',
 308 %
 309 %    'WEST' =>
 310 %
 311 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 312 %
 313 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 314 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'WEST' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 315 %
 316 %        '<TR><TD>&nbsp;</TD></TR>'.
 317 %        '<TR><TD>&nbsp;</TD></TR>'.
 318 %        '<TR><TD>&nbsp;</TD></TR>'.
 319 %        '<TR><TD>&nbsp;</TD></TR>'.
 320 %        '<TR><TD>&nbsp;</TD></TR>'.
 321 %        '<TR><TD>&nbsp;</TD></TR>'.
 322 %
 323 %      '</TABLE>',
 324 %
 325 %    'MCRD' =>
 326 %
 327 %      '<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 HEIGHT=192>'.
 328 %
 329 %        qq!<TR><TD ALIGN="right" WIDTH="200">${r}Amount </TD>!.
 330 %          qq!<TD WIDTH="408"><INPUT TYPE="text" NAME="paid" VALUE="!. ( $payby eq 'MCRD' ? $cust_main->paid : '' ). qq!"></TD></TR>!.
 331 %
 332 %        '<TR><TD>&nbsp;</TD></TR>'.
 333 %        '<TR><TD>&nbsp;</TD></TR>'.
 334 %        '<TR><TD>&nbsp;</TD></TR>'.
 335 %        '<TR><TD>&nbsp;</TD></TR>'.
 336 %        '<TR><TD>&nbsp;</TD></TR>'.
 337 %        '<TR><TD>&nbsp;</TD></TR>'.
 338 %
 339 %      '</TABLE>',
 340 %
 341 %  );
 342 %
 343 %  #this should use FS::payby
 344 %  my %allopt = (
 345 %    'CARD' => 'Credit card',
 346 %    'CHEK' => 'Electronic check',
 347 %    'LECB' => 'Phone bill billing',
 348 %    'BILL' => 'Billing',
 349 %    'CASH' => 'Cash', # initial payment, then billing',
 350 %    'WEST' => 'Western Union', # initial payment, then billing',
 351 %    'MCRD' => 'Manual credit card', # initial payment, then billing',
 352 %    'COMP' => 'Complimentary',
 353 %  );
 354 %  if ( $cust_main->custnum ) { #don't offer CASH/WEST/MCRD initial payment types
 355 %                               # when editing customer
 356 %    delete $allopt{$_} for qw(CASH WEST MCRD);
 357 %  }
 358 %
 359 %  tie my %options, 'Tie::IxHash',
 360 %    map  { $_ => $allopt{$_} }
 361 %    grep { exists $allopt{$_} }
 362 %         @payby;
 363 %
 364 %  my %payby2option = (
 365 %    ( map { $_ => $_ } keys %options ),
 366 %    'DCRD' => 'CARD',
 367 %    'DCHK' => 'CHEK',
 368 %  );
 369 %
 370 %  my $widget = new HTML::Widgets::SelectLayers(
 371 %    'options'        => \%options,
 372 %    #'form_name'      => 'dummy',
 373 %    #'form_action'    => 'nothingyet',
 374 %    #chops bottom of page in IE# 'under_position' => 'absolute',
 375 %    'html_between'   => '</TD></TR></TABLE>',
 376 %    'selected_layer' => $payby2option{$payby || $payby_default || $payby[0] },
 377 %    'layer_callback' => sub { my $layer = shift; $payby{$layer}; },
 378 %  );
 379 %
 380 %
 381
 382
 383   <TD WIDTH="408"><% $widget->html %>
 384
 385   <FORM NAME="billing_bottomform" STYLE="margin-top: 0; margin-bottom: 0">
 386
 387   <% &ntable("#cccccc") %>
 388
 389     <TR><TD>&nbsp;</TD></TR>
 390
 391     <TR>
 392       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="tax" VALUE="Y" <% $cust_main->tax eq "Y" ? 'CHECKED' : '' %>> Tax Exempt</TD>
 393     </TR>
 394
 395     <TR>
 396       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="invoicing_list_POST" VALUE="POST" <%
 397
 398         ( grep { $_ eq 'POST' } @invoicing_list )
 399
 400           ? 'CHECKED'
 401           : ''
 402
 403         %>> Postal mail invoice
 404
 405       </TD>
 406     </TR>
 407
 408     <TR>
 409       <TD WIDTH="608" COLSPAN="2"><INPUT TYPE="checkbox" NAME="invoicing_list_FAX" VALUE="FAX" <%
 410
 411         ( grep { $_ eq 'FAX' } @invoicing_list )
 412           ? 'CHECKED'
 413           : ''
 414
 415         %>> Fax invoice
 416
 417       </TD>
 418     </TR>
 419
 420     <TR>
 421       <TD ALIGN="right" WIDTH="200">Email invoice </TD>
 422       <TD WIDTH="408"><INPUT TYPE="text" NAME="invoicing_list" VALUE="<% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) %>"></TD>
 423     </TR>
 424
 425     <TR>
 426       <TD ALIGN="right" WIDTH="200">Invoice terms </TD>
 427       <TD WIDTH="408">
 428         <SELECT NAME="invoice_terms">
 429           <OPTION VALUE="">Default (<% $conf->config('invoice_default_terms') || 'Payable upon receipt' %>)
 430 %         foreach my $term ( 'Payable upon receipt',
 431 %                            ( map "Net $_", 0, 10, 15, 30, 45, 60 ),
 432 %                          ) {
 433             <OPTION VALUE="<% $term %>" <% $cust_main->invoice_terms eq $term ? ' SELECTED' : '' %>><% $term %>
 434 %         }
 435         </SELECT>
 436       </TD>
 437     </TR>
 438
 439 % if ( $conf->exists('voip-cust_cdr_spools') ) {
 440       <TR>
 441        <TD COLSPAN="2"><INPUT TYPE="checkbox" NAME="spool_cdr" VALUE="Y" <% $cust_main->spool_cdr eq "Y" ? 'CHECKED' : '' %>> Spool CDRs</TD>
 442       </TR>
 443 % } else {
 444
 445       <INPUT TYPE="hidden" NAME="spool_cdr" VALUE="<% $cust_main->spool_cdr %>">
 446 % }
 447
 448   </TABLE>
 449
 450   </FORM>
 451
 452   <% $r %> required fields
 453 % }
 454
 455 <%once>
 456
 457 my $paystate_label = FS::Msgcat::_gettext('paystate');
 458 $paystate_label = 'Bank state' if $paystate_label =~/^paystate$/;
 459
 460 </%once>
 461 <%init>
 462
 463 my( $cust_main, %options ) = @_;
 464 my @invoicing_list = @{ $options{'invoicing_list'} };
 465 my $payinfo = $options{'payinfo'};
 466 my $conf = new FS::Conf;
 467 my $payby_default = $conf->config('payby-default');
 468
 469 my @payby = grep /\w/, $conf->config('payby');
 470 #@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP ))
 471 @payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP ))
 472   unless @payby;
 473
 474 </%init>