summaryrefslogtreecommitdiff
path: root/fs_selfservice/FS-SelfService
diff options
context:
space:
mode:
authorivan <ivan>2006-11-05 18:03:59 +0000
committerivan <ivan>2006-11-05 18:03:59 +0000
commitf6a3faac851c7fd1baa6d13053aa55ae01394bcd (patch)
tree9bfdae1630c789e7c636acf80a9bca053b29bcb7 /fs_selfservice/FS-SelfService
parentf0487a6e83b54a1e4656b32603e7e40beeb4f788 (diff)
have card_type be an optional param anyway
Diffstat (limited to 'fs_selfservice/FS-SelfService')
-rw-r--r--fs_selfservice/FS-SelfService/cgi/selfservice.cgi9
1 files changed, 6 insertions, 3 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
index edf0de749..dea6e4a4c 100644
--- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
@@ -128,9 +128,12 @@ sub payment_results {
validate($payinfo)
#or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
or die "invalid card"; #!!!
- cardtype($payinfo) eq $cgi->param('card_type')
- #or $error ||= $init_data->{msgcat}{not_a}. $cgi->param('CARD_type');
- or die "not a ". $cgi->param('card_type');
+
+ if ( $cgi->param('card_type' ) {
+ cardtype($payinfo) eq $cgi->param('card_type')
+ #or $error ||= $init_data->{msgcat}{not_a}. $cgi->param('CARD_type');
+ or die "not a ". $cgi->param('card_type');
+ }
$cgi->param('month') =~ /^(\d{2})$/ or die "illegal month";
my $month = $1;