diff options
author | ivan <ivan> | 2004-04-05 11:55:35 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-04-05 11:55:35 +0000 |
commit | 65615896de6e2474953722ea25122174b151d289 (patch) | |
tree | 243164e7727a00e7fb995851fa878104bc6be9df /httemplate/view/cust_main.cgi | |
parent | a5651d5945c790b0d3fee0cd5082269a21adc6ee (diff) |
apply some heuristics to transfer ordering: primaries first, then sorted by quantity
Diffstat (limited to 'httemplate/view/cust_main.cgi')
-rwxr-xr-x | httemplate/view/cust_main.cgi | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index dd9cd3075..624fe37d1 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -891,14 +891,7 @@ sub get_packages { } - foreach my $cust_svc ( - qsearch( 'cust_svc', { - 'pkgnum' => $cust_pkg->pkgnum, - #'svcpart' => $part_svc->svcpart, - } - ) - ) { - + foreach my $cust_svc ( $cust_pkg->cust_svc ) { #warn "svcnum ". $cust_svc->svcnum. " / svcpart ". $cust_svc->svcpart. "\n"; my $svc = { 'svcnum' => $cust_svc->svcnum, |