if ($line =~ /^<\/?collection/) { next; }
chomp $line;
$record = $record . $line;
- if ($line =~ /^<\/record/) {
+ if ($line =~ /<\/record>$/) {
stage_record($dbh,$record,$source);
$record = '';
$i++;
}
close $xml;
+if ($i == 0) { print "No XML was processed, are you sure this is an XML file?\n"; }
print "Finis.\n";
# beyond here be functions
IF t = FALSE THEN
PERFORM migration_tools.build_specific_base_staging_table ('$MIGSCHEMA','biblio.record_entry');
END IF;
+ ALTER TABLE biblio_record_entry RENAME TO biblio_record_entry_legacy;
END \$\$;");
return ();