Lines 3312-3318
sub _koha_add_biblioitem {
Link Here
|
3312 |
size = ?, |
3312 |
size = ?, |
3313 |
place = ?, |
3313 |
place = ?, |
3314 |
lccn = ?, |
3314 |
lccn = ?, |
3315 |
marc = ?, |
|
|
3316 |
url = ?, |
3315 |
url = ?, |
3317 |
cn_source = ?, |
3316 |
cn_source = ?, |
3318 |
cn_class = ?, |
3317 |
cn_class = ?, |
Lines 3330-3336
sub _koha_add_biblioitem {
Link Here
|
3330 |
$biblioitem->{'volumedate'}, $biblioitem->{'volumedesc'}, $biblioitem->{'collectiontitle'}, $biblioitem->{'collectionissn'}, |
3329 |
$biblioitem->{'volumedate'}, $biblioitem->{'volumedesc'}, $biblioitem->{'collectiontitle'}, $biblioitem->{'collectionissn'}, |
3331 |
$biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'}, |
3330 |
$biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'}, |
3332 |
$biblioitem->{'pages'}, $biblioitem->{'bnotes'}, $biblioitem->{'size'}, $biblioitem->{'place'}, |
3331 |
$biblioitem->{'pages'}, $biblioitem->{'bnotes'}, $biblioitem->{'size'}, $biblioitem->{'place'}, |
3333 |
$biblioitem->{'lccn'}, $biblioitem->{'marc'}, $biblioitem->{'url'}, $biblioitem->{'biblioitems.cn_source'}, |
3332 |
$biblioitem->{'lccn'}, $biblioitem->{'url'}, $biblioitem->{'biblioitems.cn_source'}, |
3334 |
$biblioitem->{'cn_class'}, $biblioitem->{'cn_item'}, $biblioitem->{'cn_suffix'}, $cn_sort, |
3333 |
$biblioitem->{'cn_class'}, $biblioitem->{'cn_item'}, $biblioitem->{'cn_suffix'}, $cn_sort, |
3335 |
$biblioitem->{'totalissues'}, $biblioitem->{'ean'}, $biblioitem->{'agerestriction'} |
3334 |
$biblioitem->{'totalissues'}, $biblioitem->{'ean'}, $biblioitem->{'agerestriction'} |
3336 |
); |
3335 |
); |
Lines 3449-3455
sub _koha_delete_biblioitems {
Link Here
|
3449 |
|
3448 |
|
3450 |
&ModBiblioMarc($newrec,$biblionumber,$frameworkcode); |
3449 |
&ModBiblioMarc($newrec,$biblionumber,$frameworkcode); |
3451 |
|
3450 |
|
3452 |
Add MARC data for a biblio to koha |
3451 |
Add MARC XML data for a biblio to koha |
3453 |
|
3452 |
|
3454 |
Function exported, but should NOT be used, unless you really know what you're doing |
3453 |
Function exported, but should NOT be used, unless you really know what you're doing |
3455 |
|
3454 |
|
Lines 3457-3463
Function exported, but should NOT be used, unless you really know what you're do
Link Here
|
3457 |
|
3456 |
|
3458 |
sub ModBiblioMarc { |
3457 |
sub ModBiblioMarc { |
3459 |
# pass the MARC::Record to this function, and it will create the records in |
3458 |
# pass the MARC::Record to this function, and it will create the records in |
3460 |
# the marc field |
3459 |
# the marcxml field |
3461 |
my ( $record, $biblionumber, $frameworkcode ) = @_; |
3460 |
my ( $record, $biblionumber, $frameworkcode ) = @_; |
3462 |
if ( !$record ) { |
3461 |
if ( !$record ) { |
3463 |
carp 'ModBiblioMarc passed an undefined record'; |
3462 |
carp 'ModBiblioMarc passed an undefined record'; |
Lines 3504-3511
sub ModBiblioMarc {
Link Here
|
3504 |
$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005; |
3503 |
$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005; |
3505 |
} |
3504 |
} |
3506 |
|
3505 |
|
3507 |
$sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?"); |
3506 |
$sth = $dbh->prepare("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?"); |
3508 |
$sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber ); |
3507 |
$sth->execute( $record->as_xml_record($encoding), $biblionumber ); |
3509 |
$sth->finish; |
3508 |
$sth->finish; |
3510 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3509 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3511 |
return $biblionumber; |
3510 |
return $biblionumber; |
3512 |
- |
|
|