httemplate/elements/cust_payby.html

   1 % unless ( $opt{'js_only'} ) {
   2
   3   <INPUT TYPE="hidden" NAME="<%$name%>" ID="<%$id%>" VALUE="<% $curr_value %>">
   4
   5   <TABLE STYLE="display:inline">
   6     <TR>
   7
   8 %     ###
   9 %     # select
  10 %     ###
  11
  12       <TD>
  13         <SELECT NAME="<%$name%>_payby"
  14                 ID="<%$id%>_payby"
  15                 onChange="payby_changed(this)"
  16         >
  17 %         foreach my $payby (@payby) {
  18             <OPTION VALUE="<% $payby %>"
  19                <% ($sel_payby eq $payby) ? 'SELECTED' : '' %>
  20             ><% FS::payby->shortname($payby) |h %>
  21 %         }
  22         </SELECT><BR>
  23         <FONT SIZE="-1"><% mt('Type') |h %></FONT>
  24       </TD>
  25
  26 %     ###
  27 %     # card info
  28 %     ###
  29
  30 %     my $card_display = $sel_payby eq 'CARD' ? '' : 'STYLE="display:none"';
  31
  32       <TD ID="<%$id%>_td_payinfo" <%$card_display%>>
  33         <INPUT TYPE      = "text"
  34                NAME      = "<%$name%>_payinfo"
  35                ID        = "<%$id%>_payinfo"
  36                SIZE      = 22
  37                MAXLENGTH = 19
  38                VALUE     = "<% ( $cgi->param($name.'_payby')
  39                                    || $cust_payby->payby    ) =~ /^(CARD|DCRD)$/
  40                                  ? ( $cgi->param($name.'_payinfo') || $cust_payby->paymask )
  41                                  : ''
  42                             |h %>"
  43                onChange  = "<% $onchange %>"
  44         >
  45         <BR><FONT SIZE="-1"><% mt('Card number') |h %></FONT>
  46       </TD>
  47
  48       <TD ID="<%$id%>_td_paydate" <%$card_display%>>
  49         <& /elements/select-month_year.html,
  50              'prefix'        => $name. '_paydate',
  51              'selected_date' => (
  52                ( $cgi->param($name.'_payby') || $cust_payby->payby ) =~ /^(CARD|DCRD)$/
  53                  ? ( $cgi->param($name.'_paydate_month')
  54                        ? $cgi->param($name.'_paydate_month'). '-1-'.
  55                          $cgi->param($name.'_paydate_year')
  56                        : $cust_payby->paydate
  57                    )
  58                  : ''
  59              ),
  60              'onhhange'      => $onchange,
  61         &>
  62         <BR><FONT SIZE="-1">Expiration&nbsp;date</FONT>
  63       </TD>
  64
  65       <TD ID="<%$id%>_td_paycvv" <%$card_display%>>
  66         <INPUT TYPE      = "text"
  67                NAME      = "<%$name%>_paycvv"
  68                ID        = "<%$id%>_paycvv"
  69                SIZE      = 2
  70                MAXLENGTH = 4
  71                VALUE     = "<% scalar($cgi->param($name.'_paycvv')) || ('*' x length($cust_payby->paycvv)) %>"
  72                onChange  = "<% $onchange %>"
  73         >
  74         <BR><FONT SIZE="-1"><% mt('CVV2') |h %>&nbsp;(<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('<%$p%>docs/cvv2.html', 480, 275, 'cvv2_popup' ), CAPTION, 'CVV2 Help', STICKY, AUTOSTATUSCAP, CLOSECLICK, DRAGGABLE ); return false;"><% mt('help') |h %></A>)</FONT>
  75       </TD>
  76
  77       <TD ID="<%$id%>_td_payname" <%$card_display%>>
  78         <INPUT TYPE     = "text"
  79                NAME     = "<%$name%>_payname"
  80                ID       = "<%$id%>_payname"
  81                onChange = "<% $onchange %>"
  82                VALUE     = "<% ( $cgi->param($name.'_payby')
  83                                    || $cust_payby->payby    ) =~ /^(CARD|DCRD)$/
  84                                  ? ( $cgi->param($name.'_payname') || $cust_payby->payname )
  85                                  : ''
  86                             |h %>"
  87         >
  88         <BR><FONT SIZE="-1"><% mt('Exact name on card') |h %></FONT>
  89       </TD>
  90
  91 %     ###
  92 %     # chek info
  93 %     ###
  94
  95 %     my $chek_display = $sel_payby eq 'CHEK' ? '' : 'STYLE="display:none"';
  96
  97       <TD ID="<%$id%>_td_paytype" <%$chek_display%>>
  98         <SELECT NAME="<%$name%>_paytype">!.
  99 %         foreach my $paytype ( FS::cust_payby->paytypes ) {
 100             <OPTION VALUE="<%$paytype%>"
 101                     <% $paytype eq ( $cgi->param($name.'_paytype')
 102                                        || $cust_payby->paytype     )
 103                          ? 'SELECTED'
 104                          : ''
 105                     %>
 106             ><% $paytype %>
 107 %         }
 108         </SELECT>
 109         <BR><FONT SIZE="-1"><% mt('Account type') |h %></FONT>
 110       </TD>
 111
 112 %     my ( $account, $aba, $branch ) = ( '', '', '' );
 113 %     if ( $cgi->param($name.'_payby') =~ /^(CHEK|DCHK)$/ ) {
 114 %       $account = $cgi->param($name.'_payinfo1');
 115 %       $aba     = $cgi->param($name.'_payinfo2');
 116 %       $branch  = $cgi->param($name.'_payinfo3');
 117 %     } elsif ( $cust_payby->payby =~ /^(CHEK|DCHK)$/ ) {
 118 %       ( $account, $aba ) = split('@', $cust_payby->payinfo);
 119 %       ( $branch,  $aba ) = split('\.',$aba)
 120 %         if $echeck_country eq 'CA';
 121 %     }
 122 %
 123 %     #false laziness w/view/cust_main/billing.html and misc/payment.cgi
 124 %     my $routing_label = $echeck_country eq 'US' ? 'ABA/Routing #'
 125 %                                                 : 'Routing #';
 126 %     my $routing_size      = $echeck_country eq 'CA' ? 4 : 10;
 127 %     my $routing_maxlength = $echeck_country eq 'CA' ? 3 : 9;
 128 %     my $bankname_size     = $echeck_country eq 'CA' ? 13 : 20;
 129
 130       <TD ID="<%$id%>_td_payinfo1" <%$chek_display%>>
 131         <INPUT TYPE = "text"
 132                NAME      = "<%$name%>_payinfo1"
 133                ID        = "<%$id%>_payinfo1"
 134                VALUE     = "<% $account |h %>"
 135                SIZE      = 12
 136         >
 137         <BR><FONT SIZE="-1"><% mt('Account #') |h %>&nbsp;(<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('<%$p%>docs/ach.html', 380, 220, 'ach_popup' ), CAPTION, 'ACH Help', STICKY, AUTOSTATUSCAP, CLOSECLICK, DRAGGABLE ); return false;"><% mt('help') |h %></A>)</FONT>
 138       </TD>
 139
 140      <TD ID="<%$id%>_td_payinfo2" <%$chek_display%>>
 141         <INPUT TYPE = "text"
 142                NAME      = "<%$name%>_payinfo2"
 143                ID        = "<%$id%>_payinfo2"
 144                VALUE     = "<% $aba |h %>"
 145                SIZE      = "<% $routing_size %>"
 146                MAXLENGTH = "<% $routing_maxlength %>"
 147         >
 148         <BR><FONT SIZE="-1"><% mt($routing_label) |h %></FONT>
 149       </TD>
 150
 151 %     if ( $echeck_country eq 'CA' ) {
 152         <TD ID="<%$id%>_td_payinfo3" <%$chek_display%>>
 153           <INPUT TYPE = "text"
 154                  NAME      = "<%$name%>_payinfo3"
 155                  ID        = "<%$id%>_payinfo3"
 156                  VALUE     = "<% $branch |h %>"
 157                  SIZE      = 6
 158                  MAXLENGTH = 5
 159           >
 160           <BR><FONT SIZE="-1"><% mt('Branch #') |h %></FONT>
 161         </TD>
 162 %     }
 163
 164       <TD ID="<%$id%>_td_payname_CHEK" <%$chek_display%>>
 165         <INPUT TYPE = "text"
 166                NAME      = "<%$name%>_payname_CHEK"
 167                ID        = "<%$id%>_payname_CHEK"
 168                VALUE     = "<% ( $cgi->param($name.'_payby')
 169                                    || $cust_payby->payby    ) =~ /^(CHEK|DCHK)$/
 170                                  ? ( $cgi->param($name.'_payname_CHEK') || $cust_payby->payname )
 171                                  : ''
 172                             |h %>"
 173                SIZE      = "<% $bankname_size %>"
 174         >
 175         <BR><FONT SIZE="-1"><% mt('Bank name') |h %></FONT>
 176       </TD>
 177
 178 %     if ( $conf->exists('show_bankstate') ) {
 179         <TD ID="<%$id%>_td_paystate" <%$chek_display%>>
 180           <& /elements/select-state.html,
 181                'prefix'  => $name. '_pay',
 182                'empty'   => emt('(choose)'),
 183                'state'   => $cgi->param($name.'_paystate')
 184                               || $cust_payby->paystate,
 185                #was cust_main->country in 3.x, but this will do until/unlesss
 186                # someone needs to track foreign bank states
 187                'country' => scalar($conf->config('countrydefault')) || 'US',
 188           &>
 189           <BR><FONT SIZE="-1"><% mt('Bank state') |h %></FONT>
 190         </TD>
 191 %     }
 192
 193 %     ###
 194 %     # auto (maybe this should be first...)
 195 %     ###
 196
 197 %     #some fun javascript to enforce a single value for each weight
 198
 199       <TD>
 200         <SELECT NAME = "<%$name%>_weight">
 201           <OPTION VALUE="">Do not auto-charge
 202 %         foreach my $weight ( 1 .. max(5,$cust_payby->weight) ) { #more than 5?
 203             <OPTION VALUE="<%$weight%>"
 204                     <% $weight == $cust_payby->weight
 205                          ? 'SELECTED'
 206                          : ''
 207                     %>
 208             ><% mt( $weight{$weight} ) |h %>
 209 %         }
 210         </SELECT>
 211         <BR>
 212         <FONT SIZE="-1"><% mt('Auto-charge') |h %></FONT>
 213       </TD>
 214
 215     </TR>
 216   </TABLE>
 217
 218 % }
 219 % unless ( $opt{'html_only'} || $payby_changed_init ) {
 220   <SCRIPT TYPE="text/javascript">
 221
 222     function payby_changed(what) {
 223       var field_match = what.id.match(/(.*)_payby$/);
 224       var field_id = field_match[1];
 225       var payby = what.options[what.selectedIndex].value;
 226       if ( payby == 'CARD' ) {
 227         document.getElementById(field_id+'_td_payinfo').style.display = '';
 228         document.getElementById(field_id+'_td_paydate').style.display = '';
 229         document.getElementById(field_id+'_td_paycvv').style.display = '';
 230         document.getElementById(field_id+'_td_payname').style.display = '';
 231         document.getElementById(field_id+'_td_payinfo1').style.display = 'none';
 232         document.getElementById(field_id+'_td_payinfo2').style.display = 'none';
 233         document.getElementById(field_id+'_td_paytype').style.display = 'none';
 234         document.getElementById(field_id+'_td_payname_CHEK').style.display = 'none';
 235         var td_payinfo3 = document.getElementById(field_id+'_td_payinfo3');
 236         if ( td_payinfo3 ) {
 237           td_payinfo3.style.display = 'none';
 238         }
 239         var td_paystate = document.getElementById(field_id+'_td_paystate');
 240         if ( td_paystate ) {
 241           td_paystate.style.display = 'none';
 242         }
 243       } else if ( payby == 'CHEK' ) {
 244         document.getElementById(field_id+'_td_payinfo').style.display = 'none';
 245         document.getElementById(field_id+'_td_paydate').style.display = 'none';
 246         document.getElementById(field_id+'_td_paycvv').style.display = 'none';
 247         document.getElementById(field_id+'_td_payname').style.display = 'none';
 248         document.getElementById(field_id+'_td_payinfo1').style.display = '';
 249         document.getElementById(field_id+'_td_payinfo2').style.display = '';
 250         document.getElementById(field_id+'_td_paytype').style.display = '';
 251         document.getElementById(field_id+'_td_payname_CHEK').style.display = '';
 252         var td_payinfo3 = document.getElementById(field_id+'_td_payinfo3');
 253         if ( td_payinfo3 ) {
 254           td_payinfo3.style.display = '';
 255         }
 256         var td_paystate = document.getElementById(field_id+'_td_paystate');
 257         if ( td_paystate ) {
 258           td_paystate.style.display = '';
 259         }
 260       } else {
 261         alert( 'unknown payby ' + payby );
 262       }
 263       spawn_custpaybynum(what);
 264     }
 265
 266   </SCRIPT>
 267 %   $payby_changed_init = 1;
 268 % }
 269 <%once>
 270 my $payby_changed_init = 0;
 271 </%once>
 272 <%init>
 273
 274 my( %opt ) = @_;
 275
 276 my $conf = new FS::Conf;
 277
 278 my $echeck_country = $conf->config('echeck-country');
 279
 280 my $name = $opt{'element_name'} || $opt{'field'} || 'custpaybynum';
 281 my $id = $opt{'id'} || 'custpaybynum';
 282
 283 my $curr_value = $opt{'curr_value'} || $opt{'value'};
 284
 285 my $onchange = '';
 286 if ( $opt{'onchange'} ) {
 287   $onchange = $opt{'onchange'};
 288   $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/;
 289   $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack.  all onchange
 290                                         #callbacks should act the same
 291   #$onchange = 'onChange="'. $onchange. '"';
 292 }
 293
 294 my $cust_payby;
 295 if ( $curr_value ) {
 296   $cust_payby = qsearchs('cust_payby', { 'custpaybynum' => $curr_value } );
 297 } else {
 298   $cust_payby = new FS::cust_payby {};
 299 }
 300 my $sel_payby = $cgi->param($name.'_payby') || $cust_payby->payby;
 301 # convert DCRD to CARD + no weight, and the same for DCHK/CHEK
 302 if ($sel_payby eq 'DCRD') {
 303   $sel_payby = 'CARD';
 304   $cust_payby->weight('');
 305 } elsif ($sel_payby eq 'DCHK') {
 306   $sel_payby = 'CHEK';
 307   $cust_payby->weight('');
 308 } elsif (!$sel_payby) {
 309   # default
 310   $sel_payby = 'CARD';
 311 }
 312
 313 my @payby = FS::payby->cust_payby;
 314 my %conf_payby = map { $_=>1 } $conf->config('payby');
 315 @payby = grep $conf_payby{$_}, @payby if keys %conf_payby;
 316 @payby = grep $_ !~ /^(DCRD|DCHK)$/, @payby;
 317
 318 my %weight = (
 319   1 => 'Primary',
 320   2 => 'Secondary',
 321   3 => 'Tertiary',
 322   4 => 'Fourth',
 323   5 => 'Fifth',
 324   6 => 'Sixth',
 325   7 => 'Seventh',
 326 );
 327
 328 </%init>