View | Details | Raw Unified | Return to bug 10455
Collapse All | Expand All

(-)a/C4/Biblio.pm (-5 / +4 lines)
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
- 

Return to bug 10455