|
Lines 420-426
sub get_raw_marc_record {
Link Here
|
| 420 |
if ($noxml) { |
420 |
if ($noxml) { |
| 421 |
my $fetch_sth = $dbh->prepare_cached("SELECT marc FROM biblioitems WHERE biblionumber = ? |
421 |
my $fetch_sth = $dbh->prepare_cached("SELECT marc FROM biblioitems WHERE biblionumber = ? |
| 422 |
UNION SELECT marc from deletedbiblioitems where biblionumber=?"); |
422 |
UNION SELECT marc from deletedbiblioitems where biblionumber=?"); |
| 423 |
$fetch_sth->execute($record_number); |
423 |
$fetch_sth->execute($record_number,$record_number); |
| 424 |
if (my ($blob) = $fetch_sth->fetchrow_array) { |
424 |
if (my ($blob) = $fetch_sth->fetchrow_array) { |
| 425 |
$marc = MARC::Record->new_from_usmarc($blob); |
425 |
$marc = MARC::Record->new_from_usmarc($blob); |
| 426 |
$fetch_sth->finish(); |
426 |
$fetch_sth->finish(); |
| 427 |
- |
|
|