use MARC::File;
use MARC::File::XML;
use MARC::Charset 'marc8_to_utf8';
-binmode STDIN, ':bytes';
+#binmode STDIN, ':bytes';
use Env qw(
HOME PGHOST PGPORT PGUSER PGDATABASE MIGSCHEMA
MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR
my $ignore = MARC::Charset->ignore_errors();
MARC::Charset->ignore_errors(1);
-my $setting = MARC::Charset->assume_unicode();
-MARC::Charset->assume_unicode(1);
+#causes issues sometimes
+#may be useful other times ... still in flux
+#my $setting = MARC::Charset->assume_unicode();
+#MARC::Charset->assume_unicode(1);
MARC::Charset->ignore_errors(1);
foreach my $arg (@ARGV) {
drop_stage_table($dbh);
create_stage_table($dbh);
}
-
if ($file_is_xml) {
$batch = MARC::Batch->new('XML',$infile);
} else {
$batch->strict_off();
while ( my $record = $batch->next() ) {
- my $xml;
- if ($file_is_xml) { $xml = $record; }
- else { $xml = $record->as_xml_record(); }
+ my $xml = $record->as_xml_record();
+ $xml = marc8_to_utf8($xml);
$i++;
$xml = clean_marc($xml);
$xml = '$_$' . $xml . '$_$';