X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fsignup.html;fp=fs_selfservice%2FFS-SelfService%2Fcgi%2Fsignup.html;h=3e0f327497c15d1de86fa7550871fe9d75e060b7;hb=0e8a3725a0843c6e38fd5c430d6f1bc4a67d1419;hp=2ab07b37ea70adf475a2b26d029e2d955d1a90a2;hpb=b3b8c2e07e661046fe940ac083488d57a32f2c20;p=freeside.git diff --git a/fs_selfservice/FS-SelfService/cgi/signup.html b/fs_selfservice/FS-SelfService/cgi/signup.html index 2ab07b37e..3e0f32749 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.html +++ b/fs_selfservice/FS-SelfService/cgi/signup.html @@ -19,6 +19,15 @@ + +<%= + $OUT = join("\n",map { my $method = $_ ; map { qq|| } qw / payinfo payinfo1 payinfo2 payname paycvv month year type / } @payby); +%> + +<%= + $OUT = join("\n", map { qq|| } qw / promo_code reg_code pkgpart username _password _password2 sec_phrase popnum / ); +%> + Where did you hear about our service? - Postal mail invoice + -Email invoice +<%= $OUT = ( $emailinvoiceonly ? q|*| : q|| ) %> Email invoice <%= scalar(@payby) > 1 ? 'Billing type' : '' %> @@ -126,7 +137,7 @@ Contact Information '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 !, + 'LECB' => qq!Phone bill billing
${r}Phone number !, 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", "12-2037"). qq!
*Attention
!, 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"), 'PREPAY' => qq!Prepaid card
*!, @@ -155,26 +166,40 @@ Contact Information $paybychecked{$payby} .= qq!
CVV2 (help!; } } +use Tie::IxHash; +use HTML::Widgets::SelectLayers; + + 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}; +} + +HTML::Widgets::SelectLayers->new( + options => \%options, + selected_layer => 'CARD', + form_name => 'dummy', + html_between => '', + form_action => 'dummy.cgi', + layer_callback => sub { my $layer = shift; return $paybychecked{$layer}; }, +)->html; - for (@payby) { - if ( scalar(@payby) == 1) { - $OUT .= ''. - qq!!. - "$paybychecked{$_}"; - } else { - $OUT .= qq! $paybychecked{$_}!; - } else { - $OUT .= qq!> $payby{$_}!; - } - } - } %> * required fields for each billing type -

First package +


First package @@ -233,4 +258,63 @@ ENDOUT %>


+