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