use DBI;
use Getopt::Long;
use Encode;
+use MARC::Charset qw/marc8_to_utf8/;
my $host = 'localhost';
my $sid = $ENV{ORACLE_SID};
$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;
}