@@ -, +, @@ --- C4/Biblio.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -3449,7 +3449,7 @@ sub _koha_delete_biblioitems { &ModBiblioMarc($newrec,$biblionumber,$frameworkcode); -Add MARC data for a biblio to koha +Add MARC XML data for a biblio to koha Function exported, but should NOT be used, unless you really know what you're doing @@ -3457,7 +3457,7 @@ Function exported, but should NOT be used, unless you really know what you're do sub ModBiblioMarc { # pass the MARC::Record to this function, and it will create the records in - # the marc field + # the marcxml field my ( $record, $biblionumber, $frameworkcode ) = @_; if ( !$record ) { carp 'ModBiblioMarc passed an undefined record'; @@ -3504,8 +3504,8 @@ sub ModBiblioMarc { $f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005; } - $sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?"); - $sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber ); + $sth = $dbh->prepare("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?"); + $sth->execute( $record->as_xml_record($encoding), $biblionumber ); $sth->finish; ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record ); return $biblionumber; --