diff options
author | ivan <ivan> | 2009-03-26 03:53:46 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-03-26 03:53:46 +0000 |
commit | 7db4b3ec24527220a414c9e4c3393fc93b3ac6d6 (patch) | |
tree | 6aef0796c99bfbd58f480a159cad68a20e0d0945 | |
parent | 6c7b2706ba9297e7b8f9774b2f0f98c524c6354b (diff) |
sort packages by label of first (primary) service, RT#5041
-rw-r--r-- | FS/FS/cust_main.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 66a7791..99ed9a6 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1662,15 +1662,21 @@ sub ncancelled_pkgs { # This should be generalized to use config options to determine order. sub sort_packages { - if ( $a->get('cancel') and $b->get('cancel') ) { - $a->pkgnum <=> $b->pkgnum; - } elsif ( $a->get('cancel') or $b->get('cancel') ) { + + if ( $a->get('cancel') xor $b->get('cancel') ) { return -1 if $b->get('cancel'); return 1 if $a->get('cancel'); + #shouldn't get here... return 0; } else { - $a->pkgnum <=> $b->pkgnum; + my @a_cust_svc = $a->cust_svc; + my @b_cust_svc = $b->cust_svc; + return 0 if !scalar(@a_cust_svc) && !scalar(@b_cust_svc); + return -1 if scalar(@a_cust_svc) && !scalar(@b_cust_svc); + return 1 if !scalar(@a_cust_svc) && scalar(@b_cust_svc); + $a_cust_svc[0]->svc_x->label cmp $b_cust_svc[0]->svc_x->label; } + } =item suspended_pkgs |