diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-05-06 05:35:48 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-05-06 05:35:48 -0700 |
| commit | da0e47d64f0aabf03c308dd93ab0c7c88a98208b (patch) | |
| tree | 37ebfb6a338dc90479534d1572ba258b3416ca1f | |
| parent | bf53da6deb6f4e2e71f60224c27863940b8de3d6 (diff) | |
optimize package list with lots of packages, RT#28526
| -rwxr-xr-x | httemplate/view/cust_main/packages.html | 5 | ||||
| -rw-r--r-- | httemplate/view/cust_main/packages/package.html | 2 | ||||
| -rw-r--r-- | httemplate/view/cust_main/packages/status.html | 2 |
3 files changed, 7 insertions, 2 deletions
diff --git a/httemplate/view/cust_main/packages.html b/httemplate/view/cust_main/packages.html index 746e0c7c5..a05142f98 100755 --- a/httemplate/view/cust_main/packages.html +++ b/httemplate/view/cust_main/packages.html @@ -313,4 +313,9 @@ $num_old_packages -= scalar(@packages); # (as will change-target packages) @packages = grep !$_->main_pkgnum, @packages; +foreach my $cust_pkg ( @packages ) { + $cust_pkg->{'_cust_pkg_discount_active'} = + [ $cust_pkg->cust_pkg_discount_active ]; +} + </%init> diff --git a/httemplate/view/cust_main/packages/package.html b/httemplate/view/cust_main/packages/package.html index ab7bad2bf..6a0c7f7df 100644 --- a/httemplate/view/cust_main/packages/package.html +++ b/httemplate/view/cust_main/packages/package.html @@ -49,7 +49,7 @@ % % if ( $curuser->access_right('Discount customer package') % && $part_pkg->can_discount -% && ! scalar($cust_pkg->cust_pkg_discount_active) +% && ! scalar( @{ $cust_pkg->{_cust_pkg_discount_active} } ) % && ! scalar($cust_pkg->part_pkg->part_pkg_discount) % ) % { diff --git a/httemplate/view/cust_main/packages/status.html b/httemplate/view/cust_main/packages/status.html index 689ee45c0..dbf3698e3 100644 --- a/httemplate/view/cust_main/packages/status.html +++ b/httemplate/view/cust_main/packages/status.html @@ -494,7 +494,7 @@ sub pkg_status_row_discount { my $html; - foreach my $cust_pkg_discount ( $cust_pkg->cust_pkg_discount_active ) { + foreach my $cust_pkg_discount (@{ $cust_pkg->{_cust_pkg_discount_active} }) { my $discount = $cust_pkg_discount->discount; |