Lines 79-90
my $mappings = GetOAISetsMappings;
Link Here
|
79 |
# Get all biblionumbers and marcxml |
79 |
# Get all biblionumbers and marcxml |
80 |
print "Retrieving biblios... " if $verbose; |
80 |
print "Retrieving biblios... " if $verbose; |
81 |
my $query = qq{ |
81 |
my $query = qq{ |
82 |
SELECT biblionumber, metadata |
82 |
SELECT biblionumber, metadata, 0 as "deleted" |
83 |
FROM biblio_metadata |
83 |
FROM biblio_metadata |
84 |
WHERE format='marcxml' |
84 |
WHERE format='marcxml' |
85 |
AND `schema` = ? |
85 |
AND `schema` = ? |
86 |
UNION |
86 |
UNION |
87 |
SELECT biblionumber, metadata |
87 |
SELECT biblionumber, metadata, 1 as "deleted" |
88 |
FROM deletedbiblio_metadata |
88 |
FROM deletedbiblio_metadata |
89 |
WHERE format='marcxml' |
89 |
WHERE format='marcxml' |
90 |
AND `schema` = ? |
90 |
AND `schema` = ? |
Lines 140-146
foreach my $res (@$results) {
Link Here
|
140 |
warn "(biblio $biblionumber) Error while creating record from marcxml: $@"; |
140 |
warn "(biblio $biblionumber) Error while creating record from marcxml: $@"; |
141 |
next; |
141 |
next; |
142 |
} |
142 |
} |
143 |
if($embed_items) { |
143 |
if( $embed_items && !($res->{'deleted'}) ) { |
144 |
$record = Koha::Biblio::Metadata->record( |
144 |
$record = Koha::Biblio::Metadata->record( |
145 |
{ |
145 |
{ |
146 |
record => $record, |
146 |
record => $record, |
147 |
- |
|
|