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