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

(-)a/Koha/REST/V1/Acquisitions/Vendors.pm (-27 / +11 lines)
Lines 192-202 the attribute names the exposed REST api spec. Link Here
192
=cut
192
=cut
193
193
194
sub _to_api {
194
sub _to_api {
195
196
    my $vendor = shift;
195
    my $vendor = shift;
197
196
198
    #my $vendor = $vendor_param->TO_JSON;
199
200
    # Delete unused fields
197
    # Delete unused fields
201
    delete $vendor->{booksellerfax};
198
    delete $vendor->{booksellerfax};
202
    delete $vendor->{bookselleremail};
199
    delete $vendor->{bookselleremail};
Lines 205-220 sub _to_api { Link Here
205
    delete $vendor->{othersupplier};
202
    delete $vendor->{othersupplier};
206
203
207
    # Rename changed fields
204
    # Rename changed fields
208
    $vendor->{list_currency} = $vendor->{listprice};
205
    $vendor->{list_currency}        = delete $vendor->{listprice};
209
    delete $vendor->{listprice};
206
    $vendor->{invoice_currency}     = delete $vendor->{invoiceprice};
210
    $vendor->{invoice_currency} = $vendor->{invoiceprice};
207
    $vendor->{gst}                  = delete $vendor->{gstreg};
211
    delete $vendor->{invoiceprice};
208
    $vendor->{list_includes_gst}    = delete $vendor->{listincgst};
212
    $vendor->{gst} = $vendor->{gstreg};
209
    $vendor->{invoice_includes_gst} = delete $vendor->{invoiceincgst};
213
    delete $vendor->{gstreg};
214
    $vendor->{list_includes_gst} = $vendor->{listincgst};
215
    delete $vendor->{listincgst};
216
    $vendor->{invoice_includes_gst} = $vendor->{invoiceincgst};
217
    delete $vendor->{invoiceincgst};
218
210
219
    return $vendor;
211
    return $vendor;
220
}
212
}
Lines 227-247 attribute names. Link Here
227
=cut
219
=cut
228
220
229
sub _to_model {
221
sub _to_model {
230
    my $vendor_param = shift;
222
    my $vendor = shift;
231
232
    my $vendor = $vendor_param;
233
223
234
    # Rename back
224
    # Rename back
235
    $vendor->{listprice} = $vendor->{list_currency};
225
    $vendor->{listprice}     = delete $vendor->{list_currency};
236
    delete $vendor->{list_currency};
226
    $vendor->{invoiceprice}  = delete $vendor->{invoice_currency};
237
    $vendor->{invoiceprice} = $vendor->{invoice_currency};
227
    $vendor->{gstreg}        = delete $vendor->{gst};
238
    delete $vendor->{invoice_currency};
228
    $vendor->{listincgst}    = delete $vendor->{list_includes_gst};
239
    $vendor->{gstreg} = $vendor->{gst};
229
    $vendor->{invoiceincgst} = delete $vendor->{invoice_includes_gst};
240
    delete $vendor->{gst};
241
    $vendor->{listincgst} = $vendor->{list_includes_gst};
242
    delete $vendor->{list_includes_gst};
243
    $vendor->{invoiceincgst} = $vendor->{invoice_includes_gst};
244
    delete $vendor->{invoice_includes_gst};
245
230
246
    return $vendor;
231
    return $vendor;
247
}
232
}
248
- 

Return to bug 18120