|
Lines 323-329
sub ModBiblio {
Link Here
|
| 323 |
# update biblionumber and biblioitemnumber in MARC |
323 |
# update biblionumber and biblioitemnumber in MARC |
| 324 |
# FIXME - this is assuming a 1 to 1 relationship between |
324 |
# FIXME - this is assuming a 1 to 1 relationship between |
| 325 |
# biblios and biblioitems |
325 |
# biblios and biblioitems |
| 326 |
my $sth = $dbh->prepare("select biblioitemnumber,history from biblioitems where biblionumber=?"); |
326 |
my $sth = $dbh->prepare("select biblioitems.biblioitemnumber, biblio_metadata.history from biblioitems, biblio_metadata where biblioitems.biblionumber=?"); |
| 327 |
$sth->execute($biblionumber); |
327 |
$sth->execute($biblionumber); |
| 328 |
my ($biblioitemnumber, $history) = $sth->fetchrow; |
328 |
my ($biblioitemnumber, $history) = $sth->fetchrow; |
| 329 |
$sth->finish(); |
329 |
$sth->finish(); |
|
Lines 3499-3506
sub ModBiblioMarc {
Link Here
|
| 3499 |
my $newhistory = HistoryUpdate($newrecord, $historylength, $history); |
3499 |
my $newhistory = HistoryUpdate($newrecord, $historylength, $history); |
| 3500 |
$newhistory = encode_json($newhistory); |
3500 |
$newhistory = encode_json($newhistory); |
| 3501 |
|
3501 |
|
| 3502 |
$sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=?,history=? WHERE biblionumber=?"); |
3502 |
$sth = $dbh->prepare("UPDATE biblio_metadata SET metadata=?,history=? WHERE biblionumber=?"); |
| 3503 |
$sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $newhistory, $biblionumber ); |
3503 |
$sth->execute( $record->as_xml_record($encoding), $newhistory, $biblionumber ); |
| 3504 |
$sth->finish; |
3504 |
$sth->finish; |
| 3505 |
|
3505 |
|
| 3506 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3506 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |