Attachment #97799 for bug #20447

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




        }
    }

    _strip_unwanted_fields($record, $dont_export_fields) if $dont_export_fields;
    C4::Biblio::RemoveAllNsb($record) if $clean;
    return $record;
}

sub _strip_unwanted_fields {
    my ($record, $dont_export_fields) = @_;

    for my $f ( split / /, $dont_export_fields ) {
        if ( $f =~ m/^(\d{3})(.)?$/ ) {
            my ( $field, $subfield ) = ( $1, $2 );

            # skip if this record doesn't have this field
            if ( defined $record->field($field) ) {
                if ( defined $subfield ) {
                    my @tags = $record->field($field);
                    foreach my $t (@tags) {
                        $t->delete_subfields($subfield);
                    }
                } else {
                    $record->delete_fields( $record->field($field) );
                }
            }
        }
    }
    C4::Biblio::RemoveAllNsb($record) if $clean;
    return $record;
}

sub _get_authority_for_export {

        C4::Biblio::EmbedItemsInMarcBiblio({
            marc_record  => $record,
            biblionumber => $biblionumber,
            item_numbers => $itemnumbers,
            skip_holdings => 1 });
        if ($only_export_items_for_branches && @$only_export_items_for_branches) {
            my %export_items_for_branches = map { $_ => 1 } @$only_export_items_for_branches;
            my ( $homebranchfield, $homebranchsubfield ) = GetMarcFromKohaField( 'items.homebranch' );

    return $record;
}

sub _get_holdings_for_export {
    my ($params)           = @_;
    my $dont_export_fields = $params->{dont_export_fields};
    my $clean              = $params->{clean};
    my $biblionumber       = $params->{biblionumber};

    my @records;
    my $holdings = Koha::Holdings->search({ biblionumber => $biblionumber, deleted_on => undef });
    while (my $holding = $holdings->next()) {
        my $record = $holding->metadata()->record();
        _strip_unwanted_fields($record, $dont_export_fields) if $dont_export_fields;
        C4::Biblio::RemoveAllNsb($record) if $clean;
        C4::Biblio::UpsertMarcControlField($record, '004', $biblionumber);
        my $leader = $record->leader();
        if ($leader !~ /^.{6}[uvxy]/) {
            $leader =~ s/^(.{6})./$1u/;
            $record->leader($leader);
        }
        push @records, $record;
    }
    return \@records;
}

sub export {
    my ($params) = @_;


    my $dont_export_fields = $params->{dont_export_fields};
    my $csv_profile_id     = $params->{csv_profile_id};
    my $output_filepath    = $params->{output_filepath};
    my $export_holdings    = $params->{export_holdings} // 0;

    if( !$record_type ) {
        Koha::Logger->get->warn( "No record_type given." );

                next;
            }
            print $record->as_usmarc();
            if ($export_holdings && $record_type eq 'bibs') {
                my $holdings = _get_holdings_for_export( { %$params, biblionumber => $record_id } );
                foreach my $holding (@$holdings) {
                    my $errorcount_on_decode = eval { scalar( MARC::File::USMARC->decode( $holding->as_usmarc )->warnings() ) };
                    if ( $errorcount_on_decode or $@ ) {
                        my $msg = "Holdings record for biblio $record_id could not be exported. " .
                            ( $@ // '' );
                        chomp $msg;
                        Koha::Logger->get->info( $msg );
                        next;
                    }
                    print $holding->as_usmarc();
                }
            }
        }
    } elsif ( $format eq 'xml' ) {
        my $marcflavour = C4::Context->preference("marcflavour");

            next unless $record;
            print MARC::File::XML::record($record);
            print "\n";
            if ($export_holdings && $record_type eq 'bibs') {
                my $holdings = _get_holdings_for_export( { %$params, biblionumber => $record_id } );
                foreach my $holding (@$holdings) {
                    print MARC::File::XML::record($holding);
                    print "\n";
                }
            }
        }
        print MARC::File::XML::footer();
        print "\n";

Lines 117-123 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/export.tt (-1 / +8 lines)
117	</fieldset>	117	</fieldset>
118	<fieldset class="rows">	118	<fieldset class="rows">
119	<legend> Options</legend>	119	<legend> Options</legend>
120	<ol> <li>	120	<ol>
		121	[% IF ( show_summary_holdings ) %]
		122	<li>
		123	<label for="export_holdings">Export holdings records (MARC 21 biblios only):</label>
		124	<input id="export_holdings" type="checkbox" name="export_holdings" />
		125	</li>
		126	[% END %]
		127	<li>
121	<label for="dont_export_item">Don't export items:</label>	128	<label for="dont_export_item">Don't export items:</label>
122	<input id="dont_export_item" type="checkbox" name="dont_export_item" />	129	<input id="dont_export_item" type="checkbox" name="dont_export_item" />
123	</li>	130	</li>

Lines 54-59 my ( Link Here

(-)a/misc/export_records.pl (-1 / +14 lines)
54	$start_accession,	54	$start_accession,
55	$end_accession,	55	$end_accession,
56	$marc_conditions,	56	$marc_conditions,
		57	$export_holdings,
57	$help	58	$help
58	);	59	);
59		60
Lines 78-83 GetOptions( Link Here
78	'start_accession=s' => \$start_accession,	79	'start_accession=s' => \$start_accession,
79	'end_accession=s' => \$end_accession,	80	'end_accession=s' => \$end_accession,
80	'marc_conditions=s' => \$marc_conditions,	81	'marc_conditions=s' => \$marc_conditions,
		82	'holdings' => \$export_holdings,
81	'h\|help\|?' => \$help	83	'h\|help\|?' => \$help
82	) \|\| pod2usage(1);	84	) \|\| pod2usage(1);
83		85
Lines 112-117 if ( $deleted_barcodes and $record_type ne 'bibs' ) { Link Here
112	pod2usage(q\|--deleted_barcodes can only be used with biblios\|);	114	pod2usage(q\|--deleted_barcodes can only be used with biblios\|);
113	}	115	}
114		116
		117	my $marcFlavour = C4::Context->preference('marcflavour') \|\| 'MARC21';
		118	if ( $export_holdings and ( $record_type ne 'bibs' or $marcFlavour ne 'MARC21' ) ) {
		119	pod2usage(q\|--holdings can only be used with MARC 21 biblios\|);
		120	}
		121
