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

(-)a/C4/Biblio.pm (-7 / +5 lines)
Lines 3322-3328 sub _koha_add_biblioitem { Link Here
3322
        size            = ?,
3322
        size            = ?,
3323
        place           = ?,
3323
        place           = ?,
3324
        lccn            = ?,
3324
        lccn            = ?,
3325
        marc            = ?,
3326
        url             = ?,
3325
        url             = ?,
3327
        cn_source       = ?,
3326
        cn_source       = ?,
3328
        cn_class        = ?,
3327
        cn_class        = ?,
Lines 3340-3346 sub _koha_add_biblioitem { Link Here
3340
        $biblioitem->{'volumedate'},       $biblioitem->{'volumedesc'},       $biblioitem->{'collectiontitle'},       $biblioitem->{'collectionissn'},
3339
        $biblioitem->{'volumedate'},       $biblioitem->{'volumedesc'},       $biblioitem->{'collectiontitle'},       $biblioitem->{'collectionissn'},
3341
        $biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'},
3340
        $biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'},
3342
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3341
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3343
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3342
        $biblioitem->{'lccn'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3344
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3343
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3345
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}
3344
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}
3346
    );
3345
    );
Lines 3459-3465 sub _koha_delete_biblioitems { Link Here
3459
3458
3460
  &ModBiblioMarc($newrec,$biblionumber,$frameworkcode);
3459
  &ModBiblioMarc($newrec,$biblionumber,$frameworkcode);
3461
3460
3462
Add MARC data for a biblio to koha 
3461
Add MARC XML data for a biblio to koha
3463
3462
3464
Function exported, but should NOT be used, unless you really know what you're doing
3463
Function exported, but should NOT be used, unless you really know what you're doing
3465
3464
Lines 3467-3473 Function exported, but should NOT be used, unless you really know what you're do Link Here
3467
3466
3468
sub ModBiblioMarc {
3467
sub ModBiblioMarc {
3469
    # pass the MARC::Record to this function, and it will create the records in
3468
    # pass the MARC::Record to this function, and it will create the records in
3470
    # the marc field
3469
    # the marcxml field
3471
    my ( $record, $biblionumber, $frameworkcode ) = @_;
3470
    my ( $record, $biblionumber, $frameworkcode ) = @_;
3472
    if ( !$record ) {
3471
    if ( !$record ) {
3473
        carp 'ModBiblioMarc passed an undefined record';
3472
        carp 'ModBiblioMarc passed an undefined record';
Lines 3514-3521 sub ModBiblioMarc { Link Here
3514
      $f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005;
3513
      $f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005;
3515
    }
3514
    }
3516
3515
3517
    $sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?");
3516
    $sth = $dbh->prepare("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?");
3518
    $sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber );
3517
    $sth->execute( $record->as_xml_record($encoding), $biblionumber );
3519
    $sth->finish;
3518
    $sth->finish;
3520
    ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );
3519
    ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );
3521
    return $biblionumber;
3520
    return $biblionumber;
3522
- 

Return to bug 10455