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

(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 1288-1294 sub GetMarcBiblio { Link Here
1288
  my $marcxml = GetXmlBiblio($biblionumber);
1288
  my $marcxml = GetXmlBiblio($biblionumber);
1289
1289
1290
Returns biblioitems.marcxml of the biblionumber passed in parameter.
1290
Returns biblioitems.marcxml of the biblionumber passed in parameter.
1291
The XML contains both biblio & item datas
1291
The XML should only contain biblio information (item information is no longer stored in marcxml field)
1292
1292
1293
=cut
1293
=cut
1294
1294
(-)a/C4/ImportBatch.pm (+1 lines)
Lines 621-626 sub BatchCommitRecords { Link Here
621
621
622
                # remove item fields so that they don't get
622
                # remove item fields so that they don't get
623
                # added again if record is reverted
623
                # added again if record is reverted
624
                # 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.
624
                my $old_marc = MARC::Record->new_from_xml(StripNonXmlChars($oldxml), 'UTF-8', $rowref->{'encoding'}, $marc_type);
625
                my $old_marc = MARC::Record->new_from_xml(StripNonXmlChars($oldxml), 'UTF-8', $rowref->{'encoding'}, $marc_type);
625
                foreach my $item_field ($old_marc->field($item_tag)) {
626
                foreach my $item_field ($old_marc->field($item_tag)) {
626
                    $old_marc->delete_field($item_field);
627
                    $old_marc->delete_field($item_field);
(-)a/tools/export.pl (-2 / +1 lines)
Lines 22-28 use Getopt::Long; Link Here
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth;
24
use C4::AuthoritiesMarc;    # GetAuthority
24
use C4::AuthoritiesMarc;    # GetAuthority
25
use C4::Biblio;             # GetMarcBiblio GetXmlBiblio
25
use C4::Biblio;             # GetMarcBiblio
26
use C4::Branch;             # GetBranches
26
use C4::Branch;             # GetBranches
27
use C4::Csv;
27
use C4::Csv;
28
use C4::Koha;               # GetItemTypes
28
use C4::Koha;               # GetItemTypes
29
- 

Return to bug 7368