From c2cbda3fdd37397b64d85e525b88fd9d32d6a1d0 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 16 Apr 2013 20:52:33 -0400 Subject: [PATCH 1/1] dump_oracle_table_for_pg: add support for MARC8 The dumper now groks --source-charset marc8 Signed-off-by: Galen Charlton --- dump_oracle_table_for_pg | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/dump_oracle_table_for_pg b/dump_oracle_table_for_pg index b226bc2..ebd7eb6 100755 --- a/dump_oracle_table_for_pg +++ b/dump_oracle_table_for_pg @@ -25,6 +25,7 @@ use Carp; use DBI; use Getopt::Long; use Encode; +use MARC::Charset qw/marc8_to_utf8/; my $host = 'localhost'; my $sid = $ENV{ORACLE_SID}; @@ -124,7 +125,11 @@ sub normalize_value_for_tsv { $val =~ s/\t/\\t/g; $val =~ s/\v/\\v/g; if ($src_charset) { - return decode($src_charset, $val); + if ($src_charset eq 'marc8') { + return marc8_to_utf8($val); + } else { + return decode($src_charset, $val); + } } else { return $val; } -- 1.7.2.5