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

(-)a/C4/Biblio.pm (-7 / +5 lines)
Lines 3332-3338 sub _koha_add_biblioitem { Link Here
3332
        size            = ?,
3332
        size            = ?,
3333
        place           = ?,
3333
        place           = ?,
3334
        lccn            = ?,
3334
        lccn            = ?,
3335
        marc            = ?,
3336
        url             = ?,
3335
        url             = ?,
3337
        cn_source       = ?,
3336
        cn_source       = ?,
3338
        cn_class        = ?,
3337
        cn_class        = ?,
Lines 3350-3356 sub _koha_add_biblioitem { Link Here
3350
        $biblioitem->{'volumedate'},       $biblioitem->{'volumedesc'},       $biblioitem->{'collectiontitle'},       $biblioitem->{'collectionissn'},
3349
        $biblioitem->{'volumedate'},       $biblioitem->{'volumedesc'},       $biblioitem->{'collectiontitle'},       $biblioitem->{'collectionissn'},
3351
        $biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'},
3350
        $biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'},
3352
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3351
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3353
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3352
        $biblioitem->{'lccn'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3354
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3353
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3355
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}
3354
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}
3356
    );
3355
    );
Lines 3469-3475 sub _koha_delete_biblioitems { Link Here
3469
3468
3470
  &ModBiblioMarc($newrec,$biblionumber,$frameworkcode);
3469
  &ModBiblioMarc($newrec,$biblionumber,$frameworkcode);
3471
3470
3472
Add MARC data for a biblio to koha 
3471
Add MARC XML data for a biblio to koha
3473
3472
3474
Function exported, but should NOT be used, unless you really know what you're doing
3473
Function exported, but should NOT be used, unless you really know what you're doing
3475
3474
Lines 3477-3483 Function exported, but should NOT be used, unless you really know what you're do Link Here
3477
3476
3478
sub ModBiblioMarc {
3477
sub ModBiblioMarc {
3479
    # pass the MARC::Record to this function, and it will create the records in
3478
    # pass the MARC::Record to this function, and it will create the records in
3480
    # the marc field
3479
    # the marcxml field
3481
    my ( $record, $biblionumber, $frameworkcode ) = @_;
3480
    my ( $record, $biblionumber, $frameworkcode ) = @_;
3482
    if ( !$record ) {
3481
    if ( !$record ) {
3483
        carp 'ModBiblioMarc passed an undefined record';
3482
        carp 'ModBiblioMarc passed an undefined record';
Lines 3524-3531 sub ModBiblioMarc { Link Here
3524
      $f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005;
3523
      $f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005;
3525
    }
3524
    }
3526
3525
3527
    $sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?");
3526
    $sth = $dbh->prepare("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?");
3528
    $sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber );
3527
    $sth->execute( $record->as_xml_record($encoding), $biblionumber );
3529
    $sth->finish;
3528
    $sth->finish;
3530
    ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );
3529
    ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );
3531
    return $biblionumber;
3530
    return $biblionumber;
3532
- 

Return to bug 10455