115	$start_accession = dt_from_string( $start_accession ) if $start_accession;	122	$start_accession = dt_from_string( $start_accession ) if $start_accession;
116	$end_accession = dt_from_string( $end_accession ) if $end_accession;	123	$end_accession = dt_from_string( $end_accession ) if $end_accession;
117		124
Lines 254-259 else { Link Here
254	format => $output_format,	261	format => $output_format,
255	csv_profile_id => $csv_profile_id,	262	csv_profile_id => $csv_profile_id,
256	export_items => (not $dont_export_items),	263	export_items => (not $dont_export_items),
		264	export_holdings => $export_holdings,
257	clean => $clean \|\| 0,	265	clean => $clean \|\| 0,
258	}	266	}
259	);	267	);
Lines 267-273 export records - This script exports record (biblios or authorities) Link Here
267		275
268	=head1 SYNOPSIS	276	=head1 SYNOPSIS
269		277
270	export_records.pl [-h\|--help] [--format=format] [--date=datetime] [--record-type=TYPE] [--dont_export_items] [--deleted_barcodes] [--clean] [--id_list_file=PATH] --filename=outputfile	278	export_records.pl [-h\|--help] [--format=format] [--date=datetime] [--record-type=TYPE] [--holdings] [--dont_export_items] [--deleted_barcodes] [--clean] [--id_list_file=PATH] --filename=outputfile
271		279
272	=head1 OPTIONS	280	=head1 OPTIONS
273		281
Lines 292-297 Print a brief help message. Link Here
292		300
293	--record-type=TYPE TYPE is 'bibs' or 'auths'.	301	--record-type=TYPE TYPE is 'bibs' or 'auths'.
294		302
		303	=item B<--holdings>
		304
		305	--holdings Export MARC 21 holdings records interleaved with bibs. Used only if TYPE
		306	is 'bibs' and FORMAT is 'xml' or 'marc'.
		307
295	=item B<--dont_export_items>	308	=item B<--dont_export_items>
296		309
297	--dont_export_items If enabled, the item infos won't be exported.	310	--dont_export_items If enabled, the item infos won't be exported.




use Pod::Usage;

use Koha::Biblios;
use Koha::Holdings;
use Koha::SearchEngine;
use Koha::SearchEngine::Search;


binmode( STDOUT, ":encoding(UTF-8)" );
my ( $input_marc_file, $number, $offset) = ('',0,0);
my ($version, $delete, $test_parameter, $skip_marc8_conversion, $char_encoding, $verbose, $commit, $fk_off,$format,$biblios,$authorities,$keepids,$match, $isbn_check, $logfile);
my ( $insert, $filters, $update, $all, $yamlfile, $authtypes, $append, $import_holdings );
my $cleanisbn = 1;
my ($sourcetag,$sourcesubfield,$idmapfl, $dedup_barcode);
my $framework = '';

    'framework=s' => \$framework,
    'custom:s'    => \$localcust,
    'marcmodtemplate:s' => \$marc_mod_template,
    'holdings' => \$import_holdings,
);
$biblios ||= !$authorities;
$insert  ||= !$update;
my $writemode = ($append) ? "a" : "w";
my $marcFlavour = C4::Context->preference('marcflavour') || 'MARC21';

pod2usage( -msg => "\nYou must specify either --biblios or --authorities, not both.\n", -exitval ) if $biblios && $authorities;

pod2usage( -msg => "\nHoldings only supported for MARC 21 biblios.\n", -exitval ) if $import_holdings && (!$biblios || $marcFlavour ne 'MARC21');

