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

(-)a/C4/Biblio.pm (-3 / +3 lines)
Lines 3391-3397 Internal function to add a biblioitem Link Here
3391
sub _koha_add_biblioitem {
3391
sub _koha_add_biblioitem {
3392
    my ( $dbh, $biblioitem ) = @_;
3392
    my ( $dbh, $biblioitem ) = @_;
3393
    my $error;
3393
    my $error;
3394
3394
    my $marcxml = " ";
3395
    my ($cn_sort) = GetClassSort( $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );
3395
    my ($cn_sort) = GetClassSort( $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );
3396
    my $query = "INSERT INTO biblioitems SET
3396
    my $query = "INSERT INTO biblioitems SET
3397
        biblionumber    = ?,
3397
        biblionumber    = ?,
Lines 3425-3430 sub _koha_add_biblioitem { Link Here
3425
        totalissues     = ?,
3425
        totalissues     = ?,
3426
        ean             = ?,
3426
        ean             = ?,
3427
        agerestriction  = ?
3427
        agerestriction  = ?
3428
        marcxml         = ?
3428
        ";
3429
        ";
3429
    my $sth = $dbh->prepare($query);
3430
    my $sth = $dbh->prepare($query);
3430
    $sth->execute(
3431
    $sth->execute(
Lines 3435-3441 sub _koha_add_biblioitem { Link Here
3435
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3436
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3436
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3437
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3437
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3438
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3438
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}
3439
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}, $marcxml
3439
    );
3440
    );
3440
    my $bibitemnum = $dbh->{'mysql_insertid'};
3441
    my $bibitemnum = $dbh->{'mysql_insertid'};
3441
3442
3442
- 

Return to bug 5366