diff options
| author | lawrence <lawrence> | 2006-08-29 17:50:06 +0000 |
|---|---|---|
| committer | lawrence <lawrence> | 2006-08-29 17:50:06 +0000 |
| commit | 0e8a3725a0843c6e38fd5c430d6f1bc4a67d1419 (patch) | |
| tree | 2809a73a56600d8a71856c573315f085b2704835 /fs_selfservice/FS-SelfService/cgi/signup.cgi | |
| parent | b3b8c2e07e661046fe940ac083488d57a32f2c20 (diff) | |
Signup Enhancements
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/signup.cgi')
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/signup.cgi | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/signup.cgi b/fs_selfservice/FS-SelfService/cgi/signup.cgi index d2ad0d64b..a09189270 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.cgi +++ b/fs_selfservice/FS-SelfService/cgi/signup.cgi @@ -1,7 +1,7 @@ #!/usr/bin/perl -T #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.2 2005-03-12 14:35:12 ivan Exp $ +# $Id: signup.cgi,v 1.3 2006-08-29 17:50:06 lawrence Exp $ use strict; use vars qw( @payby $cgi $init_data @@ -178,6 +178,10 @@ if ( ( defined($cgi->param('magic')) && $cgi->param('magic') eq 'process' ) or $error ||= $init_data->{msgcat}{not_a}. $cgi->param('CARD_type'); } + if ($init_data->{emailinvoiceonly} && (length $cgi->param('invoicing_list') < 1)) { + $error ||= $init_data->{msgcat}{illegal_or_empty_text}; + } + unless ( $error ) { my $rv = new_customer( { map { $_ => scalar($cgi->param($_)) } |