<%= $agent || 'ISP' %> Signup form

X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fsignup.html;h=447f39af0133497e608ead217abca4036867f89c;hp=3532527a23aa43360ad496cceb6fb28cb8f665f2;hb=54a357b171aa44f9399b4c146acd2afd3b686075;hpb=7598902376bff0ddeba07ef9eb973f64efe87ad5 diff --git a/fs_selfservice/FS-SelfService/cgi/signup.html b/fs_selfservice/FS-SelfService/cgi/signup.html index 3532527a2..447f39af0 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.html +++ b/fs_selfservice/FS-SelfService/cgi/signup.html @@ -1,6 +1,17 @@ -<%= $agent || 'ISP' %> Signup form - - -<%= $agent || 'ISP' %> Signup form

-<%= $error %> -

+ + +<%= $OUT .= $body_header + || ''. + ( $agent || ( $signup_service eq 'svc_phone' ? 'ITSP' : 'ISP' ) ). + ' Signup form

'; +%> + +<%= encode_entities($error) %> + + + - + + + +<%= + $OUT = join("\n",map { my $method = $_ ; map { qq|| } qw / payinfo payinfo1 payinfo2 payname paystate paytype paycvv month year type / } @payby); +%> + +<%= + $OUT = join("\n", map { qq|| } qw / promo_code reg_code pkgpart username _password _password2 sec_phrase popnum mac_addr countrycode phonenum sip_password pin / ); +%> + +<%= + if ($override_ban_warn) { + $OUT .= 'Are you sure you want to sign up again?

'; + } else { + $OUT .= ''; + } +%> + Where did you hear about our service?

+ +<%= unless ( $prepaid_template_custnum && $prepaid_shortform ) { + +my $bgcolor = $box_bgcolor || '#c0c0c0'; +$OUT .= qq! Contact Information - +

- + - + - + - + - - - !; + + my ($county_html, $state_html, $country_html) = regionselector( { selected_county => $county, selected_state => $state, @@ -64,122 +104,189 @@ Contact Information locales => \@cust_main_county, } ); - "$county_html $state_html"; - %> +$county_out = ($county_html =~ /SELECT/) ? 'County/State' : 'State'; +$OUT .= qq! + - + - + - + - + - + +!; + if ( $stateid_enabled ) { + my ($county_html, $state_html, $country_html) = + regionselector( { + prefix => 'stateid_', + default_state => $statedefault, + default_country => $countrydefault, + locales => \@cust_main_county, + } ); + $OUT .= qq!'; + $OUT .= qq!!; + $OUT .= qq!'; + $OUT .=""; + } +$OUT .= qq!

*Contact name (last, first)	, -				, +
Company
*Address

*City		*State/Country	- <%= - ($county_html, $state_html, $country_html) = +	* $county_out	+ $county_html $state_html	*Zip
*Country	<%= $country_html %>	$country_html
Day Phone
Night Phone
Fax
!. $label{stateid}.'		!. $label{stateid_state} .'	$county_html $state_html

* required fields
-
Billing information +!; + +} +else { + @payby = ('PREPAY'); +} +''; +%> + +
Billing information

- -<%= scalar(@payby) > 1 ? '' : '' %> -

