@@ -, +, @@ --- C4/Biblio.pm | 2 +- C4/ImportBatch.pm | 1 + tools/export.pl | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -1288,7 +1288,7 @@ sub GetMarcBiblio { my $marcxml = GetXmlBiblio($biblionumber); Returns biblioitems.marcxml of the biblionumber passed in parameter. -The XML contains both biblio & item datas +The XML should only biblio information (item information is no longer stored in marcxml field) =cut --- a/C4/ImportBatch.pm +++ a/C4/ImportBatch.pm @@ -621,6 +621,7 @@ sub BatchCommitRecords { # remove item fields so that they don't get # added again if record is reverted + # FIXME: GetXmlBiblio output should not contain item info any more! So the next foreach should not be needed. Does not hurt either; may remove old 952s that should not have been there anymore. my $old_marc = MARC::Record->new_from_xml(StripNonXmlChars($oldxml), 'UTF-8', $rowref->{'encoding'}, $marc_type); foreach my $item_field ($old_marc->field($item_tag)) { $old_marc->delete_field($item_field); --- a/tools/export.pl +++ a/tools/export.pl @@ -22,7 +22,7 @@ use Getopt::Long; use CGI; use C4::Auth; use C4::AuthoritiesMarc; # GetAuthority -use C4::Biblio; # GetMarcBiblio GetXmlBiblio +use C4::Biblio; # GetMarcBiblio use C4::Branch; # GetBranches use C4::Csv; use C4::Koha; # GetItemTypes --