projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0670764
)
<rjbs> This patch is part of my continuing effort to avoid using SQL and qsearch...
author
ivan
<ivan>
Tue, 12 Jul 2005 09:22:18 +0000
(09:22 +0000)
committer
ivan
<ivan>
Tue, 12 Jul 2005 09:22:18 +0000
(09:22 +0000)
httemplate/edit/part_pkg.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/part_pkg.cgi
b/httemplate/edit/part_pkg.cgi
index
1287756
..
e6e10e7
100755
(executable)
--- a/
httemplate/edit/part_pkg.cgi
+++ b/
httemplate/edit/part_pkg.cgi
@@
-187,22
+187,20
@@
if ( $pkgpart ) {
)";
}
my @part_svc = qsearch('part_svc', {}, '', $where);
)";
}
my @part_svc = qsearch('part_svc', {}, '', $where);
+my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc;
my @fixups = ();
my $count = 0;
my $columns = 3;
foreach my $part_svc ( @part_svc ) {
my $svcpart = $part_svc->svcpart;
my @fixups = ();
my $count = 0;
my $columns = 3;
foreach my $part_svc ( @part_svc ) {
my $svcpart = $part_svc->svcpart;
- my $pkg_svc = $pkgpart && qsearchs( 'pkg_svc', {
- 'pkgpart' => $pkgpart,
- 'svcpart' => $svcpart,
- } ) || new FS::pkg_svc ( {
- 'pkgpart' => $pkgpart,
- 'svcpart' => $svcpart,
- 'quantity' => 0,
- 'primary_svc' => '',
- });
- #? #next unless $pkg_svc;
+ my $pkg_svc = $pkg_svc{$svcpart}
+ || new FS::pkg_svc ( {
+ 'pkgpart' => $pkgpart,
+ 'svcpart' => $svcpart,
+ 'quantity' => 0,
+ 'primary_svc' => '',
+ } );
push @fixups, "pkg_svc$svcpart";
push @fixups, "pkg_svc$svcpart";