Lines 3332-3338
sub _koha_add_biblioitem {
Link Here
|
3332 |
size = ?, |
3332 |
size = ?, |
3333 |
place = ?, |
3333 |
place = ?, |
3334 |
lccn = ?, |
3334 |
lccn = ?, |
3335 |
marc = ?, |
|
|
3336 |
url = ?, |
3335 |
url = ?, |
3337 |
cn_source = ?, |
3336 |
cn_source = ?, |
3338 |
cn_class = ?, |
3337 |
cn_class = ?, |
Lines 3350-3356
sub _koha_add_biblioitem {
Link Here
|
3350 |
$biblioitem->{'volumedate'}, $biblioitem->{'volumedesc'}, $biblioitem->{'collectiontitle'}, $biblioitem->{'collectionissn'}, |
3349 |
$biblioitem->{'volumedate'}, $biblioitem->{'volumedesc'}, $biblioitem->{'collectiontitle'}, $biblioitem->{'collectionissn'}, |
3351 |
$biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'}, |
3350 |
$biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'}, |
3352 |
$biblioitem->{'pages'}, $biblioitem->{'bnotes'}, $biblioitem->{'size'}, $biblioitem->{'place'}, |
3351 |
$biblioitem->{'pages'}, $biblioitem->{'bnotes'}, $biblioitem->{'size'}, $biblioitem->{'place'}, |
3353 |
$biblioitem->{'lccn'}, $biblioitem->{'marc'}, $biblioitem->{'url'}, $biblioitem->{'biblioitems.cn_source'}, |
3352 |
$biblioitem->{'lccn'}, $biblioitem->{'url'}, $biblioitem->{'biblioitems.cn_source'}, |
3354 |
$biblioitem->{'cn_class'}, $biblioitem->{'cn_item'}, $biblioitem->{'cn_suffix'}, $cn_sort, |
3353 |
$biblioitem->{'cn_class'}, $biblioitem->{'cn_item'}, $biblioitem->{'cn_suffix'}, $cn_sort, |
3355 |
$biblioitem->{'totalissues'}, $biblioitem->{'ean'}, $biblioitem->{'agerestriction'} |
3354 |
$biblioitem->{'totalissues'}, $biblioitem->{'ean'}, $biblioitem->{'agerestriction'} |
3356 |
); |
3355 |
); |
Lines 3469-3475
sub _koha_delete_biblioitems {
Link Here
|
3469 |
|
3468 |
|
3470 |
&ModBiblioMarc($newrec,$biblionumber,$frameworkcode); |
3469 |
&ModBiblioMarc($newrec,$biblionumber,$frameworkcode); |
3471 |
|
3470 |
|
3472 |
Add MARC data for a biblio to koha |
3471 |
Add MARC XML data for a biblio to koha |
3473 |
|
3472 |
|
3474 |
Function exported, but should NOT be used, unless you really know what you're doing |
3473 |
Function exported, but should NOT be used, unless you really know what you're doing |
3475 |
|
3474 |
|
Lines 3477-3483
Function exported, but should NOT be used, unless you really know what you're do
Link Here
|
3477 |
|
3476 |
|
3478 |
sub ModBiblioMarc { |
3477 |
sub ModBiblioMarc { |
3479 |
# pass the MARC::Record to this function, and it will create the records in |
3478 |
# pass the MARC::Record to this function, and it will create the records in |
3480 |
# the marc field |
3479 |
# the marcxml field |
3481 |
my ( $record, $biblionumber, $frameworkcode ) = @_; |
3480 |
my ( $record, $biblionumber, $frameworkcode ) = @_; |
3482 |
if ( !$record ) { |
3481 |
if ( !$record ) { |
3483 |
carp 'ModBiblioMarc passed an undefined record'; |
3482 |
carp 'ModBiblioMarc passed an undefined record'; |
Lines 3524-3531
sub ModBiblioMarc {
Link Here
|
3524 |
$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005; |
3523 |
$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005; |
3525 |
} |
3524 |
} |
3526 |
|
3525 |
|
3527 |
$sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?"); |
3526 |
$sth = $dbh->prepare("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?"); |
3528 |
$sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber ); |
3527 |
$sth->execute( $record->as_xml_record($encoding), $biblionumber ); |
3529 |
$sth->finish; |
3528 |
$sth->finish; |
3530 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3529 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3531 |
return $biblionumber; |
3530 |
return $biblionumber; |
3532 |
- |
|
|