X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=inline;f=fs_signup%2FFS-SignupClient%2Fcgi%2Fsignup-alternate.html;h=490cefa5ea156279ebc2338343a7d7092743e95c;hb=3ef62a0570055da710328937e7f65dbb2c027c62;hp=e57becc6050695dfcc869a601eb9cb5d23b58d61;hpb=e049a6780efd3682607715588a773c05be0c978f;p=freeside.git
diff --git a/fs_signup/FS-SignupClient/cgi/signup-alternate.html b/fs_signup/FS-SignupClient/cgi/signup-alternate.html
index e57becc60..490cefa5e 100755
--- a/fs_signup/FS-SignupClient/cgi/signup-alternate.html
+++ b/fs_signup/FS-SignupClient/cgi/signup-alternate.html
@@ -33,14 +33,16 @@ Contact Information
<%=
foreach ( @{$locales} ) {
- $OUT .= '";
}
%>
@@ -98,7 +100,7 @@ ENDOUT
}
%>
-* required fields';
+* required fields
First package
@@ -106,23 +108,32 @@ ENDOUT
my %pkgpart2payby = map { $_->{pkgpart} => $_->{payby}[0] } @{$packages};
tie my %options, 'Tie::IxHash',
'' => '(none)',
- map { $_->{pkgpart} => $_->{pkg} } @{$packages}
+ map { $_->{pkgpart} => $_->{pkg} }
+ sort { $a->{recur} <=> $b->{recur} }
+ @{$packages}
;
use HTML::Widgets::SelectLayers 0.02;
+ my @form_text = qw( magic ref ss agentnum
+ last first company address1 address2
+ city zip daytime night fax
+ username _password _password2 sec_phrase );
+ my @form_select = qw( state ); #county country
+ if ( scalar(@$pops) == 0 or scalar(@$pops) == 1 ) {
+ push @form_text, 'popnum',
+ } else {
+ push @form_select, 'popnum',
+ }
my $widget = new HTML::Widgets::SelectLayers(
options => \%options,
selected_layer => $pkgpart,
form_name => 'dummy',
form_action => $self_url,
- form_text => [qw( magic ref ss agentnum
- last first company address1 address2
- city zip daytime night fax )],
- form_select => [qw( state )], #county country
+ form_text => \@form_text,
+ form_select => \@form_select,
layer_callback => sub {
my $layer = shift;
- my $html = <
+ my $html = qq( );
if ( $pkgpart2payby{$layer} eq 'BILL' ) {
$html .= <