X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fselfservice.cgi;h=6eab11daec104803b8a86651e8f4b9a38f454683;hb=afb1c3d32628a6778c56fd3ff356dfaaa6ac0c58;hp=161231555f880cdd4f39acb5144275ccc88c9da5;hpb=2cc8d4007576bfd2efd294fe19f5c3885c5abd8e;p=freeside.git diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 161231555..6eab11dae 100755 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -276,18 +276,18 @@ sub change_bill { } return $payment_info if ( $payment_info->{'error'} ); - my $customer_info = customer_info( - mask_ss => 1, - mask_stateid => 1, - session_id => $session_id, - ); + my $customer_info = + customer_info( 'session_id' => $session_id ); return { %$payment_info, %$customer_info, }; } sub change_ship { change_bill(@_); } -sub change_pay { change_bill(@_); } +sub change_pay { + my @payby = ('CARD', 'CHEK', 'DCHK'); + change_bill(@_); +} sub change_creditcard_pay { change_bill('CARD'); } sub change_check_pay { change_bill('CHEK'); } @@ -729,9 +729,9 @@ sub payment_results { $cgi->param('paycvv') =~ /^\s*(.{0,4})\s*$/ or die "illegal CVV2"; my $paycvv = $1; - $cgi->param('month') =~ /^(\d{2})$/ or die "illegal month"; + $cgi->param('month') =~ /^(\d{2})/ or die "illegal month"; my $month = $1; - $cgi->param('year') =~ /^(\d{4})$/ or die "illegal year"; + $cgi->param('year') =~ /^(\d{4})/ or die "illegal year"; my $year = $1; $cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";