<%=
foreach ( @{$locales} ) {
- $OUT .= '<OPTION';
+ my $value = $_->{'state'};
+ $value .= ' ('. $_->{'county'}. ')' if $_->{'county'};
+ $value .= ' / '. $_->{'country'};
+
+ $OUT .= qq(<OPTION VALUE="$value");
$OUT .= ' SELECTED' if ( $state eq $_->{'state'}
&& $county eq $_->{'county'}
&& $country eq $_->{'country'}
);
- $OUT .= '>'. $_->{'state'};
- $OUT .= ' ('. $_->{'county'}. ')' if $_->{'county'};
- $OUT .= ' / '. $_->{'country'};
+ $OUT .= ">$value</OPTION>";
}
%>
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( <INPUT TYPE="hidden" NAME="pkgpart" VALUE="$layer">);