X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fsignup.html;h=6edb644d27bfa43d44bdb7bde6d61cfea59ac4db;hp=3532527a23aa43360ad496cceb6fb28cb8f665f2;hb=HEAD;hpb=b8cfd0780aa40bb07f3215bf9cb58011f5e32a35 diff --git a/fs_selfservice/FS-SelfService/cgi/signup.html b/fs_selfservice/FS-SelfService/cgi/signup.html index 3532527a2..6edb644d2 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

'; +%> + +<%= if ( $error ) { + $OUT .= ''. 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 domsvc mac_addr countrycode phonenum + sip_password pin ), + map { ( "tax_$_", "tax_${_}_num" ) } @exempt_groups + ); +%> + +<%= + if ($override_ban_warn) { + $OUT .= 'Are you sure you want to sign up again?

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

-Contact Information - + +<%= 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 +121,229 @@ 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 $table = ''; 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
!, + 'CARD' => qq!$table!, + 'DCRD' => qq!$table!, + '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) !; + my $cvv_r = $require_cvv ? '* ' : ''; + $payby{$payby} .= qq!!; + } + } + 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
!, - '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 !, + 'CARD' => qq!$table!, + 'DCRD' => qq!$table!, + '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) !; + my $cvv_r = $require_cvv ? '* ' : ''; + $paybychecked{$payby} .= qq!!; + } + } + 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"; } } - for (@payby) { - if ( scalar(@payby) == 1) { - $OUT .= '"; - } else { - $OUT .= qq!!; - } else { - $OUT .= qq!> $payby{$_}!; - } + my %payby_index = ( 'CARD' => qq/Credit Card/, + 'DCRD' => qq/Credit Card (no auto-charge)/, + 'CHEK' => qq/Check/, + 'DCHK' => qq/Check (no auto-charge)/, + '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"). qq!
* Name on card
* Card type$cardselect
* Card number
* Expiration!. expselect("DCRD"). qq!
* Name on card
${cvv_r}CVV2 (help)
* Card type$cardselect
* Card number
* Expiration!. expselect("CARD", $paydate). qq!
* Name on card
* Card type$cardselect
* Card number
* Expiration!. expselect("DCRD", $paydate). qq!
* Name on card
${cvv_r}CVV2 (help)
'. - qq!!. - "$paybychecked{$_} $paybychecked{$_}
', + form_action => 'dummy.cgi', + layer_callback => sub { my $layer = shift; return ( shift @hide_payment_fields ? '' : $paybychecked{$layer} ) . ''; }, +)->html; + + + %> + + + + + + + +<%= + foreach my $exempt_group ( @exempt_groups ) { + no strict 'refs'; + my $checked = ${"tax_$exempt_group"} ? 'CHECKED' : ''; + my $disabled = $checked ? '' : 'DISABLED'; + + $OUT .= qq! + + + !; + } +%> + + +
Tax Exempt ($exempt_group taxes) + - Exemption number
* required fields -* required fields for each billing type -

First package - + + +
First package + + +
+
- +<%= + if ( $signup_service eq 'svc_phone' ) { + + $OUT .= ''; + + $OUT .= < + + + +ENDOUT + + } else { + + $OUT .= < - + +ENDOUT + + $OUT .= domainselector( svcpart=>$default_svcpart, domsvc=>$default_domsvc ) + if $default_svcpart; + + $OUT .= < - + - + -<%= - if ( $security_phrase ) { - $OUT .= < -ENDOUT - } else { - $OUT .= ''; +SECPHRASE + } else { + $OUT .= ''; + } + } -%> -<%= + 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 +426,133 @@ 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 %> + +