|
Lines 104-110
if ($version || ($input_marc_file eq '')) {
Link Here
|
| 104 |
exit; |
104 |
exit; |
| 105 |
} |
105 |
} |
| 106 |
if( $update && !( $match || $isbn_check ) ) { |
106 |
if( $update && !( $match || $isbn_check ) ) { |
| 107 |
warn "Using -update without -match or -isbn seems to be useless.\n"; |
107 |
warn "Using --update without --match or --isbn seems to be useless.\n"; |
| 108 |
} |
108 |
} |
| 109 |
|
109 |
|
| 110 |
if(defined $localcust) { #local customize module |
110 |
if(defined $localcust) { #local customize module |
|
Lines 576-582
sub GetRecordId{
Link Here
|
| 576 |
my $id; |
576 |
my $id; |
| 577 |
if ($tag lt "010"){ |
577 |
if ($tag lt "010"){ |
| 578 |
return $marcrecord->field($tag)->data() if $marcrecord->field($tag); |
578 |
return $marcrecord->field($tag)->data() if $marcrecord->field($tag); |
| 579 |
} |
579 |
} |
| 580 |
elsif ($subfield){ |
580 |
elsif ($subfield){ |
| 581 |
if ($marcrecord->field($tag)){ |
581 |
if ($marcrecord->field($tag)){ |
| 582 |
return $marcrecord->subfield($tag,$subfield); |
582 |
return $marcrecord->subfield($tag,$subfield); |
|
Lines 649-656
bulkmarcimport.pl - Import bibliographic/authority records into Koha
Link Here
|
| 649 |
=head1 USAGE |
649 |
=head1 USAGE |
| 650 |
|
650 |
|
| 651 |
$ export KOHA_CONF=/etc/koha.conf |
651 |
$ export KOHA_CONF=/etc/koha.conf |
| 652 |
$ perl misc/migration_tools/bulkmarcimport.pl -d -commit 1000 \\ |
652 |
$ perl misc/migration_tools/bulkmarcimport.pl --delete --commit 1000 \\ |
| 653 |
-file /home/jmf/koha.mrc -n 3000 |
653 |
--file /home/jmf/koha.mrc -n 3000 |
| 654 |
|
654 |
|
| 655 |
=head1 WARNING |
655 |
=head1 WARNING |
| 656 |
|
656 |
|
| 657 |
- |
|
|