|
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 |
- |
|
|