X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_signup%2FFS-SignupClient%2Fcgi%2Fsignup-alternate.html;h=490cefa5ea156279ebc2338343a7d7092743e95c;hb=c57a4fc790d9ba9eaec58021ef9ee56b8649b6f1;hp=8b3b88eb2687585a74e1194c86d74774b4c42e12;hpb=a015d6d685dbea8147bded0ec6019358366c321c;p=freeside.git
diff --git a/fs_signup/FS-SignupClient/cgi/signup-alternate.html b/fs_signup/FS-SignupClient/cgi/signup-alternate.html
index 8b3b88eb2..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 .= '";
}
%>
@@ -106,19 +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 )],
- form_select => [qw( state )], #county country
+ form_text => \@form_text,
+ form_select => \@form_select,
layer_callback => sub {
my $layer = shift;
my $html = qq( );