summaryrefslogtreecommitdiff
path: root/FS
diff options
context:
space:
mode:
authorivan <ivan>2007-02-01 02:35:54 +0000
committerivan <ivan>2007-02-01 02:35:54 +0000
commit2bb45ea831e37664cc71360280f1b0155eeb23ed (patch)
tree95ccf42594d59c365dfefd7e0f143b3d37e307e9 /FS
parent6b03e02d41a9c90ff88d060f16d570b4d2a3d626 (diff)
fix up the info passing for optional packages
Diffstat (limited to 'FS')
-rw-r--r--FS/FS/ClientAPI/Signup.pm18
1 files 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'},