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

(-)a/bulkmarcimport.pl (-5 / +4 lines)
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
- 

Return to bug 30349