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