Lines 89-97
sub add {
Link Here
|
89 |
my $contacts = delete $vendor->{contacts}; |
89 |
my $contacts = delete $vendor->{contacts}; |
90 |
my $interfaces = delete $vendor->{interfaces}; |
90 |
my $interfaces = delete $vendor->{interfaces}; |
91 |
my $aliases = delete $vendor->{aliases}; |
91 |
my $aliases = delete $vendor->{aliases}; |
92 |
delete $vendor->{subscriptions}; |
|
|
93 |
delete $vendor->{baskets}; |
94 |
delete $vendor->{contracts}; |
95 |
|
92 |
|
96 |
my $vendor_to_store = Koha::Acquisition::Bookseller->new_from_api( $c->req->json ); |
93 |
my $vendor_to_store = Koha::Acquisition::Bookseller->new_from_api( $c->req->json ); |
97 |
|
94 |
|
Lines 132-140
sub update {
Link Here
|
132 |
my $contacts = delete $vendor_update->{contacts}; |
129 |
my $contacts = delete $vendor_update->{contacts}; |
133 |
my $interfaces = delete $vendor_update->{interfaces}; |
130 |
my $interfaces = delete $vendor_update->{interfaces}; |
134 |
my $aliases = delete $vendor_update->{aliases}; |
131 |
my $aliases = delete $vendor_update->{aliases}; |
135 |
my $subscriptions = delete $vendor_update->{subscriptions}; |
|
|
136 |
my $baskets = delete $vendor_update->{baskets}; |
137 |
my $contracts = delete $vendor_update->{contracts}; |
138 |
|
132 |
|
139 |
$vendor->set_from_api($vendor_update); |
133 |
$vendor->set_from_api($vendor_update); |
140 |
$vendor->store(); |
134 |
$vendor->store(); |