diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-10-11 15:57:39 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-10-11 15:57:39 -0700 |
commit | cb0c47fff7f412d2a8f9ae611f84584fcf8518de (patch) | |
tree | a228c6ad6ed50e8961ec42949304d8713507f63b /FS/FS/part_svc.pm | |
parent | 671846c7bee35093d62a467236dddfe4706520b3 (diff) |
fix overage billing with multiple exports? RT#19595
Diffstat (limited to 'FS/FS/part_svc.pm')
-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 7f22411..c471771 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -441,9 +441,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 |