diff options
| author | ivan <ivan> | 2009-10-01 00:52:16 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-10-01 00:52:16 +0000 |
| commit | d04e54be45de1621b9ed67ef987ca2b7d36ebd0c (patch) | |
| tree | 865aafd9a2193e9086739b2e800c8bf60e24945a /fs_selfservice | |
| parent | ea771de9552fe4b22d49ecb6b73614cbcc995223 (diff) | |
hopefully the really final fix for the problems using remembered cards in self-service. *sigh*
Diffstat (limited to 'fs_selfservice')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 7071e6ca6..30fc2aa22 100644 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -377,9 +377,11 @@ sub payment_results { #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo; or die "illegal card"; #!!! $payinfo = $1; - validate($payinfo) - #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo; - or die "invalid card"; #!!! + unless ( $payinfo =~ /x/ ) { + validate($payinfo) + #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo; + or die "invalid card"; #!!! + } if ( $cgi->param('card_type') ) { cardtype($payinfo) eq $cgi->param('card_type') |