From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 11 Oct 2012 22:57:40 +0000 (-0700)
Subject: fix overage billing with multiple exports?  RT#19595
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=3036893e38a8ab39d58251ae954ea496df24db43;p=freeside.git

fix overage billing with multiple exports?  RT#19595
---

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