diff options
Diffstat (limited to 'fs_signup')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup-alternate.html | 4 | ||||
| -rwxr-xr-x | fs_signup/fs_signup_server | 7 |
2 files changed, 3 insertions, 8 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup-alternate.html b/fs_signup/FS-SignupClient/cgi/signup-alternate.html index bb013b9ab..490cefa5e 100755 --- a/fs_signup/FS-SignupClient/cgi/signup-alternate.html +++ b/fs_signup/FS-SignupClient/cgi/signup-alternate.html @@ -108,7 +108,9 @@ 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; diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index 089cfdeb9..b823d3032 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -147,13 +147,6 @@ while (1) { or $error ||= "WARNING: unknown pkgpart ". $signup_data->{pkgpart}; my $svcpart = $part_pkg->svcpart unless $error; - # this should wind up in FS::cust_pkg! - my $agent = qsearchs( 'agent', { 'agentnum' => $agentnum } ); - #my $pkgpart_href = $agent->pkgpart_hashref; - $error ||= "WARNING: agent $agentnum can't purchase pkgpart ". - $signup_data->{pkgpart} - unless $pkgpart_href->{ $signup_data->{pkgpart} }; - my $cust_pkg = new FS::cust_pkg ( { #later#'custnum' => $custnum, 'pkgpart' => $signup_data->{'pkgpart'}, |