View | Details | Raw Unified | Return to bug 29654
Collapse All | Expand All

(-)a/misc/migration_tools/bulkmarcimport.pl (-2 / +13 lines)
Lines 59-64 my $biblios; Link Here
59
my $authorities;
59
my $authorities;
60
my $keepids;
60
my $keepids;
61
my $match;
61
my $match;
62
my $match_record_id;
62
my $isbn_check;
63
my $isbn_check;
63
my $logfile;
64
my $logfile;
64
my $insert;
65
my $insert;
Lines 104-109 GetOptions( Link Here
104
    'update'              => \$update,
105
    'update'              => \$update,
105
    'all'                 => \$all,
106
    'all'                 => \$all,
106
    'match=s@'            => \$match,
107
    'match=s@'            => \$match,
108
    'match_record_id'     => \$match_record_id,
107
    'i|isbn'              => \$isbn_check,
109
    'i|isbn'              => \$isbn_check,
108
    'x:s'                 => \$sourcetag,
110
    'x:s'                 => \$sourcetag,
109
    'y:s'                 => \$sourcesubfield,
111
    'y:s'                 => \$sourcesubfield,
Lines 445-451 RECORD: while () { Link Here
445
                $logger->debug("No match for: $query");
447
                $logger->debug("No match for: $query");
446
            }
448
            }
447
449
448
            if ( $keepids && $originalid ) {
450
            if ( $keepids && $originalid && $originalid != $matched_record_id ) {
449
                my $storeidfield;
451
                my $storeidfield;
450
                if ( length($keepids) == 3 ) {
452
                if ( length($keepids) == 3 ) {
451
                    $storeidfield = MARC::Field->new( $keepids, $originalid );
453
                    $storeidfield = MARC::Field->new( $keepids, $originalid );
Lines 458-463 RECORD: while () { Link Here
458
            }
460
            }
459
        }
461
        }
460
462
463
        if ( $match_record_id && !$matched_record_id && $originalid ) {
464
            $matched_record_id = $originalid;
465
        }
466
461
        foreach my $stringfilter (@$filters) {
467
        foreach my $stringfilter (@$filters) {
462
            if ( length($stringfilter) == 3 ) {
468
            if ( length($stringfilter) == 3 ) {
463
                foreach my $field ( $record->field($stringfilter) ) {
469
                foreach my $field ( $record->field($stringfilter) ) {
Lines 992-997 from LOC or BNF. useless for biblios probably) Link Here
992
I<FIELD> matchindex,fieldtomatch matchpoint to use to deduplicate fieldtomatch
998
I<FIELD> matchindex,fieldtomatch matchpoint to use to deduplicate fieldtomatch
993
can be either 001 to 999 or field and list of subfields as such 100abcde
999
can be either 001 to 999 or field and list of subfields as such 100abcde
994
1000
1001
=item B<-match_record_id>
1002
1003
Assume incoming record original id is a valid record id in Koha and use this
1004
for updating the Koha record.  For example useful when importing previously
1005
+exported records.
1006
995
=item B<-i, --isbn>
1007
=item B<-i, --isbn>
996
1008
997
If set, a search will be done on isbn, and, if the same isbn is found, the
1009
If set, a search will be done on isbn, and, if the same isbn is found, the
998
- 

Return to bug 29654