}
-
return { 'error' => '',
'custnum' => $custnum,
%return,
$return{balance} = $cust_main->balance;
$return{payname} = $cust_main->payname
- || $cust_main->first. ' '. $cust_main->get('last');
+ || ( $cust_main->first. ' '. $cust_main->get('last') );
$return{$_} = $cust_main->get($_) for qw(address1 address2 city state zip);
$return{payby} = $cust_main->payby;
if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) {
- $return{card_type} = cardtype($cust_main->payinfo);
+ warn $return{card_type} = cardtype($cust_main->payinfo);
$return{payinfo} = $cust_main->payinfo;
if ( $cust_main->paydate =~ /^(\d{4})-(\d{2})-\d{2}$/ ) { #Pg date format
'American Express' => 'American Express card',
};
+ my $_date = time;
+ $return{paybatch} = 'webui-MyAccount-$_date-$$-". rand() * 2**32
+
return { 'error' => '',
%return,
};
<!-- <A HREF="<%= $url %>other">SomethingElse</A><BR> -->
</TD><TD VALIGN="top">
<FONT SIZE=4>Make a payment</FONT><BR><BR>
-<FORM METHOD="POST" ACTION="<%=$selfurl%>">
+<FORM NAME="OneTrueForm" METHOD="POST" ACTION="<%=$selfurl%>" onSubmit="document.OneTrueForm.process.disabled=true">
<INPUT TYPE="hidden" NAME="session" VALUE="<%=$session_id%>">
<INPUT TYPE="hidden" NAME="action" VALUE="process_payment">
<TABLE BGCOLOR="#cccccc">
<TD ALIGN="right">Card type</TD>
<TD>
<SELECT NAME="card_type"><OPTION></OPTION>
- <%= foreach ( keys %$card_types ) {
- $selected = $card_type eq $card_types->{$_} ? ' SELECTED' : '';
+ <%= foreach ( keys %card_types ) {
+ $selected = $card_type eq $card_types{$_} ? ' SELECTED' : '';
$OUT .= qq(<OPTION$selected VALUE="). $card_types->{$_}. qq(">$_\n);
} %>
</SELECT>
</TD>
</TR><TR>
<TD ALIGN="right">Exact name on card</TD>
- <TD><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" SVALUE="<%=$payname%>"></TD>
+ <TD><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%=$payname%>"></TD>
</TR><TR>
<TD ALIGN="right">Card billing address</TD>
<TD>
<TD>State</TD>
<TD>
<SELECT NAME="state">
- <%= for ( @$states ) {
+ <%= for ( @states ) {
$OUT .= '<OPTION'. ($_ eq $state ? ' SELECTED' : '' ). ">$_\n";
} %>
</SELECT>
</TD>
</TR>
</TABLE>
-<INPUT TYPE="submit" VALUE="Process payment">
+<BR>
+<INPUT TYPE="hidden" NAME="paybatch" VALUE="$paybatch">
+<INPUT TYPE="submit" NAME="process" VALUE="Process payment"> <!-- onClick="this.disabled=true"> -->
</FORM>
</TD></TR></TABLE>
<HR>