[freeside-commits] freeside/FS/FS/ClientAPI Signup.pm,1.32,1.33
Ivan,,,
ivan at wavetail.420.am
Wed Jan 31 18:35:56 PST 2007
Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail:/tmp/cvs-serv24934
Modified Files:
Signup.pm
Log Message:
fix up the info passing for optional packages
Index: Signup.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/Signup.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- Signup.pm 30 Jan 2007 18:52:35 -0000 1.32
+++ Signup.pm 1 Feb 2007 02:35:54 -0000 1.33
@@ -100,17 +100,20 @@
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 @@
'freq_pretty' => $_->freq_pretty,
'options' => { $_->options },
%{$_->hashref}
- } }
+ };
+ }
grep { $_->svcpart('svc_acct') }
map { $_->part_pkg }
qsearchs( 'reg_code', { 'code' => $packet->{'reg_code'},
More information about the freeside-commits
mailing list