|
Lines 75-80
my $query = qq{
Link Here
|
| 75 |
FROM biblio_metadata |
75 |
FROM biblio_metadata |
| 76 |
WHERE format='marcxml' |
76 |
WHERE format='marcxml' |
| 77 |
AND `schema` = ? |
77 |
AND `schema` = ? |
|
|
78 |
UNION |
| 79 |
SELECT biblionumber, metadata |
| 80 |
FROM deletedbiblio_metadata |
| 81 |
WHERE format='marcxml' |
| 82 |
AND `schema` = ? |
| 78 |
}; |
83 |
}; |
| 79 |
if($length) { |
84 |
if($length) { |
| 80 |
$query .= "LIMIT $length"; |
85 |
$query .= "LIMIT $length"; |
|
Lines 83-89
if($length) {
Link Here
|
| 83 |
} |
88 |
} |
| 84 |
} |
89 |
} |
| 85 |
my $sth = $dbh->prepare($query); |
90 |
my $sth = $dbh->prepare($query); |
| 86 |
$sth->execute( C4::Context->preference('marcflavour') ); |
91 |
$sth->execute( C4::Context->preference('marcflavour'), C4::Context->preference('marcflavour')); |
| 87 |
my $results = $sth->fetchall_arrayref({}); |
92 |
my $results = $sth->fetchall_arrayref({}); |
| 88 |
print "done.\n" if $verbose; |
93 |
print "done.\n" if $verbose; |
| 89 |
|
94 |
|
| 90 |
- |
|
|