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

(-)a/Koha/Acquisition/Basket.pm (+15 lines)
Lines 22-27 use Modern::Perl; Link Here
22
use Koha::Database;
22
use Koha::Database;
23
use Koha::DateUtils qw( dt_from_string );
23
use Koha::DateUtils qw( dt_from_string );
24
use Koha::Acquisition::BasketGroups;
24
use Koha::Acquisition::BasketGroups;
25
use Koha::Acquisition::Booksellers;
25
use Koha::Acquisition::Orders;
26
use Koha::Acquisition::Orders;
26
use Koha::Exceptions::Acquisition::Basket;
27
use Koha::Exceptions::Acquisition::Basket;
27
use Koha::Patrons;
28
use Koha::Patrons;
Lines 51-56 sub bookseller { Link Here
51
    return Koha::Acquisition::Bookseller->_new_from_dbic($bookseller_rs);
52
    return Koha::Acquisition::Bookseller->_new_from_dbic($bookseller_rs);
52
}
53
}
53
54
55
=head3 vendor
56
57
    my $vendor = $basket->vendor;
58
59
Returns the related I<Koha::Acquisition::Bookseller> object.
60
61
=cut
62
63
sub vendor {
64
    my ($self) = @_;
65
    my $vendor_rs = $self->_result->vendor;
66
    return Koha::Acquisition::Bookseller->_new_from_dbic($vendor_rs);
67
}
68
54
=head3 creator
69
=head3 creator
55
70
56
    my $creator = $basket->creator;
71
    my $creator = $basket->creator;
(-)a/Koha/Schema/Result/Aqbasket.pm (-1 / +7 lines)
Lines 379-384 __PACKAGE__->has_many( Link Here
379
  { cascade_copy => 0, cascade_delete => 0 },
379
  { cascade_copy => 0, cascade_delete => 0 },
380
);
380
);
381
381
382
__PACKAGE__->belongs_to(
383
  "vendor",
384
  "Koha::Schema::Result::Aqbookseller",
385
  { id => "booksellerid" },
386
  { is_deferrable => 1, on_delete => "RESTRICT", on_update => "CASCADE" },
387
);
388
382
=head2 koha_object_class
389
=head2 koha_object_class
383
390
384
Missing POD for koha_object_class.
391
Missing POD for koha_object_class.
385
- 

Return to bug 39832