From: khoff <khoff>
Date: Thu, 24 Apr 2003 01:00:42 +0000 (+0000)
Subject: Apparently deleting elements from svc_Common->hashref is bad.
X-Git-Tag: freeside_1_5_0pre1^2~2
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=d540445a9a35750e1127e3854ecba420d588a022;p=freeside.git

Apparently deleting elements from svc_Common->hashref is bad.
---

diff --git a/FS/FS/part_export/sqlmail.pm b/FS/FS/part_export/sqlmail.pm
index 0c0cb367b..f97674c27 100644
--- a/FS/FS/part_export/sqlmail.pm
+++ b/FS/FS/part_export/sqlmail.pm
@@ -142,7 +142,7 @@ sub update_values {
   # Update records to conform to a particular server_type.
 
   my ($self, $svc, $svcdb) = (shift,shift,shift);
-  my $svchash = $svc->hashref or return '';
+  my $svchash = { %{$svc->hashref} } or return ''; # We need a copy.
 
   if ($svcdb eq 'svc_acct') {
     if ($self->option('server_type') eq 'courier_crypt') {