X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_signup%2FFS-SignupClient%2Fcgi%2Fsignup-alternate.html;h=490cefa5ea156279ebc2338343a7d7092743e95c;hp=6d2d4e741f15067344984b207f5bb8c45578082b;hb=3ef62a0570055da710328937e7f65dbb2c027c62;hpb=ba7ccf1354799ac7324c4f91f41718dc028aaa9a diff --git a/fs_signup/FS-SignupClient/cgi/signup-alternate.html b/fs_signup/FS-SignupClient/cgi/signup-alternate.html index 6d2d4e741..490cefa5e 100755 --- a/fs_signup/FS-SignupClient/cgi/signup-alternate.html +++ b/fs_signup/FS-SignupClient/cgi/signup-alternate.html @@ -108,20 +108,29 @@ 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 - username password sec_phrase )], - form_select => [qw( state popnum )], #county country + form_text => \@form_text, + form_select => \@form_select, layer_callback => sub { my $layer = shift; my $html = qq( );