From 4bed1c4a0b734953feac608bd8ecf87d7eee11f1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 29 Sep 2006 15:36:41 +0000
Subject: [PATCH] fix mapping problem in domain_sql export

---
 FS/FS/part_export/domain_sql.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/FS/FS/part_export/domain_sql.pm b/FS/FS/part_export/domain_sql.pm
index bde6d9d06..e7dd477bc 100644
--- a/FS/FS/part_export/domain_sql.pm
+++ b/FS/FS/part_export/domain_sql.pm
@@ -75,7 +75,10 @@ sub _export_insert {
   my %static = $self->_static_map;
 
   my %record = ( map { $_ => $static{$_}       } keys %static ),
-               ( map { $_ => $svc_domain->$_() } keys %schema );
+               ( map { my $method = $schema{$_};
+	               $_ => $svc_domain->$method();
+		     }
+		     keys %schema );
 
   my $err_or_queue = 
     $self->domain_sql_queue(
@@ -107,7 +110,10 @@ sub _export_replace {
   }
 
   my %record = ( map { $_ => $static{$_}       } keys %static ),
-               ( map { $_ => $svc_domain->$_() } keys %schema );
+               ( map { my $method = $schema{$_};
+	               $_ => $new->$method();
+	             }
+		     keys %schema );
 
   my $err_or_queue = $self->domain_sql_queue(
     $new->svcnum,
-- 
2.11.0