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

(-)a/Koha/Edifact/Line.pm (-3 / +3 lines)
Lines 747-755 sub pri_price { Link Here
747
    foreach my $s ( @{ $self->{segs} } ) {
747
    foreach my $s ( @{ $self->{segs} } ) {
748
        if ( $s->tag eq 'PRI' && $s->elem( 0, 0 ) eq $price_qualifier ) {
748
        if ( $s->tag eq 'PRI' && $s->elem( 0, 0 ) eq $price_qualifier ) {
749
            return {
749
            return {
750
                price          => $s->elem( 0, 1 ),
750
                price          => $s->elem( 0, 1 ) || undef,
751
                type           => $s->elem( 0, 2 ),
751
                type           => $s->elem( 0, 2 ) || undef,
752
                type_qualifier => $s->elem( 0, 3 ),
752
                type_qualifier => $s->elem( 0, 3 ) || undef,
753
            };
753
            };
754
        }
754
        }
755
    }
755
    }
(-)a/t/EdiInvoice.t (-2 / +1 lines)
Lines 70-76 my $lineprice = $lines->[7]->price_net; Link Here
70
70
71
is( $lineprice, 4.55, 'correct net line price returned' );
71
is( $lineprice, 4.55, 'correct net line price returned' );
72
72
73
my $lineprice = $lines->[7]->price_gross;
73
$lineprice = $lines->[7]->price_gross;
74
74
75
is( $lineprice, 7.99, 'correct gross line price returned' );
75
is( $lineprice, 7.99, 'correct gross line price returned' );
76
76
77
- 

Return to bug 18267