fix up the info passing for optional packages
authorivan <ivan>
Thu, 1 Feb 2007 02:35:54 +0000 (02:35 +0000)
committerivan <ivan>
Thu, 1 Feb 2007 02:35:54 +0000 (02:35 +0000)
FS/FS/ClientAPI/Signup.pm

index bd8e1a4..1f06a49 100644 (file)
@@ -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'},