sub to_api_mapping {
return {
currency => undef,
listprice => 'list_currency',
invoiceprice => 'invoice_currency',
gstreg => 'gst',
sub field_filter {
my ($struct) = @_;
for my $field (
for my $field ( qw(invoiceprice listprice contacts) )
'currency', 'invoiceprice',
'listprice', 'contacts'
)
{
if ( grep { /^$field$/ } keys %$struct ) {
-