if ($all) {
    $insert = 1;
    $update = 1;



if ($delete) {
    if ($biblios) {
        print "deleting biblios\n";
        $dbh->do("DELETE FROM biblio");
        $dbh->do("ALTER TABLE biblio AUTO_INCREMENT = 1");
        $dbh->do("DELETE FROM biblioitems");
        $dbh->do("ALTER TABLE biblioitems AUTO_INCREMENT = 1");
        $dbh->do("DELETE FROM holdings");
        $dbh->do("ALTER TABLE holdings AUTO_INCREMENT = 1");
        $dbh->do("DELETE FROM items");
        $dbh->do("ALTER TABLE items AUTO_INCREMENT = 1");
	}

$batch->warnings_off();
$batch->strict_off();
my $i=0;
my $holdings_count = 0;
my $commitnum = $commit ? $commit : 50;
my $yamlhash;


   print $loghandle "id;operation;status\n";
}

my $biblionumber;
RECORD: while (  ) {
    my $record;
    # get records

            $field->update('a' => $isbn);
        }
    }

    # check for holdings records
    my $holdings_record = 0;
    if ($biblios && $marcFlavour eq 'MARC21') {
        my $leader = $record->leader();
        $holdings_record = $leader =~ /^.{6}[uvxy]/;
    }

    my $id;
    # search for duplicates (based on Local-number)
    my $originalid;
    $originalid = GetRecordId( $record, $tagid, $subfieldid );
    if ($match && !$holdings_record) {
        require C4::Search;
        my $query = build_query( $match, $record );
        my $server = ( $authorities ? 'authorityserver' : 'biblioserver' );

            $yamlhash->{$originalid}->{'subfields'} = \@subfields;
            }
        }
        elsif ($holdings_record) {
            if ($import_holdings) {
                if (!defined $biblionumber) {
                    warn "ERROR: Encountered holdings record without preceding biblio record\n";
                } else {
                    if ($insert) {
                        my $holding = Koha::Holding->new({ biblionumber => $biblionumber });
                        $holding->set_marc({ record => $record });
                        my $branchcode = $holding->holdingbranch();
                        if (defined $branchcode && !Koha::Libraries->find({ branchcode => $branchcode})) {
                            printlog( { id => 0, op => 'insert', status => "warning : library $branchcode not defined, holdings record skipped" } ) if ($logfile);
                        } else {
                            $holding->store();
                            ++$holdings_count;
                            printlog( { id => $holding->holding_id(), op => 'insert', status => 'ok' } ) if ($logfile);
                        }
                    } else {
                        printlog( { id => 0, op => 'update', status => 'warning : not in database' } ) if ($logfile);
                    }
                }
            }
        }
        else {
            my ( $biblioitemnumber, $itemnumbers_ref, $errors_ref );
            $biblionumber = $id;
            # check for duplicate, based on ISBN (skip it if we already have found a duplicate with match parameter
            if (!$biblionumber && $isbn_check && $isbn) {

delete $ENV{OVERRIDE_SYSPREF_AuthoritiesLog};

my $timeneeded = gettimeofday - $starttime;
if ($import_holdings) {
    printf("\n%i MARC bibliographic records and %i holdings records done in %0.3f seconds\n", $i, $holdings_count, $timeneeded);
} else {
    printf("\n%i MARC records done in %0.3f seconds\n", $i, $timeneeded);
}
if ($logfile){
  print $loghandle "file : $input_marc_file\n";
  print $loghandle "$i MARC records done in $timeneeded seconds\n";


The I<FILE> to import

=item B<-holdings>

Import MARC 21 holdings records when interleaved with bibliographic records
(insert only, update not supported). Used only with -biblios.

=item  B<-v>

Verbose mode. 1 means "some infos", 2 means "MARC dumping"

=item B<-d>

Delete EVERYTHING related to biblio in koha-DB before import. Tables: biblio,
biblioitems, items, holdings

=item B<-m>=I<FORMAT>


Lines 17-23 Link Here

(-)a/t/db_dependent/Exporter/Record.t (-1 / +115 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Test::More tests => 6;	20	use Test::More tests => 8;
21	use Test::Warn;	21	use Test::Warn;
22	use t::lib::TestBuilder;	22	use t::lib::TestBuilder;
23		23
Lines 34-40 use Koha::Database; Link Here
34	use Koha::Biblio;	34	use Koha::Biblio;
35	use Koha::Biblioitem;	35	use Koha::Biblioitem;
36	use Koha::Exporter::Record;	36	use Koha::Exporter::Record;
		37	use Koha::Biblio::Metadata;
37	use Koha::Biblio::Metadatas;	38	use Koha::Biblio::Metadatas;
		39	use Koha::BiblioFramework;
		40	use Koha::BiblioFrameworks;
		41	use Koha::Holdings;
38		42
39	my $schema = Koha::Database->new->schema;	43	my $schema = Koha::Database->new->schema;
40	$schema->storage->txn_begin;	44	$schema->storage->txn_begin;
Lines 62-68 my $bad_biblio = Koha::Biblio->new()->store(); Link Here
62	Koha::Biblio::Metadata->new( { biblionumber => $bad_biblio->id, format => 'marcxml', metadata => 'something wrong', schema => C4::Context->preference('marcflavour') } )->store();	66	Koha::Biblio::Metadata->new( { biblionumber => $bad_biblio->id, format => 'marcxml', metadata => 'something wrong', schema => C4::Context->preference('marcflavour') } )->store();
63	my $bad_biblionumber = $bad_biblio->id;	67	my $bad_biblionumber = $bad_biblio->id;
64		68
		69	# Add a framework for holdings
		70	my $frameworkcode = 'HLD';
		71	my $existing_mss = Koha::MarcSubfieldStructures->search({frameworkcode => $frameworkcode});
		72	$existing_mss->delete() if $existing_mss;
		73	my $existing_fw = Koha::BiblioFrameworks->find({frameworkcode => $frameworkcode});
		74	$existing_fw->delete() if $existing_fw;
		75	Koha::BiblioFramework->new({
		76	frameworkcode => $frameworkcode,
		77	frameworktext => 'Holdings'
		78	})->store();
		79	Koha::MarcSubfieldStructure->new({
		80	frameworkcode => $frameworkcode,
		81	tagfield => 852,
		82	tagsubfield => 'b',
		83	kohafield => 'holdings.holdingbranch'
		84	})->store();
		85	Koha::MarcSubfieldStructure->new({
		86	frameworkcode => $frameworkcode,
		87	tagfield => 852,
		88	tagsubfield => 'c',
		89	kohafield => 'holdings.location'
		90	})->store();
		91	Koha::MarcSubfieldStructure->new({
		92	frameworkcode => $frameworkcode,
		93	tagfield => 942,
		94	tagsubfield => 'n',
		95	kohafield => 'holdings.suppress'
		96	})->store();
		97	Koha::MarcSubfieldStructure->new({
		98	frameworkcode => $frameworkcode,
		99	tagfield => 999,
		100	tagsubfield => 'c',
		101	kohafield => 'biblio.biblionumber'
		102	})->store();
		103	Koha::MarcSubfieldStructure->new({
		104	frameworkcode => $frameworkcode,
		105	tagfield => 999,
		106	tagsubfield => 'e',
		107	kohafield => 'holdings.holding_id'
		108	})->store();
		109
65	my $builder = t::lib::TestBuilder->new;	110	my $builder = t::lib::TestBuilder->new;
		111	my $holdingbranch = $builder->build({ source => 'Branch' });
		112
		113	my $holding_marc_1 = MARC::Record->new();
		114	$holding_marc_1->leader('00202cx a22000973 4500');
		115	$holding_marc_1->append_fields(
		116	MARC::Field->new('852', '8', ' ', b => $holdingbranch->{branchcode}, c => 'Location', k => '1973', h => 'Tb', t => 'Copy 1')
		117	);
		118	my $holding = Koha::Holding->new();
		119	$holding->biblionumber($biblionumber_1);
		120	$holding->set_marc({ record => $holding_marc_1 });
		121	$holding->store();
		122
66	my $item_1_1 = $builder->build({	123	my $item_1_1 = $builder->build({
67	source => 'Item',	124	source => 'Item',
68	value => {	125	value => {
Lines 199-204 subtest 'export iso2709' => sub { Link Here
199	is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' );	256	is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' );
200	};	257	};
201		258
		259	subtest 'export xml with holdings' => sub {
		260	plan tests => 3;
		261	my $generated_xml_file = '/tmp/test_export.xml';
		262	Koha::Exporter::Record::export(
		263	{ record_type => 'bibs',
		264	record_ids => [ $biblionumber_1, $biblionumber_2 ],
		265	format => 'xml',
		266	output_filepath => $generated_xml_file,
		267	export_holdings => 1,
		268	}
		269	);
		270
		271	my $generated_xml_content = read_file( $generated_xml_file );
		272	$MARC::File::XML::_load_args{BinaryEncoding} = 'utf-8';
		273	open my $fh, '<', $generated_xml_file;
		274	my $records = MARC::Batch->new( 'XML', $fh );
		275	my @records;
		276	# The following statement produces
		277	# Use of uninitialized value in concatenation (.) or string at /usr/share/perl5/MARC/File/XML.pm line 398, <$fh> chunk 5.
		278	# Why?
		279	while ( my $record = $records->next ) {
		280	push @records, $record;
		281	}
		282	is( scalar( @records ), 3, 'Export XML with holdings: 3 records should have been exported' );
		283	my $holding_record = $records[1];
		284	my $branch = $holding_record->subfield('852', 'b');
		285	is( $branch, $holdingbranch->{branchcode}, 'Export XML with holdings: The holdings record contains correct branch code' );
		286	my $location = $holding_record->subfield('852', 'c');
		287	is( $location, 'Location', 'Export XML with holdings: The holdings record contains correct location' );
		288	};
		289
		290	subtest 'export iso2709 with holdings' => sub {
		291	plan tests => 3;
		292	my $generated_mrc_file = '/tmp/test_export.mrc';
		293	# Get all item infos
		294	Koha::Exporter::Record::export(
		295	{ record_type => 'bibs',
		296	record_ids => [ $biblionumber_1, $biblionumber_2 ],
		297	format => 'iso2709',
		298	output_filepath => $generated_mrc_file,
		299	export_holdings => 1,
		300	}
		301	);
		302
		303	my $records = MARC::File::USMARC->in( $generated_mrc_file );
		304	my @records;
		305	while ( my $record = $records->next ) {
		306	push @records, $record;
		307	}
		308	is( scalar( @records ), 3, 'Export ISO2709 with holdings: 3 records should have been exported' );
		309	my $holding_record = $records[1];
		310	my $branch = $holding_record->subfield('852', 'b');
		311	is( $branch, $holdingbranch->{branchcode}, 'Export ISO2709 with holdings: The holdings record contains correct branch code' );
		312	my $location = $holding_record->subfield('852', 'c');
		313	is( $location, 'Location', 'Export ISO2709 with holdings: The holdings record contains correct location' );
		314	};
		315
202	subtest 'export without record_type' => sub {	316	subtest 'export without record_type' => sub {
203	plan tests => 1;	317	plan tests => 1;
204		318




my $query = new CGI;

my $dont_export_items = $query->param("dont_export_item") || 0;
my $export_holdings   = $query->param("export_holdings") || 0;
my $record_type       = $query->param("record_type");
my $op                = $query->param("op") || '';
my $output_format     = $query->param("format") || $query->param("output_format") || 'iso2709';

                dont_export_fields => $export_remove_fields,
                csv_profile_id     => $csv_profile_id,
                export_items       => (not $dont_export_items),
                export_holdings    => $export_holdings,
                only_export_items_for_branches => $only_export_items_for_branches,
            }
        );

        export_remove_fields     => C4::Context->preference("ExportRemoveFields"),
        csv_profiles             => [ Koha::CsvProfiles->search({ type => 'marc', used_for => 'export_records' }) ],
        messages                 => \@messages,
        show_summary_holdings    => C4::Context->preference('SummaryHoldings') ? 1 : 0,
    );

    output_html_with_http_headers $query, $cookie, $template->output;
- 

Return to bug 20447

Lines 82-108 sub _get_record_for_export { Link Here

(-)a/Koha/Exporter/Record.pm (-17 / +67 lines)
82	}	82	}
83	}	83	}
84		84
85	if ($dont_export_fields) {	85	_strip_unwanted_fields($record, $dont_export_fields) if $dont_export_fields;
86	for my $f ( split / /, $dont_export_fields ) {	86	C4::Biblio::RemoveAllNsb($record) if $clean;
87	if ( $f =~ m/^(\d{3})(.)?$/ ) {	87	return $record;
88	my ( $field, $subfield ) = ( $1, $2 );	88	}
89		89
90	# skip if this record doesn't have this field	90	sub _strip_unwanted_fields {
91	if ( defined $record->field($field) ) {	91	my ($record, $dont_export_fields) = @_;
92	if ( defined $subfield ) {	92
93	my @tags = $record->field($field);	93	for my $f ( split / /, $dont_export_fields ) {
94	foreach my $t (@tags) {	94	if ( $f =~ m/^(\d{3})(.)?$/ ) {
95	$t->delete_subfields($subfield);	95	my ( $field, $subfield ) = ( $1, $2 );
96	}	96
97	} else {	97	# skip if this record doesn't have this field
98	$record->delete_fields( $record->field($field) );	98	if ( defined $record->field($field) ) {
		99	if ( defined $subfield ) {
		100	my @tags = $record->field($field);
		101	foreach my $t (@tags) {
		102	$t->delete_subfields($subfield);
99	}	103	}
		104	} else {
		105	$record->delete_fields( $record->field($field) );
100	}	106	}
101	}	107	}
102	}	108	}
103	}	109	}
104	C4::Biblio::RemoveAllNsb($record) if $clean;
105	return $record;
106	}	110	}
107		111
108	sub _get_authority_for_export {	112	sub _get_authority_for_export {
Lines 128-134 sub _get_biblio_for_export { Link Here
128	C4::Biblio::EmbedItemsInMarcBiblio({	132	C4::Biblio::EmbedItemsInMarcBiblio({
129	marc_record => $record,	133	marc_record => $record,
130	biblionumber => $biblionumber,	134	biblionumber => $biblionumber,
131	item_numbers => $itemnumbers });	135	item_numbers => $itemnumbers,
		136	skip_holdings => 1 });
132	if ($only_export_items_for_branches && @$only_export_items_for_branches) {	137	if ($only_export_items_for_branches && @$only_export_items_for_branches) {
133	my %export_items_for_branches = map { $_ => 1 } @$only_export_items_for_branches;	138	my %export_items_for_branches = map { $_ => 1 } @$only_export_items_for_branches;
134	my ( $homebranchfield, $homebranchsubfield ) = GetMarcFromKohaField( 'items.homebranch' );	139	my ( $homebranchfield, $homebranchsubfield ) = GetMarcFromKohaField( 'items.homebranch' );
Lines 144-149 sub _get_biblio_for_export { Link Here
144	return $record;	149	return $record;
145	}	150	}
146		151
		152	sub _get_holdings_for_export {
		153	my ($params) = @_;
		154	my $dont_export_fields = $params->{dont_export_fields};
		155	my $clean = $params->{clean};
		156	my $biblionumber = $params->{biblionumber};
		157
		158	my @records;
		159	my $holdings = Koha::Holdings->search({ biblionumber => $biblionumber, deleted_on => undef });
		160	while (my $holding = $holdings->next()) {
		161	my $record = $holding->metadata()->record();
		162	_strip_unwanted_fields($record, $dont_export_fields) if $dont_export_fields;
		163	C4::Biblio::RemoveAllNsb($record) if $clean;
		164	C4::Biblio::UpsertMarcControlField($record, '004', $biblionumber);
		165	my $leader = $record->leader();
		166	if ($leader !~ /^.{6}[uvxy]/) {
		167	$leader =~ s/^(.{6})./$1u/;
		168	$record->leader($leader);
		169	}
		170	push @records, $record;
		171	}
		172	return \@records;
		173	}
		174
147	sub export {	175	sub export {
148	my ($params) = @_;	176	my ($params) = @_;
149		177
Lines 155-160 sub export { Link Here
155	my $dont_export_fields = $params->{dont_export_fields};	183	my $dont_export_fields = $params->{dont_export_fields};
156	my $csv_profile_id = $params->{csv_profile_id};	184	my $csv_profile_id = $params->{csv_profile_id};
157	my $output_filepath = $params->{output_filepath};	185	my $output_filepath = $params->{output_filepath};
		186	my $export_holdings = $params->{export_holdings} // 0;
158		187
159	if( !$record_type ) {	188	if( !$record_type ) {
160	Koha::Logger->get->warn( "No record_type given." );	189	Koha::Logger->get->warn( "No record_type given." );
Lines 184-189 sub export { Link Here
184	next;	213	next;
185	}	214	}
186	print $record->as_usmarc();	215	print $record->as_usmarc();
		216	if ($export_holdings && $record_type eq 'bibs') {
		217	my $holdings = _get_holdings_for_export( { %$params, biblionumber => $record_id } );
		218	foreach my $holding (@$holdings) {
		219	my $errorcount_on_decode = eval { scalar( MARC::File::USMARC->decode( $holding->as_usmarc )->warnings() ) };
		220	if ( $errorcount_on_decode or $@ ) {
		221	my $msg = "Holdings record for biblio $record_id could not be exported. " .
		222	( $@ // '' );
		223	chomp $msg;
		224	Koha::Logger->get->info( $msg );
		225	next;
		226	}
		227	print $holding->as_usmarc();
		228	}
		229	}
187	}	230	}
188	} elsif ( $format eq 'xml' ) {	231	} elsif ( $format eq 'xml' ) {
189	my $marcflavour = C4::Context->preference("marcflavour");	232	my $marcflavour = C4::Context->preference("marcflavour");
Lines 196-201 sub export { Link Here
196	next unless $record;	239	next unless $record;
197	print MARC::File::XML::record($record);	240	print MARC::File::XML::record($record);
198	print "\n";	241	print "\n";
		242	if ($export_holdings && $record_type eq 'bibs') {
		243	my $holdings = _get_holdings_for_export( { %$params, biblionumber => $record_id } );
		244	foreach my $holding (@$holdings) {
		245	print MARC::File::XML::record($holding);
		246	print "\n";
		247	}
		248	}
199	}	249	}
200	print MARC::File::XML::footer();	250	print MARC::File::XML::footer();
201	print "\n";	251	print "\n";

Lines 34-39 use IO::File; Link Here

(-)a/misc/migration_tools/bulkmarcimport.pl (-7 / +55 lines)
34	use Pod::Usage;	34	use Pod::Usage;
35		35
36	use Koha::Biblios;	36	use Koha::Biblios;
		37	use Koha::Holdings;
37	use Koha::SearchEngine;	38	use Koha::SearchEngine;
38	use Koha::SearchEngine::Search;	39	use Koha::SearchEngine::Search;
39		40
Lines 41-47 use open qw( :std :encoding(UTF-8) ); Link Here
41	binmode( STDOUT, ":encoding(UTF-8)" );	42	binmode( STDOUT, ":encoding(UTF-8)" );
42	my ( $input_marc_file, $number, $offset) = ('',0,0);	43	my ( $input_marc_file, $number, $offset) = ('',0,0);
43	my ($version, $delete, $test_parameter, $skip_marc8_conversion, $char_encoding, $verbose, $commit, $fk_off,$format,$biblios,$authorities,$keepids,$match, $isbn_check, $logfile);	44	my ($version, $delete, $test_parameter, $skip_marc8_conversion, $char_encoding, $verbose, $commit, $fk_off,$format,$biblios,$authorities,$keepids,$match, $isbn_check, $logfile);
44	my ( $insert, $filters, $update, $all, $yamlfile, $authtypes, $append );	45	my ( $insert, $filters, $update, $all, $yamlfile, $authtypes, $append, $import_holdings );
45	my $cleanisbn = 1;	46	my $cleanisbn = 1;
46	my ($sourcetag,$sourcesubfield,$idmapfl, $dedup_barcode);	47	my ($sourcetag,$sourcesubfield,$idmapfl, $dedup_barcode);
47	my $framework = '';	48	my $framework = '';
Lines 85-97 GetOptions( Link Here
85	'framework=s' => \$framework,	86	'framework=s' => \$framework,
86	'custom:s' => \$localcust,	87	'custom:s' => \$localcust,
87	'marcmodtemplate:s' => \$marc_mod_template,	88	'marcmodtemplate:s' => \$marc_mod_template,
		89	'holdings' => \$import_holdings,
88	);	90	);
89	$biblios \|\|= !$authorities;	91	$biblios \|\|= !$authorities;
90	$insert \|\|= !$update;	92	$insert \|\|= !$update;
91	my $writemode = ($append) ? "a" : "w";	93	my $writemode = ($append) ? "a" : "w";
		94	my $marcFlavour = C4::Context->preference('marcflavour') \|\| 'MARC21';
92		95
93	pod2usage( -msg => "\nYou must specify either --biblios or --authorities, not both.\n", -exitval ) if $biblios && $authorities;	96	pod2usage( -msg => "\nYou must specify either --biblios or --authorities, not both.\n", -exitval ) if $biblios && $authorities;
94		97
		98	pod2usage( -msg => "\nHoldings only supported for MARC 21 biblios.\n", -exitval ) if $import_holdings && (!$biblios \|\| $marcFlavour ne 'MARC21');
		99
95	if ($all) {	100	if ($all) {
96	$insert = 1;	101	$insert = 1;
97	$update = 1;	102	$update = 1;
Lines 168-179 if ($fk_off) { Link Here
168		173
169		174
170	if ($delete) {	175	if ($delete) {
171	if ($biblios){	176	if ($biblios) {
172	print "deleting biblios\n";	177	print "deleting biblios\n";
173	$dbh->do("DELETE FROM biblio");	178	$dbh->do("DELETE FROM biblio");
174	$dbh->do("ALTER TABLE biblio AUTO_INCREMENT = 1");	179	$dbh->do("ALTER TABLE biblio AUTO_INCREMENT = 1");
175	$dbh->do("DELETE FROM biblioitems");	180	$dbh->do("DELETE FROM biblioitems");
176	$dbh->do("ALTER TABLE biblioitems AUTO_INCREMENT = 1");	181	$dbh->do("ALTER TABLE biblioitems AUTO_INCREMENT = 1");
		182	$dbh->do("DELETE FROM holdings");
		183	$dbh->do("ALTER TABLE holdings AUTO_INCREMENT = 1");
177	$dbh->do("DELETE FROM items");	184	$dbh->do("DELETE FROM items");
178	$dbh->do("ALTER TABLE items AUTO_INCREMENT = 1");	185	$dbh->do("ALTER TABLE items AUTO_INCREMENT = 1");
179	}	186	}
Lines 229-234 if (defined $format && $format =~ /XML/i) { Link Here
229	$batch->warnings_off();	236	$batch->warnings_off();
230	$batch->strict_off();	237	$batch->strict_off();
231	my $i=0;	238	my $i=0;
		239	my $holdings_count = 0;
232	my $commitnum = $commit ? $commit : 50;	240	my $commitnum = $commit ? $commit : 50;
233	my $yamlhash;	241	my $yamlhash;
234		242
Lines 258-263 if ($logfile){ Link Here
258	print $loghandle "id;operation;status\n";	266	print $loghandle "id;operation;status\n";
259	}	267	}
260		268
		269	my $biblionumber;
261	RECORD: while ( ) {	270	RECORD: while ( ) {
262	my $record;	271	my $record;
263	# get records	272	# get records
Lines 306-316 RECORD: while ( ) { Link Here
306	$field->update('a' => $isbn);	315	$field->update('a' => $isbn);
307	}	316	}
308	}	317	}
		318
		319	# check for holdings records
		320	my $holdings_record = 0;
		321	if ($biblios && $marcFlavour eq 'MARC21') {
		322	my $leader = $record->leader();
		323	$holdings_record = $leader =~ /^.{6}[uvxy]/;
		324	}
		325
309	my $id;	326	my $id;
310	# search for duplicates (based on Local-number)	327	# search for duplicates (based on Local-number)
311	my $originalid;	328	my $originalid;
312	$originalid = GetRecordId( $record, $tagid, $subfieldid );	329	$originalid = GetRecordId( $record, $tagid, $subfieldid );
313	if ($match) {	330	if ($match && !$holdings_record) {
314	require C4::Search;	331	require C4::Search;
315	my $query = build_query( $match, $record );	332	my $query = build_query( $match, $record );
316	my $server = ( $authorities ? 'authorityserver' : 'biblioserver' );	333	my $server = ( $authorities ? 'authorityserver' : 'biblioserver' );
Lines 426-433 RECORD: while ( ) { Link Here
426	$yamlhash->{$originalid}->{'subfields'} = \@subfields;	443	$yamlhash->{$originalid}->{'subfields'} = \@subfields;
427	}	444	}
428	}	445	}
		446	elsif ($holdings_record) {
		447	if ($import_holdings) {
		448	if (!defined $biblionumber) {
		449	warn "ERROR: Encountered holdings record without preceding biblio record\n";
		450	} else {
		451	if ($insert) {
		452	my $holding = Koha::Holding->new({ biblionumber => $biblionumber });
		453	$holding->set_marc({ record => $record });
		454	my $branchcode = $holding->holdingbranch();
		455	if (defined $branchcode && !Koha::Libraries->find({ branchcode => $branchcode})) {
		456	printlog( { id => 0, op => 'insert', status => "warning : library $branchcode not defined, holdings record skipped" } ) if ($logfile);
		457	} else {
		458	$holding->store();
		459	++$holdings_count;
		460	printlog( { id => $holding->holding_id(), op => 'insert', status => 'ok' } ) if ($logfile);
		461	}
		462	} else {
		463	printlog( { id => 0, op => 'update', status => 'warning : not in database' } ) if ($logfile);
		464	}
		465	}
		466	}
		467	}
429	else {	468	else {
430	my ( $biblionumber, $biblioitemnumber, $itemnumbers_ref, $errors_ref );	469	my ( $biblioitemnumber, $itemnumbers_ref, $errors_ref );
431	$biblionumber = $id;	470	$biblionumber = $id;
432	# check for duplicate, based on ISBN (skip it if we already have found a duplicate with match parameter	471	# check for duplicate, based on ISBN (skip it if we already have found a duplicate with match parameter
433	if (!$biblionumber && $isbn_check && $isbn) {	472	if (!$biblionumber && $isbn_check && $isbn) {
Lines 563-569 delete $ENV{OVERRIDE_SYSPREF_CataloguingLog}; Link Here
563	delete $ENV{OVERRIDE_SYSPREF_AuthoritiesLog};	602	delete $ENV{OVERRIDE_SYSPREF_AuthoritiesLog};
564		603
565	my $timeneeded = gettimeofday - $starttime;	604	my $timeneeded = gettimeofday - $starttime;
566	print "\n$i MARC records done in $timeneeded seconds\n";	605	if ($import_holdings) {
		606	printf("\n%i MARC bibliographic records and %i holdings records done in %0.3f seconds\n", $i, $holdings_count, $timeneeded);
		607	} else {
		608	printf("\n%i MARC records done in %0.3f seconds\n", $i, $timeneeded);
		609	}
567	if ($logfile){	610	if ($logfile){
568	print $loghandle "file : $input_marc_file\n";	611	print $loghandle "file : $input_marc_file\n";
569	print $loghandle "$i MARC records done in $timeneeded seconds\n";	612	print $loghandle "$i MARC records done in $timeneeded seconds\n";
Lines 698-703 Type of import: authority records Link Here
698		741
699	The I<FILE> to import	742	The I<FILE> to import
700		743
		744	=item B<-holdings>
		745
		746	Import MARC 21 holdings records when interleaved with bibliographic records
		747	(insert only, update not supported). Used only with -biblios.
		748
701	=item B<-v>	749	=item B<-v>
702		750
703	Verbose mode. 1 means "some infos", 2 means "MARC dumping"	751	Verbose mode. 1 means "some infos", 2 means "MARC dumping"
Lines 743-749 I<UNIMARC> are supported. MARC21 by default. Link Here
743	=item B<-d>	791	=item B<-d>
744		792
745	Delete EVERYTHING related to biblio in koha-DB before import. Tables: biblio,	793	Delete EVERYTHING related to biblio in koha-DB before import. Tables: biblio,
746	biblioitems, items	794	biblioitems, items, holdings
747		795
748	=item B<-m>=I<FORMAT>	796	=item B<-m>=I<FORMAT>
749		797

Lines 35-40 use Koha::Libraries; Link Here

(-)a/tools/export.pl (-1 / +3 lines)
35	my $query = new CGI;	35	my $query = new CGI;
36		36
37	my $dont_export_items = $query->param("dont_export_item") \|\| 0;	37	my $dont_export_items = $query->param("dont_export_item") \|\| 0;
		38	my $export_holdings = $query->param("export_holdings") \|\| 0;
38	my $record_type = $query->param("record_type");	39	my $record_type = $query->param("record_type");
39	my $op = $query->param("op") \|\| '';	40	my $op = $query->param("op") \|\| '';
40	my $output_format = $query->param("format") \|\| $query->param("output_format") \|\| 'iso2709';	41	my $output_format = $query->param("format") \|\| $query->param("output_format") \|\| 'iso2709';
Lines 208-213 if ( $op eq "export" ) { Link Here
208	dont_export_fields => $export_remove_fields,	209	dont_export_fields => $export_remove_fields,
209	csv_profile_id => $csv_profile_id,	210	csv_profile_id => $csv_profile_id,
210	export_items => (not $dont_export_items),	211	export_items => (not $dont_export_items),
		212	export_holdings => $export_holdings,
211	only_export_items_for_branches => $only_export_items_for_branches,	213	only_export_items_for_branches => $only_export_items_for_branches,
212	}	214	}
213	);	215	);
Lines 302-307 else { Link Here
302	export_remove_fields => C4::Context->preference("ExportRemoveFields"),	304	export_remove_fields => C4::Context->preference("ExportRemoveFields"),
303	csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc', used_for => 'export_records' }) ],	305	csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc', used_for => 'export_records' }) ],
304	messages => \@messages,	306	messages => \@messages,
		307	show_summary_holdings => C4::Context->preference('SummaryHoldings') ? 1 : 0,
305	);	308	);
306		309
307	output_html_with_http_headers $query, $cookie, $template->output;	310	output_html_with_http_headers $query, $cookie, $template->output;
308	-