diff options
| author | ivan <ivan> | 2009-09-30 19:33:16 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-09-30 19:33:16 +0000 |
| commit | e32c893b60648be374cc9fbdc8b7d46b02894cac (patch) | |
| tree | 62b88b19b7237480bbb08598053df1d335105bb2 | |
| parent | 1e486582cfec7db91191b3e1ce258432942c829f (diff) | |
hopefully the final fix for the problems using remembered cards in self-service
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 490b20f1e..b6a349c20 100644 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -317,7 +317,7 @@ sub make_payment { sub payment_results { - use Business::CreditCard; + use Business::CreditCard 0.30; #we should only do basic checking here for DoS attacks and things #that couldn't be constructed by the web form... let process_payment() do @@ -329,7 +329,7 @@ sub payment_results { my $payinfo = $cgi->param('payinfo'); $payinfo =~ s/[^\dx]//g; - $payinfo =~ /^(\d{13,16})$/ + $payinfo =~ /^([\dx]{13,16})$/ #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo; or die "illegal card"; #!!! $payinfo = $1; |