X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fsignup.html;h=ae7b2226a343bb6e5446ed038d0bceef2aa28dfa;hp=29078e2f775a87ceb7c74fd08d13c9e5e378aa47;hb=32db3ad86bcf04e4f34705a396b718061d333f20;hpb=533c1a26db76bcd486e36099da3976d7853ea46d diff --git a/fs_selfservice/FS-SelfService/cgi/signup.html b/fs_selfservice/FS-SelfService/cgi/signup.html index 29078e2f7..ae7b2226a 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.html +++ b/fs_selfservice/FS-SelfService/cgi/signup.html @@ -1,6 +1,12 @@ -<%= $agent || ( $signup_service eq 'svc_phone' ? 'ITSP' : 'ISP' ) %> Signup form - - -<%= $agent || ( $signup_service eq 'svc_phone' ? 'ITSP' : 'ISP' ) %> Signup form

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

'; +%> + <%= $error %> +
- + <%= $OUT = join("\n",map { my $method = $_ ; map { qq|| } qw / payinfo payinfo1 payinfo2 payname paystate paytype paycvv month year type / } @payby); %> @@ -39,7 +52,7 @@ Where did you hear about our service?

Contact Information - +
*Contact name
(last, first)		 , @@ -111,7 +124,7 @@ Contact Information } %>
* required fields
-
Billing information +
Billing information
<%= @@ -148,7 +161,7 @@ Contact Information '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.
*Exp !. expselect("BILL", "12-2037"). qq!
*Attention
!, + 'BILL' => qq!Billing
P.O.
Attention!, 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"), 'PREPAY' => qq!Prepaid card
*!, ); @@ -173,12 +186,12 @@ Contact Information my( $account, $aba ) = split('@', $payinfo); my %paybychecked = ( - 'CARD' => qq!!, + 'CARD' => '
* Card type$cardselect
* Card number
* Expration!. 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 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
*!, ); @@ -224,13 +237,15 @@ 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 => 'CARD', + selected_layer => $selected_layer, form_name => 'dummy', html_between => '
* Card type$cardselect
* Card number
* Expration!. expselect("CARD", $paydate). qq!
* Name on card
', form_action => 'dummy.cgi', - layer_callback => sub { my $layer = shift; return $paybychecked{$layer}. '
'; }, + layer_callback => sub { my $layer = shift; return ( shift @hide_payment_fields ? '' : $paybychecked{$layer} ) . ''; }, )->html; @@ -240,7 +255,7 @@ HTML::Widgets::SelectLayers->new(

First package - +