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

(-)a/C4/Biblio.pm (-4 / +4 lines)
Lines 3028-3034 Internal function to add a biblioitem Link Here
3028
sub _koha_add_biblioitem {
3028
sub _koha_add_biblioitem {
3029
    my ( $dbh, $biblioitem ) = @_;
3029
    my ( $dbh, $biblioitem ) = @_;
3030
    my $error;
3030
    my $error;
3031
3031
    my $marcxml = " ";
3032
    my ($cn_sort) = GetClassSort( $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );
3032
    my ($cn_sort) = GetClassSort( $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );
3033
    my $query = "INSERT INTO biblioitems SET
3033
    my $query = "INSERT INTO biblioitems SET
3034
        biblionumber    = ?,
3034
        biblionumber    = ?,
Lines 3059-3065 sub _koha_add_biblioitem { Link Here
3059
        cn_item         = ?,
3059
        cn_item         = ?,
3060
        cn_suffix       = ?,
3060
        cn_suffix       = ?,
3061
        cn_sort         = ?,
3061
        cn_sort         = ?,
3062
        totalissues     = ?
3062
        totalissues     = ?,
3063
        marcxml         = ?
3063
        ";
3064
        ";
3064
    my $sth = $dbh->prepare($query);
3065
    my $sth = $dbh->prepare($query);
3065
    $sth->execute(
3066
    $sth->execute(
Lines 3070-3076 sub _koha_add_biblioitem { Link Here
3070
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3071
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3071
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3072
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3072
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3073
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3073
        $biblioitem->{'totalissues'}
3074
        $biblioitem->{'totalissues'},      $marcxml
3074
    );
3075
    );
3075
    my $bibitemnum = $dbh->{'mysql_insertid'};
3076
    my $bibitemnum = $dbh->{'mysql_insertid'};
3076
3077
3077
- 

Return to bug 5366