Lines 3449-3455
sub _koha_delete_biblioitems {
Link Here
|
3449 |
|
3449 |
|
3450 |
&ModBiblioMarc($newrec,$biblionumber,$frameworkcode); |
3450 |
&ModBiblioMarc($newrec,$biblionumber,$frameworkcode); |
3451 |
|
3451 |
|
3452 |
Add MARC data for a biblio to koha |
3452 |
Add MARC XML data for a biblio to koha |
3453 |
|
3453 |
|
3454 |
Function exported, but should NOT be used, unless you really know what you're doing |
3454 |
Function exported, but should NOT be used, unless you really know what you're doing |
3455 |
|
3455 |
|
Lines 3457-3463
Function exported, but should NOT be used, unless you really know what you're do
Link Here
|
3457 |
|
3457 |
|
3458 |
sub ModBiblioMarc { |
3458 |
sub ModBiblioMarc { |
3459 |
# pass the MARC::Record to this function, and it will create the records in |
3459 |
# pass the MARC::Record to this function, and it will create the records in |
3460 |
# the marc field |
3460 |
# the marcxml field |
3461 |
my ( $record, $biblionumber, $frameworkcode ) = @_; |
3461 |
my ( $record, $biblionumber, $frameworkcode ) = @_; |
3462 |
if ( !$record ) { |
3462 |
if ( !$record ) { |
3463 |
carp 'ModBiblioMarc passed an undefined record'; |
3463 |
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; |
3504 |
$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005; |
3505 |
} |
3505 |
} |
3506 |
|
3506 |
|
3507 |
$sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?"); |
3507 |
$sth = $dbh->prepare("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?"); |
3508 |
$sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber ); |
3508 |
$sth->execute( $record->as_xml_record($encoding), $biblionumber ); |
3509 |
$sth->finish; |
3509 |
$sth->finish; |
3510 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3510 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); |
3511 |
return $biblionumber; |
3511 |
return $biblionumber; |
3512 |
- |
|
|