diff options
author | ivan <ivan> | 2006-11-05 18:03:59 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-11-05 18:03:59 +0000 |
commit | f6a3faac851c7fd1baa6d13053aa55ae01394bcd (patch) | |
tree | 9bfdae1630c789e7c636acf80a9bca053b29bcb7 | |
parent | f0487a6e83b54a1e4656b32603e7e40beeb4f788 (diff) |
have card_type be an optional param anyway
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 9 |
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; |