|
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 |
- |
|
|