From 774b3021f3919b2d5993660a1c756d245059844b Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 10 Dec 2012 09:30:08 +0100 Subject: [PATCH] 7368 GetXmlBiblio Only changing some documentation about GetXmlBiblio Signed-off-by: Mirko Tietgen --- 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 d64acfb..b59f341 100644 --- a/C4/Biblio.pm +++ b/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 diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm index 15f1acb..5f46613 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 c7a8fd8..0415a3a 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 -- 1.7.2.5