<%= + $OUT =''; + unless ( $emailinvoiceonly ) { $OUT .= ' - Postal mail invoice +

Email invoice +

<%= $OUT = ( $emailinvoiceonly ? q|*| : q|| ) %> Email invoice

Billing type

+<%= ( scalar(@payby) > 1 or 1 ) ? 'Billing type ' : '' %> + <%= my $cardselect = ''; my %payby = ( 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD"). qq!
*Name on card
!, 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD"). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", "12-2037"). qq!
*Attention
!, + 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code Type
{$r}Bank State
${r}Bank name !, + 'DCHK' => qq!Electronic check
${r}Account number Type
${r}ABA/Routing code
{$r}Bank State
${r}Bank name !, + 'LECB' => qq!Phone bill billing
${r}Phone number !, + 'BILL' => qq!Billing
P.O.
Attention!, 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"), 'PREPAY' => qq!Prepaid card
*!, ); if ( $cvv_enabled ) { foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $payby{$payby} .= qq!
CVV2 (help) !; + $payby{$payby} .= qq!CVV2 (help)!; + } + } + if ( $paystate_enabled ) { + foreach my $payby ( grep { exists $payby{$_} } qw(CHEK DCHK) ) { + my ($county_html, $state_html, $country_html) = + regionselector( { + prefix => "${payby}_pay", + default_state => $statedefault, + default_country => $countrydefault, + locales => \@cust_main_county, + } ); + $payby{$payby} .= "
${r}Bank state $county_html $state_html"; } } my( $account, $aba ) = split('@', $payinfo); my %paybychecked = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD", $paydate). qq!
*Name on card
!, + 'CARD' => '!, 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD", $paydate). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, + 'CHEK' => qq!Electronic check
${r}Account number Type
${r}ABA/Routing code
${r}Bank name !, + 'DCHK' => qq!Electronic check
${r}Account number Type
${r}ABA/Routing code
${r}Bank name !, 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", $paydate). qq!
*Attention
!, + 'BILL' => qq!Billing
P.O.
Attention!, 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP", $paydate), 'PREPAY' => qq!Prepaid card
*!, ); if ( $cvv_enabled ) { foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $paybychecked{$payby} .= qq!
CVV2 (help) !; + $paybychecked{$payby} .= qq!!; } } - - for (@payby) { - if ( scalar(@payby) == 1) { - $OUT .= '"; - } else { - $OUT .= qq!!; - } else { - $OUT .= qq!> $payby{$_}!; - } - + if ( $paystate_enabled ) { + foreach my $payby ( grep { exists $payby{$_} } qw(CHEK DCHK) ) { + my ($county_html, $state_html, $country_html) = + regionselector( { + prefix => "${payby}_pay", + selected_county => $county, + selected_state => $state, + selected_country => $country, + default_state => $statedefault, + default_country => $countrydefault, + locales => \@cust_main_county, + } ); + $paybychecked{$payby} .= "
${r}Bank state $county_html $state_html"; } } + + my %payby_index = ( 'CARD' => qq/Credit Card/, + 'DCRD' => qq/Credit Card/, + 'CHEK' => qq/Check/, + 'DCHK' => qq/Check/, + 'LECB' => qq/Phone Bill Billing/, + 'BILL' => qq/Billing/, + 'COMP' => qq/Complimentary/, + 'PREPAY' => qq/Prepaid Card/, + ); + + +tie my %options, 'Tie::IxHash', (); + +foreach my $payby_option ( @payby ) { + $options{$payby_option} = $payby_index{$payby_option}; +} + +my $selected_layer = ( grep { $_ eq 'CARD' } @payby ) ? 'CARD' : $payby[0]; + +HTML::Widgets::SelectLayers->new( + options => \%options, + selected_layer => $selected_layer, + form_name => 'dummy', + html_between => '

* Card type	$cardselect
* Card number
* Expiration	!. expselect("CARD", $paydate). qq!
* Name on card
CVV2 (help)
'. - qq!!. - "$paybychecked{$_}	$paybychecked{$_}

', + form_action => 'dummy.cgi', + layer_callback => sub { my $layer = shift; return ( shift @hide_payment_fields ? '' : $paybychecked{$layer} ) . ''; }, +)->html; + + %> -* required fields for each billing type -

First package - +

* required fields +

First package + + + - +<%= + if ( $signup_service eq 'svc_phone' ) { + + $OUT .= ''; + + $OUT .= < + + + +ENDOUT + + } else { + + $OUT .= < - + - + - + -<%= - if ( $security_phrase ) { - $OUT .= < -ENDOUT - } else { - $OUT .= ''; +SECPHRASE + } else { + $OUT .= ''; + } + + if ( $nomadix ) { + + warn $mac_addr; + $mac_addr ||= $MA; + warn $mac_addr; + + $OUT .= < +NOMADIX + + } + } -%> -<%= + if ( @svc_acct_pop ) { $OUT .= '


Phone number	'. + didselector( 'field' => 'phonenum', + 'svcpart' => $default_svcpart, + ). + '
Voicemail PIN
Username
Password
Re-enter Password
Security Phrase
Access number	'. popselector( 'popnum' => $popnum, @@ -227,7 +367,119 @@ ENDOUT } else { $OUT .= popselector(popnum=>$popnum, pops=>\@svc_acct_pop); } + %> +

-

-

+ +<%= +if ( @optional_packages ) { + my @html; + foreach my $ii ( 0 .. $#optional_packages) { + my $friendly_index = $ii + 1; + if ($optional_packages[$ii]) { + push @html, qq|
Optional Package #$friendly_index
|,'

'; + + push @html, qq||; + + push @html, '

'; + } + $OUT = join("\n", @html); + } +} else { +$OUT = '' +} +%> +<%= + if ( $terms_of_service =~ /\S/ ) { + my $title = 'Terms of Service'; #config? + my $onclick = qq[overlib( terms_content, CAPTION, "$title", STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK, CLOSETEXT, "Close" );]; + # Container for $terms_of_service to avoid nasty escaping. + $OUT .= qq[ +
+ + + +I agree to the Terms of Service. +]; + } +%> +
+ + +<%= $OUT .= $body_footer %> + +