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