my @email;

        my @email;

        my @cc;

        my @cc;

        push @email, $datacontact->{email}           if ( $datacontact && $datacontact->{email} );

        push @email, $datacontact->{email}           if ( $datacontact && $datacontact->{email} );

        unless (@email) {

        unless (@email) {

            warn "Bookseller $dataorders->[0]->{booksellerid} without emails";

            warn "Bookseller $dataorders->[0]->{booksellerid} without emails";

sub to_api_mapping {

sub to_api_mapping {

    return {

    return {

        currency        => undef,

        currency        => undef,

        listprice       => 'list_currency',

        listprice       => 'list_currency',

        invoiceprice    => 'invoice_currency',

        invoiceprice    => 'invoice_currency',

    my ($struct) = @_;

    my ($struct) = @_;

    for my $field (

    for my $field (

        'currency',        'invoiceprice',

        'currency',        'invoiceprice',

        'listprice',       'contacts'

        'listprice',       'contacts'

      )

      )