Lines 302-308
sub ModBiblio {
Link Here
|
302 |
# update biblionumber and biblioitemnumber in MARC |
302 |
# update biblionumber and biblioitemnumber in MARC |
303 |
# FIXME - this is assuming a 1 to 1 relationship between |
303 |
# FIXME - this is assuming a 1 to 1 relationship between |
304 |
# biblios and biblioitems |
304 |
# biblios and biblioitems |
305 |
my $sth = $dbh->prepare("select biblioitemnumber,history from biblioitems where biblionumber=?"); |
305 |
my $sth = $dbh->prepare("select biblioitems.biblioitemnumber, biblio_metadata.history from biblioitems, biblio_metadata where biblioitems.biblionumber=?"); |
306 |
$sth->execute($biblionumber); |
306 |
$sth->execute($biblionumber); |
307 |
my ($biblioitemnumber, $history) = $sth->fetchrow; |
307 |
my ($biblioitemnumber, $history) = $sth->fetchrow; |
308 |
$sth->finish(); |
308 |
$sth->finish(); |
Lines 3211-3218
sub ModBiblioMarc {
Link Here
|
3211 |
my $newhistory = HistoryUpdate($newrecord, $historylength, $history); |
3211 |
my $newhistory = HistoryUpdate($newrecord, $historylength, $history); |
3212 |
$newhistory = encode_json($newhistory); |
3212 |
$newhistory = encode_json($newhistory); |
3213 |
|
3213 |
|
3214 |
$sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=?,history=? WHERE biblionumber=?"); |
3214 |
$sth = $dbh->prepare("UPDATE biblio_metadata SET metadata=?,history=? WHERE biblionumber=?"); |
3215 |
$sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $newhistory, $biblionumber ); |
3215 |
$sth->execute( $record->as_xml_record($encoding), $newhistory, $biblionumber ); |
3216 |
$sth->finish; |
3216 |
$sth->finish; |
3217 |
|
3217 |
|
3218 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3218 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |