diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-10-11 15:57:40 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-10-11 15:57:40 -0700 |
| commit | 3036893e38a8ab39d58251ae954ea496df24db43 (patch) | |
| tree | bed54502ff78e67f92daab93d4bbf720343f9ad6 | |
| parent | d18a2d8fcf7dcfcc55ace0461902fa6f1c36228b (diff) | |
fix overage billing with multiple exports? RT#19595
| -rw-r--r-- | FS/FS/part_svc.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 2f79f518f..8a6633e03 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -437,9 +437,10 @@ sub part_export { my $self = shift; my %search; $search{'exporttype'} = shift if @_; - sort { $a->weight <=> $b->weight } - map { qsearchs('part_export', { 'exportnum' => $_->exportnum, %search } ) } - qsearch('export_svc', { 'svcpart' => $self->svcpart } ); + map { $_ } #behavior of sort undefined in scalar context + sort { $a->weight <=> $b->weight } + map { qsearchs('part_export', { 'exportnum'=>$_->exportnum, %search } ) } + qsearch('export_svc', { 'svcpart'=>$self->svcpart } ); } =item part_export_usage |