From 2bb45ea831e37664cc71360280f1b0155eeb23ed Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 1 Feb 2007 02:35:54 +0000 Subject: [PATCH] fix up the info passing for optional packages --- FS/FS/ClientAPI/Signup.pm | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm index bd8e1a4be..1f06a493f 100644 --- a/FS/FS/ClientAPI/Signup.pm +++ b/FS/FS/ClientAPI/Signup.pm @@ -100,17 +100,20 @@ sub signup_info { if ( grep { $conf->exists($_) } @addl ) { $signup_info->{optional_packages} = []; - $signup_info->{optional_packages_options} = []; foreach my $addl ( @addl ) { my $classnum = $conf->config($addl) or next; - my @pkgs = map { $_->hashref } + + my @pkgs = map { { + 'freq_pretty' => $_->freq_pretty, + 'options' => { $_->options }, + %{ $_->hashref } + }; + } qsearch( 'part_pkg', { classnum => $classnum } ); + push @{$signup_info->{optional_packages}}, \@pkgs; - my @options = map { { $_->options, - 'freq_pretty' => $_->freq_pretty - } } @pkgs; - push @{$signup_info->{options_packages_options}}, \@options + } } @@ -152,7 +155,8 @@ sub signup_info { 'freq_pretty' => $_->freq_pretty, 'options' => { $_->options }, %{$_->hashref} - } } + }; + } grep { $_->svcpart('svc_acct') } map { $_->part_pkg } qsearchs( 'reg_code', { 'code' => $packet->{'reg_code'}, -- 2.11.0