From c934eb18a66126faab43459780940bfdb19b30ad Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 21 Nov 2005 15:24:39 +0000
Subject: [PATCH] when editing exports and there's a duplicate error, show all
 conflicting accounts not just the ones for different customers

---
 FS/FS/export_svc.pm | 4 ++--
 FS/FS/part_svc.pm   | 2 +-
 FS/FS/rate.pm       | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/FS/FS/export_svc.pm b/FS/FS/export_svc.pm
index e5c7ed8db..0370f5f0b 100644
--- a/FS/FS/export_svc.pm
+++ b/FS/FS/export_svc.pm
@@ -198,8 +198,8 @@ sub insert {
                  ' on '. $self->part_export->machine.
                ' : '. scalar(@dup_svc). " duplicate $label".
                ' ('. scalar(@diff_customer_svc). " from different customers)".
-               #": ". join(', ', sort $sortby map { $_->$method() } @dup_svc )
-               ": ". join(', ', sort $sortby map { $_->$method() } @diff_customer_svc )
+               ": ". join(', ', sort $sortby map { $_->$method() } @dup_svc )
+               #": ". join(', ', sort $sortby map { $_->$method() } @diff_customer_svc )
                ;
       }
   
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm
index d3073f951..1a478a9cd 100644
--- a/FS/FS/part_svc.pm
+++ b/FS/FS/part_svc.pm
@@ -562,7 +562,7 @@ sub process {
     $param->{'svcpart'} = $new->getfield('svcpart');
   }
 
-  die $error if $error;
+  die "$error\n" if $error;
 }
 
 =item process_bulk_cust_svc
diff --git a/FS/FS/rate.pm b/FS/FS/rate.pm
index f19ebf002..a471e2ea4 100644
--- a/FS/FS/rate.pm
+++ b/FS/FS/rate.pm
@@ -363,7 +363,7 @@ sub process {
     #$ratenum = $rate->getfield('ratenum');
   }
 
-  die $error if $error;
+  die "$error\n" if $error;
 
 }
 
-- 
2.11.0