projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
BEGONE $Id$
[freeside.git]
/
fs_selfservice
/
FS-SelfService
/
cgi
/
signup.cgi
diff --git
a/fs_selfservice/FS-SelfService/cgi/signup.cgi
b/fs_selfservice/FS-SelfService/cgi/signup.cgi
index
d2ad0d6
..
3e2f8fd
100755
(executable)
--- a/
fs_selfservice/FS-SelfService/cgi/signup.cgi
+++ b/
fs_selfservice/FS-SelfService/cgi/signup.cgi
@@
-1,7
+1,5
@@
#!/usr/bin/perl -T
#!/usr/bin/perl -Tw
#!/usr/bin/perl -T
#!/usr/bin/perl -Tw
-#
-# $Id: signup.cgi,v 1.2 2005-03-12 14:35:12 ivan Exp $
use strict;
use vars qw( @payby $cgi $init_data
use strict;
use vars qw( @payby $cgi $init_data
@@
-178,6
+176,10
@@
if ( ( defined($cgi->param('magic')) && $cgi->param('magic') eq 'process' )
or $error ||= $init_data->{msgcat}{not_a}. $cgi->param('CARD_type');
}
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($_)) }
unless ( $error ) {
my $rv = new_customer( {
map { $_ => scalar($cgi->param($_)) }