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

(-)a/C4/ImportBatch.pm (-3 / +2 lines)
Lines 623-629 sub BatchCommitRecords { Link Here
623
            $recordid = $record_match;
623
            $recordid = $record_match;
624
            my $oldxml;
624
            my $oldxml;
625
            if ($record_type eq 'biblio') {
625
            if ($record_type eq 'biblio') {
626
                my ($count, $oldbiblio) = GetBiblio($recordid);
626
                my $oldbiblio = GetBiblio($recordid);
627
                $oldxml = GetXmlBiblio($recordid);
627
                $oldxml = GetXmlBiblio($recordid);
628
628
629
                # remove item fields so that they don't get
629
                # remove item fields so that they don't get
Lines 822-828 sub BatchRevertRecords { Link Here
822
            my $old_record = MARC::Record->new_from_xml(StripNonXmlChars($rowref->{'marcxml_old'}), 'UTF-8', $rowref->{'encoding'}, $marc_type);
822
            my $old_record = MARC::Record->new_from_xml(StripNonXmlChars($rowref->{'marcxml_old'}), 'UTF-8', $rowref->{'encoding'}, $marc_type);
823
            if ($record_type eq 'biblio') {
823
            if ($record_type eq 'biblio') {
824
                my $biblionumber = $rowref->{'matched_biblionumber'};
824
                my $biblionumber = $rowref->{'matched_biblionumber'};
825
                my ($count, $oldbiblio) = GetBiblio($biblionumber);
825
                my $oldbiblio = GetBiblio($biblionumber);
826
                $num_items_deleted += BatchRevertItems($rowref->{'import_record_id'}, $rowref->{'matched_biblionumber'});
826
                $num_items_deleted += BatchRevertItems($rowref->{'import_record_id'}, $rowref->{'matched_biblionumber'});
827
                ModBiblio($old_record, $biblionumber, $oldbiblio->{'frameworkcode'});
827
                ModBiblio($old_record, $biblionumber, $oldbiblio->{'frameworkcode'});
828
            } else {
828
            } else {
829
- 

Return to bug 10906