Get rid of a few warnings in the bulkmarcimport script: C4/Biblio.pm, hunks #1, #2: a warning occurring in NoZebra configurations. C4/Biblio.pm hunk #3: warning occurring in Unimarc MARC flavour. misc/migration_tools/bulkmarcimport.pl hunk #1: warning occurring when no default format is specified on command-line with -m switch.
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
parent
ec6aaaebb0
commit
2a8df0bc2f
2 changed files with 6 additions and 6 deletions
10
C4/Biblio.pm
10
C4/Biblio.pm
|
@ -2669,7 +2669,8 @@ sub _AddBiblioNoZebra {
|
|||
foreach (split / /,$line) {
|
||||
next unless $_; # skip empty values (multiple spaces)
|
||||
# if the entry is already here, improve weight
|
||||
if ($result{'__RAW__'}->{"$_"} =~ /$biblionumber,\Q$title\E\-(\d+);/) {
|
||||
my $tmpstr = $result{'__RAW__'}->{"$_"} || "";
|
||||
if ($tmpstr =~ /$biblionumber,\Q$title\E\-(\d+);/) {
|
||||
my $weight=$1+1;
|
||||
$result{'__RAW__'}->{"$_"} =~ s/$biblionumber,\Q$title\E\-(\d+);//;
|
||||
$result{'__RAW__'}->{"$_"} .= "$biblionumber,$title-$weight;";
|
||||
|
@ -2680,7 +2681,7 @@ sub _AddBiblioNoZebra {
|
|||
# it exists
|
||||
if ($existing_biblionumbers) {
|
||||
$result{'__RAW__'}->{"$_"} =$existing_biblionumbers;
|
||||
my $weight=$1+1;
|
||||
my $weight = ($1 ? $1 : 0) + 1;
|
||||
$result{'__RAW__'}->{"$_"} =~ s/$biblionumber,\Q$title\E\-(\d+);//;
|
||||
$result{'__RAW__'}->{"$_"} .= "$biblionumber,$title-$weight;";
|
||||
# create a new ligne for this entry
|
||||
|
@ -3271,9 +3272,8 @@ sub ModBiblioMarc {
|
|||
|
||||
# deal with UNIMARC field 100 (encoding) : create it if needed & set encoding to unicode
|
||||
if ( $encoding eq "UNIMARC" ) {
|
||||
my $string;
|
||||
if ( length($record->subfield( 100, "a" )) == 35 ) {
|
||||
$string = $record->subfield( 100, "a" );
|
||||
my $string = $record->subfield( 100, "a" );
|
||||
if ( ($string) && ( length($record->subfield( 100, "a" )) == 35 ) ) {
|
||||
my $f100 = $record->field(100);
|
||||
$record->delete_field($f100);
|
||||
}
|
||||
|
|
|
@ -131,7 +131,7 @@ print "Characteristic MARC flavour: $marcFlavour\n" if $verbose;
|
|||
my $starttime = gettimeofday;
|
||||
my $batch;
|
||||
my $fh = IO::File->new($input_marc_file); # don't let MARC::Batch open the file, as it applies the ':utf8' IO layer
|
||||
if ($format =~ /XML/i) {
|
||||
if (defined $format && $format =~ /XML/i) {
|
||||
# ugly hack follows -- MARC::File::XML, when used by MARC::Batch,
|
||||
# appears to try to convert incoming XML records from MARC-8
|
||||
# to UTF-8. Setting the BinaryEncoding key turns that off
|
||||
|
|
Loading…
Reference in a new issue