fs_selfservice/FS-SelfService/cgi/change_pay.html

   1 <HTML><HEAD><TITLE>MyAccount</TITLE></HEAD>
   2 <BODY BGCOLOR="#eeeeee">
   3 <script language="JavaScript"><!--
   4   var mywindow = -1;
   5   function myopen(filename,windowname,properties) {
   6     myclose();
   7     mywindow = window.open(filename,windowname,properties);
   8   }
   9   function myclose() {
  10     if ( mywindow != -1 )
  11       mywindow.close();
  12     mywindow = -1
  13   }
  14 //--></script>
  15 <FONT SIZE=5>MyAccount</FONT><BR><BR>
  16 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
  17 <%= include('myaccount_menu') %>
  18 <TD VALIGN="top">
  19 <FONT SIZE=4>Change payment information</FONT><BR><BR>
  20 <%= if ( $error ) {
  21   $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">Error: $error</FONT><BR><BR>!;
  22   }  ''; %>
  23
  24 <FORM NAME="OneTrueForm" METHOD="POST" ACTION="<%=$selfurl%>" onSubmit="document.OneTrueForm.process.disabled=true">
  25 <%=
  26   use Tie::IxHash;
  27   use HTML::Widgets::SelectLayers;
  28
  29   my $preauto = '<TR><TD COLSPAN=3><INPUT TYPE="checkbox" NAME="auto" VALUE="1"';
  30   my $postauto = '>Charge future payments to this card automatically</TD></TR>';
  31
  32   my $tail = qq(</TABLE><INPUT TYPE="hidden" NAME="session" VALUE="$session_id">).
  33              qq(<INPUT TYPE="hidden" NAME="action" VALUE="process_change_pay">).
  34              qq(<BR>).
  35              qq(<INPUT TYPE="submit" NAME="process" ).
  36              qq(VALUE="Save payment information"> ).
  37              qq(<!-- onClick="this.disabled=true"> -->);
  38
  39
  40   my %paybychecked = (
  41     'BILL' => include('bill'),
  42     'CARD' => include('card')."$preauto CHECKED $postauto",
  43     'DCRD' => include('card')."$preauto $postauto",
  44     'CHEK' => include('check')."$preauto CHECKED $postauto",
  45     'DCHK' => include('check')."$preauto $postauto",
  46   );
  47   my %payby_index = ( 'CARD'   => qq/Credit Card/,
  48                       'DCRD'   => qq/Credit Card/,
  49                       'CHEK'   => qq/Check/,
  50                       'DCHK'   => qq/Check/,
  51                       'LECB'   => qq/Phone Bill Billing/,
  52                       'BILL'   => qq/Billing/,
  53                       'COMP'   => qq/Complimentary/,
  54                       'PREPAY' => qq/Prepaid Card/,
  55                     );
  56   tie my %options, 'Tie::IxHash', ();
  57   foreach my $payby_option ( @paybys ) {
  58     $options{$payby_option} = $payby_index{$payby_option};
  59   }
  60   $options{$payby} = $payby_index{$payby}
  61     unless exists($options{$payby});
  62
  63   HTML::Widgets::SelectLayers->new(
  64     options => \%options,
  65     selected_layer => $payby,
  66 #    form_name => 'dummy',
  67 #    form_action => 'dummy.cgi',
  68     layer_callback => sub { my $layer = shift; return '<TABLE BGCOLOR="#cccccc">'.$paybychecked{$layer}.qq!<INPUT TYPE="hidden" NAME="payby" VALUE="$layer">$tail!; },
  69   )->html;
  70
  71 %>
  72 </TD></TR></TABLE>
  73 <%= include('footer') %>