Lines 3322-3328
sub _koha_add_biblioitem {
Link Here
|
3322 |
size = ?, |
3322 |
size = ?, |
3323 |
place = ?, |
3323 |
place = ?, |
3324 |
lccn = ?, |
3324 |
lccn = ?, |
3325 |
marc = ?, |
|
|
3326 |
url = ?, |
3325 |
url = ?, |
3327 |
cn_source = ?, |
3326 |
cn_source = ?, |
3328 |
cn_class = ?, |
3327 |
cn_class = ?, |
Lines 3340-3346
sub _koha_add_biblioitem {
Link Here
|
3340 |
$biblioitem->{'volumedate'}, $biblioitem->{'volumedesc'}, $biblioitem->{'collectiontitle'}, $biblioitem->{'collectionissn'}, |
3339 |
$biblioitem->{'volumedate'}, $biblioitem->{'volumedesc'}, $biblioitem->{'collectiontitle'}, $biblioitem->{'collectionissn'}, |
3341 |
$biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'}, |
3340 |
$biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'}, |
3342 |
$biblioitem->{'pages'}, $biblioitem->{'bnotes'}, $biblioitem->{'size'}, $biblioitem->{'place'}, |
3341 |
$biblioitem->{'pages'}, $biblioitem->{'bnotes'}, $biblioitem->{'size'}, $biblioitem->{'place'}, |
3343 |
$biblioitem->{'lccn'}, $biblioitem->{'marc'}, $biblioitem->{'url'}, $biblioitem->{'biblioitems.cn_source'}, |
3342 |
$biblioitem->{'lccn'}, $biblioitem->{'url'}, $biblioitem->{'biblioitems.cn_source'}, |
3344 |
$biblioitem->{'cn_class'}, $biblioitem->{'cn_item'}, $biblioitem->{'cn_suffix'}, $cn_sort, |
3343 |
$biblioitem->{'cn_class'}, $biblioitem->{'cn_item'}, $biblioitem->{'cn_suffix'}, $cn_sort, |
3345 |
$biblioitem->{'totalissues'}, $biblioitem->{'ean'}, $biblioitem->{'agerestriction'} |
3344 |
$biblioitem->{'totalissues'}, $biblioitem->{'ean'}, $biblioitem->{'agerestriction'} |
3346 |
); |
3345 |
); |
Lines 3459-3465
sub _koha_delete_biblioitems {
Link Here
|
3459 |
|
3458 |
|
3460 |
&ModBiblioMarc($newrec,$biblionumber,$frameworkcode); |
3459 |
&ModBiblioMarc($newrec,$biblionumber,$frameworkcode); |
3461 |
|
3460 |
|
3462 |
Add MARC data for a biblio to koha |
3461 |
Add MARC XML data for a biblio to koha |
3463 |
|
3462 |
|
3464 |
Function exported, but should NOT be used, unless you really know what you're doing |
3463 |
Function exported, but should NOT be used, unless you really know what you're doing |
3465 |
|
3464 |
|
Lines 3467-3473
Function exported, but should NOT be used, unless you really know what you're do
Link Here
|
3467 |
|
3466 |
|
3468 |
sub ModBiblioMarc { |
3467 |
sub ModBiblioMarc { |
3469 |
# pass the MARC::Record to this function, and it will create the records in |
3468 |
# pass the MARC::Record to this function, and it will create the records in |
3470 |
# the marc field |
3469 |
# the marcxml field |
3471 |
my ( $record, $biblionumber, $frameworkcode ) = @_; |
3470 |
my ( $record, $biblionumber, $frameworkcode ) = @_; |
3472 |
if ( !$record ) { |
3471 |
if ( !$record ) { |
3473 |
carp 'ModBiblioMarc passed an undefined record'; |
3472 |
carp 'ModBiblioMarc passed an undefined record'; |
Lines 3514-3521
sub ModBiblioMarc {
Link Here
|
3514 |
$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005; |
3513 |
$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005; |
3515 |
} |
3514 |
} |
3516 |
|
3515 |
|
3517 |
$sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?"); |
3516 |
$sth = $dbh->prepare("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?"); |
3518 |
$sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber ); |
3517 |
$sth->execute( $record->as_xml_record($encoding), $biblionumber ); |
3519 |
$sth->finish; |
3518 |
$sth->finish; |
3520 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3519 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3521 |
return $biblionumber; |
3520 |
return $biblionumber; |
3522 |
- |
|
|