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

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

Return to bug 27708