|
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(); |