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 |
- |
|
|