[freeside-commits] freeside/FS/FS/part_export domain_sql.pm, 1.2, 1.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail:/tmp/cvs-serv23519

Modified Files:
	domain_sql.pm 
Log Message:
fix mapping problem in domain_sql export

Index: domain_sql.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/domain_sql.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- domain_sql.pm	20 Sep 2006 15:19:07 -0000	1.2
+++ domain_sql.pm	29 Sep 2006 15:36:41 -0000	1.3
@@ -75,7 +75,10 @@
   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 @@
   }
 
   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,