|
Lines 38-43
Returns the I<Koha::Acquisition::Bookseller> associated with this edifact file
Link Here
|
| 38 |
sub vendor { |
38 |
sub vendor { |
| 39 |
my ($self) = @_; |
39 |
my ($self) = @_; |
| 40 |
my $vendor_rs = $self->_result->vendor; |
40 |
my $vendor_rs = $self->_result->vendor; |
|
|
41 |
return unless $vendor_rs; |
| 41 |
return Koha::Acquisition::Bookseller->_new_from_dbic( $vendor_rs ); |
42 |
return Koha::Acquisition::Bookseller->_new_from_dbic( $vendor_rs ); |
| 42 |
} |
43 |
} |
| 43 |
|
44 |
|
|
Lines 52-57
Returns the I<Koha::Acquisition::Basket> associated with this edifact file.
Link Here
|
| 52 |
sub basket { |
53 |
sub basket { |
| 53 |
my ( $self ) = @_; |
54 |
my ( $self ) = @_; |
| 54 |
my $basket_rs = $self->_result->basketno; |
55 |
my $basket_rs = $self->_result->basketno; |
|
|
56 |
return unless $basket_rs; |
| 55 |
return Koha::Acquisition::Basket->_new_from_dbic( $basket_rs ); |
57 |
return Koha::Acquisition::Basket->_new_from_dbic( $basket_rs ); |
| 56 |
} |
58 |
} |
| 57 |
|
59 |
|
| 58 |
- |
|
|