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