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

(-)a/C4/Biblio.pm (-7 / +5 lines)
Lines 3312-3318 sub _koha_add_biblioitem { Link Here
3312
        size            = ?,
3312
        size            = ?,
3313
        place           = ?,
3313
        place           = ?,
3314
        lccn            = ?,
3314
        lccn            = ?,
3315
        marc            = ?,
3316
        url             = ?,
3315
        url             = ?,
3317
        cn_source       = ?,
3316
        cn_source       = ?,
3318
        cn_class        = ?,
3317
        cn_class        = ?,
Lines 3330-3336 sub _koha_add_biblioitem { Link Here
3330
        $biblioitem->{'volumedate'},       $biblioitem->{'volumedesc'},       $biblioitem->{'collectiontitle'},       $biblioitem->{'collectionissn'},
3329
        $biblioitem->{'volumedate'},       $biblioitem->{'volumedesc'},       $biblioitem->{'collectiontitle'},       $biblioitem->{'collectionissn'},
3331
        $biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'},
3330
        $biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'},
3332
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3331
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3333
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3332
        $biblioitem->{'lccn'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3334
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3333
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3335
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}
3334
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}
3336
    );
3335
    );
Lines 3449-3455 sub _koha_delete_biblioitems { Link Here
3449
3448
3450
  &ModBiblioMarc($newrec,$biblionumber,$frameworkcode);
3449
  &ModBiblioMarc($newrec,$biblionumber,$frameworkcode);
3451
3450
3452
Add MARC data for a biblio to koha 
3451
Add MARC XML data for a biblio to koha
3453
3452
3454
Function exported, but should NOT be used, unless you really know what you're doing
3453
Function exported, but should NOT be used, unless you really know what you're doing
3455
3454
Lines 3457-3463 Function exported, but should NOT be used, unless you really know what you're do Link Here
3457
3456
3458
sub ModBiblioMarc {
3457
sub ModBiblioMarc {
3459
    # pass the MARC::Record to this function, and it will create the records in
3458
    # pass the MARC::Record to this function, and it will create the records in
3460
    # the marc field
3459
    # the marcxml field
3461
    my ( $record, $biblionumber, $frameworkcode ) = @_;
3460
    my ( $record, $biblionumber, $frameworkcode ) = @_;
3462
    if ( !$record ) {
3461
    if ( !$record ) {
3463
        carp 'ModBiblioMarc passed an undefined record';
3462
        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;
3503
      $f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005;
3505
    }
3504
    }
3506
3505
3507
    $sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?");
3506
    $sth = $dbh->prepare("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?");
3508
    $sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber );
3507
    $sth->execute( $record->as_xml_record($encoding), $biblionumber );
3509
    $sth->finish;
3508
    $sth->finish;
3510
    ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );
3509
    ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );
3511
    return $biblionumber;
3510
    return $biblionumber;
3512
- 

Return to bug 10455