diff options
author | ivan <ivan> | 2006-09-29 15:36:41 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-09-29 15:36:41 +0000 |
commit | 4bed1c4a0b734953feac608bd8ecf87d7eee11f1 (patch) | |
tree | 7d0bc699eef861e24fceb4b9787a3a5efb7091ac | |
parent | 9f9282c46182755f0a3b950fea0968a4580f38d8 (diff) |
fix mapping problem in domain_sql export
-rw-r--r-- | FS/FS/part_export/domain_sql.pm | 10 |
1 files 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, |