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

(-)a/Koha/Edifact/Order.pm (-9 / +13 lines)
Lines 388-405 sub order_line { Link Here
388
        foreach my $item (@linked_itemnumbers) {
388
        foreach my $item (@linked_itemnumbers) {
389
            my $i_obj = $schema->resultset('Item')->find( $item->itemnumber );
389
            my $i_obj = $schema->resultset('Item')->find( $item->itemnumber );
390
            if ( defined $i_obj ) {
390
            if ( defined $i_obj ) {
391
                push @items, $i_obj;
391
                push @items, {
392
                    branchcode     => $item->{branchcode},
393
                    itype          => $item->{itype},
394
                    location       => $item->{location},
395
                    itemcallnumber => $item->{itemcallnumber},
396
                };
392
            }
397
            }
393
        }
398
        }
394
    }
399
    }
395
    else {
400
    else {
396
        my $item_hash = {
401
        my $item_hash = {
397
            itemtype  => $biblioitem->itemtype,
402
            itemtype       => $biblioitem->itemtype,
398
            shelfmark => $biblioitem->cn_class,
403
            itemcallnumber => $biblioitem->cn_class,
399
        };
404
        };
400
        my $branch = $orderline->basketno->deliveryplace;
405
        my $branch = $orderline->basketno->deliveryplace;
401
        if ($branch) {
406
        if ($branch) {
402
            $item_hash->{branch} = $branch;
407
            $item_hash->{branchcode} = $branch;
403
        }
408
        }
404
        for ( 1 .. $orderline->quantity ) {
409
        for ( 1 .. $orderline->quantity ) {
405
            push @items, $item_hash;
410
            push @items, $item_hash;
Lines 412-421 sub order_line { Link Here
412
    for my $item (@items) {
417
    for my $item (@items) {
413
        push @{$item_fields},
418
        push @{$item_fields},
414
          {
419
          {
415
            branchcode     => $item->homebranch->branchcode,
420
            branchcode     => $item->{branchcode},
416
            itype          => $item->itype,
421
            itype          => $item->{itype},
417
            location       => $item->location,
422
            location       => $item->{location},
418
            itemcallnumber => $item->itemcallnumber,
423
            itemcallnumber => $item->{itemcallnumber},
419
          };
424
          };
420
    }
425
    }
421
    $self->add_seg(
426
    $self->add_seg(
422
- 

Return to bug 27708