diff options
author | ivan <ivan> | 2006-09-29 16:18:27 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-09-29 16:18:27 +0000 |
commit | dfb864326bac0a7b1f2e5156c2c35b4444b38ff3 (patch) | |
tree | ce2c4230255c2b5694c9fe41928ddb8dad89bde2 /FS/FS/part_export/domain_sql.pm | |
parent | 4bed1c4a0b734953feac608bd8ecf87d7eee11f1 (diff) |
precedence error causing schema mapped values to disappear
Diffstat (limited to 'FS/FS/part_export/domain_sql.pm')
-rw-r--r-- | FS/FS/part_export/domain_sql.pm | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/FS/FS/part_export/domain_sql.pm b/FS/FS/part_export/domain_sql.pm index e7dd477bc..0ce1b16e3 100644 --- a/FS/FS/part_export/domain_sql.pm +++ b/FS/FS/part_export/domain_sql.pm @@ -74,11 +74,13 @@ sub _export_insert { my %schema = $self->_schema_map; my %static = $self->_static_map; - my %record = ( map { $_ => $static{$_} } keys %static ), - ( map { my $method = $schema{$_}; + my %record = ( ( map { $_ => $static{$_} } keys %static ), + ( map { my $method = $schema{$_}; $_ => $svc_domain->$method(); - } - keys %schema ); + } + keys %schema + ) + ); my $err_or_queue = $self->domain_sql_queue( @@ -109,11 +111,13 @@ sub _export_replace { push @primary_key, $old->$keymap(); } - my %record = ( map { $_ => $static{$_} } keys %static ), - ( map { my $method = $schema{$_}; - $_ => $new->$method(); - } - keys %schema ); + my %record = ( ( map { $_ => $static{$_} } keys %static ), + ( map { my $method = $schema{$_}; + $_ => $new->$method(); + } + keys %schema + ) + ); my $err_or_queue = $self->domain_sql_queue( $new->svcnum, |