From 081db87fc4eb65d2f28e6332b6460c8372d9755e Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 10 Dec 2012 09:30:08 +0100 Subject: [PATCH] Bug 7368: Update GetXmlBiblio documentation Only changing some documentation about GetXmlBiblio Signed-off-by: Mirko Tietgen Added the word 'contain' Signed-off-by: Jonathan Druart Signed-off-by: Chris Cormack --- C4/Biblio.pm | 2 +- C4/ImportBatch.pm | 1 + tools/export.pl | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 832da69ede..96e47e4e91 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1255,7 +1255,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 contain biblio information (item information is no longer stored in marcxml field) =cut diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm index 15f1acbc4a..5f466134e2 100644 --- a/C4/ImportBatch.pm +++ b/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); diff --git a/tools/export.pl b/tools/export.pl index c7a8fd818e..0415a3a16b 100755 --- a/tools/export.pl +++ b/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 -- 2.39.5