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