SL/ShopConnector/WooCommerce.pm

   1 package SL::ShopConnector::WooCommerce;
   2
   3 use strict;
   4
   5 use parent qw(SL::ShopConnector::Base);
   6
   7 use SL::JSON;
   8 use LWP::UserAgent;
   9 use LWP::Authen::Digest;
  10 use SL::DB::ShopOrder;
  11 use SL::DB::ShopOrderItem;
  12 use SL::DB::History;
  13 use SL::DB::File;
  14 use Data::Dumper;
  15 use SL::Helper::Flash;
  16 use Encode qw(encode_utf8);
  17
  18 sub get_one_order {
  19   my ($self, $order_id) = @_;
  20
  21   my $dbh       = SL::DB::client;
  22   my $number_of_orders = 0;
  23   my @errors;
  24
  25   my $answer = $self->send_request(
  26     "orders/" . $order_id,
  27     undef,
  28     "get"
  29   );
  30   my %fetched_orders;
  31   if($answer->{success}) {
  32     my $shoporder = $answer->{data};
  33
  34     $dbh->with_transaction( sub{
  35         #update status on server
  36         $shoporder->{status} = "processing";
  37         my $answer = $self->set_orderstatus($shoporder->{id}, "completed");
  38         unless($answer){
  39           push @errors,($::locale->text('Saving failed. Error message from the server: #1', $answer->message));
  40           return 0;
  41         }
  42
  43         unless ($self->import_data_to_shop_order($shoporder)) { return 0;}
  44
  45         1;
  46       })or do {
  47       push @errors,($::locale->text('Saving failed. Error message from the database: #1', $dbh->error));
  48     };
  49
  50     if(@errors){
  51       flash_later('error', $::locale->text('Errors: #1', @errors));
  52     } else {
  53       $number_of_orders++;
  54     }
  55     %fetched_orders = (shop_description => $self->config->description, number_of_orders => $number_of_orders);
  56   } else {
  57     my %error_msg  = (
  58       shop_id          => $self->config->id,
  59       shop_description => $self->config->description,
  60       message          => $answer->{message},
  61       error            => 1,
  62     );
  63     %fetched_orders = %error_msg;
  64   }
  65   return \%fetched_orders;
  66 }
  67
  68 sub get_new_orders {
  69   my ($self) = @_;
  70
  71   my $dbh       = SL::DB::client;
  72   my $otf              = $self->config->orders_to_fetch || 10;
  73   my $number_of_orders = 0;
  74   my @errors;
  75
  76   my $answer = $self->send_request(
  77     "orders",
  78     undef,
  79     "get",
  80     "&per_page=$otf&status=processing&after=2020-12-31T23:59:59&order=asc"
  81   );
  82   my %fetched_orders;
  83   if($answer->{success}) {
  84     my $orders = $answer->{data};
  85     foreach my $shoporder(@{$orders}){
  86       $dbh->with_transaction( sub{
  87           #update status on server
  88           $shoporder->{status} = "completed";
  89           my $anwser = $self->set_orderstatus($shoporder->{id}, "completed");
  90           unless($answer){
  91             push @errors,($::locale->text('Saving failed. Error message from the server: #1', $answer->message));
  92             return 0;
  93           }
  94
  95           unless ($self->import_data_to_shop_order($shoporder)) { return 0;}
  96
  97           1;
  98       })or do {
  99         push @errors,($::locale->text('Saving failed. Error message from the database: #1', $dbh->error));
 100       };
 101
 102       if(@errors){
 103         flash_later('error', $::locale->text('Errors: #1', @errors));
 104       } else {
 105         $number_of_orders++;
 106       }
 107     }
 108     %fetched_orders = (shop_description => $self->config->description, number_of_orders => $number_of_orders);
 109
 110   } else {
 111     my %error_msg  = (
 112       shop_id          => $self->config->id,
 113       shop_description => $self->config->description,
 114       message          => $answer->{message},
 115       error            => 1,
 116     );
 117     %fetched_orders = %error_msg;
 118   }
 119
 120   return \%fetched_orders;
 121 }
 122
 123 sub import_data_to_shop_order {
 124   my ( $self, $import ) = @_;
 125   my $shop_order = $self->map_data_to_shoporder($import);
 126
 127   $shop_order->save;
 128   my $id = $shop_order->id;
 129
 130   my @positions = sort { Sort::Naturally::ncmp($a->{"sku"}, $b->{"sku"}) } @{ $import->{line_items} };
 131   my $position = 1;
 132
 133   my $active_price_source = $self->config->price_source;
 134   my $tax_included = $self->config->pricetype eq 'brutto' ? 1 : 0;
 135   #Mapping Positions
 136   foreach my $pos(@positions) {
 137     my $tax_rate = $pos->{tax_class} eq "reduced-rate" ? 7 : 19;
 138     my $tax_factor = $tax_rate/100+1;
 139     my $price = $pos->{price};
 140     if ( $tax_included ) {
 141       $price = $price * $tax_factor;
 142       $price = $::form->round_amount($price,2);
 143     } else {
 144       $price = $::form->round_amount($price,2);
 145     }
 146     my %pos_columns = ( description          => $pos->{name},
 147                         partnumber           => $pos->{sku}, # sku has to be a valid value in WooCommerce
 148                         price                => $price,
 149                         quantity             => $pos->{quantity},
 150                         position             => $position,
 151                         tax_rate             => $tax_rate,
 152                         shop_trans_id        => $pos->{product_id},
 153                         shop_order_id        => $id,
 154                         active_price_source  => $active_price_source,
 155                       );
 156     #$main::lxdebug->dump(0, "TST: WooCommerce save pos", $pos);
 157     #$main::lxdebug->dump(0, "TST: WooCommerce save pos_columns", \%pos_columns);
 158     my $pos_insert = SL::DB::ShopOrderItem->new(%pos_columns);
 159     $pos_insert->save;
 160     $position++;
 161   }
 162   $shop_order->positions($position-1);
 163
 164   if ( $self->config->shipping_costs_parts_id ) {
 165     my $shipping_part = SL::DB::Part->find_by( id => $self->config->shipping_costs_parts_id);
 166     my %shipping_pos = (
 167       description    => $import->{data}->{dispatch}->{name},
 168       partnumber     => $shipping_part->partnumber,
 169       price          => $import->{data}->{invoiceShipping},
 170       quantity       => 1,
 171       position       => $position,
 172       shop_trans_id  => 0,
 173       shop_order_id  => $id,
 174     );
 175     my $shipping_pos_insert = SL::DB::ShopOrderItem->new(%shipping_pos);
 176     $shipping_pos_insert->save;
 177   }
 178
 179   my $customer = $shop_order->get_customer;
 180
 181   if(ref($customer)){
 182     $shop_order->kivi_customer_id($customer->id);
 183   }
 184   $shop_order->save;
 185 }
 186
 187
 188 sub map_data_to_shoporder {
 189   my ($self, $import) = @_;
 190
 191   my $parser = DateTime::Format::Strptime->new( pattern   => '%Y-%m-%dT%H:%M:%S',
 192                                                   locale    => 'de_DE',
 193                                                   time_zone => 'local'
 194                                                 );
 195
 196   my $shop_id      = $self->config->id;
 197   my $tax_included = $self->config->pricetype;
 198
 199   # Mapping to table shoporders. See https://woocommerce.github.io/woocommerce-rest-api-docs/?shell#order-properties
 200     my $d_street;
 201     if ( $import->{shipping}->{address_1} ne "" ) {
 202       $d_street = $import->{shipping}->{address_1} . ($import->{shipping}->{address_2} ? " " . $import->{shipping}->{address_2} : "");
 203     } else {
 204       $d_street = $import->{billing}->{address_1} . ($import->{billing}->{address_2} ? " " . $import->{billing}->{address_2} : "");
 205     }
 206   my %columns = (
 207 #billing Shop can have different billing addresses, and may have 1 customer_address
 208     billing_firstname       => $import->{billing}->{first_name},
 209     billing_lastname        => $import->{billing}->{last_name},
 210     #address_1 address_2
 211     billing_street         => $import->{billing}->{address_1} . ($import->{billing}->{address_2} ? " " . $import->{billing}->{address_2} : ""),
 212     # ???
 213     billing_city            => $import->{billing}->{city},
 214     #state
 215     # ???
 216     billing_zipcode         => $import->{billing}->{postcode},
 217     billing_country         => $import->{billing}->{country},
 218     billing_email           => $import->{billing}->{email},
 219     billing_phone           => $import->{billing}->{phone},
 220
 221     #billing_greeting        => "",
 222     #billing_fax             => "",
 223     #billing_vat             => "",
 224     billing_company         => $import->{billing}->{company},
 225     #billing_department      => "",
 226
 227 #customer
 228     #customer_id
 229     shop_customer_id        => $import->{customer_id},
 230     shop_customer_number    => $import->{customer_id},
 231     #customer_ip_address
 232     remote_ip               => $import->{customer_ip_address},
 233     #customer_user_agent
 234     #customer_note
 235     shop_customer_comment   => $import->{customer_note},
 236
 237     #customer_city           => "",
 238     #customer_company        => "",
 239     #customer_country        => "",
 240     #customer_department     => "",
 241     #customer_email          => "",
 242     #customer_fax            => "",
 243     #customer_firstname      => "",
 244     #customer_greeting       => "",
 245     #customer_lastname       => "",
 246     #customer_phone          => "",
 247     #customer_street         => "",
 248     #customer_vat            => "",
 249
 250 #shipping
 251     delivery_firstname      => $import->{shipping}->{first_name} || $import->{billing}->{first_name},
 252     delivery_lastname       => $import->{shipping}->{last_name} || $import->{billing}->{last_name},
 253     delivery_company        => $import->{shipping}->{company} || $import->{billing}->{company},
 254     #address_1 address_2
 255     delivery_street         => $d_street,
 256     delivery_city           => $import->{shipping}->{city} || $import->{billing}->{city},
 257     #state ???
 258     delivery_zipcode        => $import->{shipping}->{postcode} || $import->{billing}->{postcode},
 259     delivery_country        => $import->{shipping}->{country} || $import->{billing}->{country},
 260     #delivery_department     => "",
 261     #delivery_email          => "",
 262     #delivery_fax            => "",
 263     #delivery_phone          => "",
 264     #delivery_vat            => "",
 265
 266 #other
 267     #id
 268     #parent_id
 269     #number
 270     shop_ordernumber        => $import->{number},
 271     #order_key
 272     #created_via
 273     #version
 274     #status
 275     #currency
 276     #date_created
 277     order_date              => $parser->parse_datetime($import->{date_created}),
 278     #date_created_gmt
 279     #date_modified
 280     #date_modified_gmt
 281     #discount_total
 282     #discount_tax
 283     #shipping_total
 284     shipping_costs          => $import->{shipping_total},
 285     #shipping_tax
 286     shipping_costs_net      => $import->{shipping_total},
 287     #cart_tax
 288     #total
 289     amount                  => $import->{total},
 290     #total_tax
 291     netamount               => $import->{total} - $import->{total_tax},
 292     #prices_include_tax
 293     tax_included            => $tax_included,
 294     #payment_method
 295     # ??? payment_id              => $import->{payment_method},
 296     #payment_method_title
 297     payment_description     => $import->{payment}->{payment_method_title},
 298     #transaction_id
 299     shop_trans_id           => $import->{id},
 300     #date_paid
 301     #date_paid_gmt
 302     #date_completed
 303     #date_completed_gmt
 304
 305     host                    => $import->{_links}->{self}[0]->{href},
 306
 307     #sepa_account_holder     => "",
 308     #sepa_bic                => "",
 309     #sepa_iban               => "",
 310
 311     #shop_c_billing_id       => "",
 312     #shop_c_billing_number   => "",
 313     shop_c_delivery_id      => $import->{shipping_lines}[0]->{id}, # ???
 314
 315 # not in Shop
 316     shop_id                 => $shop_id,
 317   );
 318
 319   my $shop_order = SL::DB::ShopOrder->new(%columns);
 320   return $shop_order;
 321 }
 322
 323 #TODO CVARS, tax and images
 324 sub update_part {
 325   my ($self, $shop_part, $todo) = @_;
 326
 327   #shop_part is passed as a param
 328   die unless ref($shop_part) eq 'SL::DB::ShopPart';
 329   my $part = SL::DB::Part->new(id => $shop_part->part_id)->load;
 330
 331   # CVARS to map
 332   #my $cvars = {
 333   #  map {
 334   #    ($_->config->name => {
 335   #      value => $_->value_as_text,
 336   #      is_valid => $_->is_valid
 337   #    })
 338   #  }
 339   #  @{ $part->cvars_by_config }
 340   #};
 341
 342   my @categories = ();
 343   if ($shop_part->shop_category) {
 344     foreach my $row_cat ( @{ $shop_part->shop_category } ) {
 345       my $temp = { ( id => @{$row_cat}[0], ) };
 346       push ( @categories, $temp );
 347     }
 348   }
 349
 350   #my @upload_img = $shop_part->get_images;
 351   my $partnumber = $::form->escape($part->partnumber);#don't accept / in partnumber
 352   my $stock_status = ($part->onhand ? "instock" : "outofstock");
 353   my $status = ($shop_part->active ? "publish" : "private");
 354   my $tax_n_price = $shop_part->get_tax_and_price;
 355   my $price = $tax_n_price->{price};
 356   #my $taxrate = $tax_n_price->{tax};
 357   #my $tax_class = ($taxrate >= 16 ? "standard" : "reduzierter-preis");
 358
 359   my %shop_data;
 360
 361   if($todo eq "price"){
 362     %shop_data = (
 363       regular_price => $price,
 364     );
 365   }elsif($todo eq "stock"){
 366     %shop_data = (
 367       stock_status => $stock_status,
 368     );
 369   }elsif($todo eq "price_stock"){
 370     %shop_data =  (
 371       stock_status => $stock_status,
 372       regular_price => $price,
 373     );
 374   }elsif($todo eq "active"){
 375     %shop_data =  (
 376       status => $status,
 377     );
 378   }elsif($todo eq "all"){
 379   # mapping  still missing attributes,metatags
 380     %shop_data =  (
 381       sku => $partnumber,
 382       name => $part->description,
 383       stock_status => $stock_status,
 384       regular_price => $price,
 385       status => $status,
 386       description=> $shop_part->shop_description,
 387       short_description=> $shop_part->shop_description,
 388       categories => [ @categories ],
 389       #tax_class => $tax_class,
 390     );
 391   }
 392
 393   my $dataString = SL::JSON::to_json(\%shop_data);
 394   $dataString    = encode_utf8($dataString);
 395
 396   # LWP->post = create || LWP->put = update
 397   my $answer = $self->send_request("products/", undef , "get" , "&sku=$partnumber");
 398
 399   if($answer->{success} && scalar @{$answer->{data}}){
 400     #update
 401     my $woo_shop_part_id = $answer->{data}[0]->{id};
 402     $answer = $self->send_request("products/$woo_shop_part_id", $dataString, "put");
 403   }else{
 404     #upload
 405     $answer = $self->send_request("products", $dataString, "post");
 406   }
 407
 408   # don't know if this is needed
 409   #if(@upload_img) {
 410   #  my $partnumber = $::form->escape($part->partnumber);#shopware don't accept / in partnumber
 411   #  my $imgup      = $self->connector->put($url . "api/generatepartimages/$partnumber?useNumberAsId=true");
 412   #}
 413
 414   return $answer->{success};
 415 }
 416
 417 sub get_article_info {
 418   my ($self) = @_;
 419   my $partnumber = $_[1];
 420
 421   $partnumber   = $::form->escape($partnumber);#don't accept / in partnumber
 422   my $answer = $self->send_request("products/", undef , "get" , "&sku=$partnumber");
 423
 424   $answer->{data} = $answer->{data}[0];
 425   #$main::lxdebug->dump(0, "TST: WooCommerce get_part_info ", $answer);
 426   return $answer;
 427
 428   if($answer->{success} && scalar @{$answer->{data}}){
 429     my $part = $self->map_data_to_part($answer->{data}[0]);
 430     #$main::lxdebug->dump(0, "TST: WooCommerce get_part_info part", $part);
 431     return $part;
 432   } else {
 433     #What shut be here?
 434     return $answer
 435   }
 436 }
 437
 438 sub map_data_to_part {
 439   my ($self, $part_data) = @_;
 440
 441   my %map_part_data =  (
 442     #id                 => $part_data->{},
 443     partnumber         => $part_data->{sku},
 444     description        => $part_data->{name},
 445     #listprice          => $part_data->{},
 446     #sellprice          => $part_data->{},
 447     #lastcost           => $part_data->{},
 448     #priceupdate        => $part_data->{},
 449     #weight             => $part_data->{},
 450     notes              => $part_data->{description},
 451     #makemodel          => $part_data->{},
 452     #rop                => $part_data->{},
 453     shop               => 1,
 454     obsolete           => 0,
 455     #bom                => $part_data->{},
 456     #image              => $part_data->{},
 457     #drawing            => $part_data->{},
 458     #microfiche         => $part_data->{},
 459     #partsgroup_id      => $part_data->{},
 460     #ve                 => $part_data->{},
 461     #gv                 => $part_data->{},
 462     #itime              => $part_data->{},
 463     #mtime              => $part_data->{},
 464     #unit               => $part_data->{},
 465     unit               => 'Stck',
 466     #formel             => $part_data->{},
 467     #not_discountable   => $part_data->{},
 468     #buchungsgruppen_id => $part_data->{},
 469     #payment_id         => $part_data->{},
 470     #ean                => $part_data->{},
 471     #price_factor_id    => $part_data->{},
 472     #onhand             => $part_data->{},
 473     #stockable          => $part_data->{},
 474     #has_sernumber      => $part_data->{},
 475     #warehouse_id       => $part_data->{},
 476     #bin_id             => $part_data->{},
 477     #df_status_aktuell  => $part_data->{},
 478     #df_status_verlauf  => $part_data->{},
 479     #active             => $part_data->{},
 480     #classification_id  => $part_data->{},
 481     part_type          => 'part',
 482   );
 483   return SL::DB::Part->new(%map_part_data);
 484 }
 485
 486 sub map_data_to_shop_part {
 487   my ($self, $part_data, $part) = @_;
 488
 489   my @categories = ();
 490   foreach my $row_cat ( @{ $part_data->{categories} } ) {
 491     my @tmp;
 492     push( @tmp,$row_cat->{id} );
 493     push( @tmp,$row_cat->{name} );
 494     push( @categories,\@tmp );
 495   }
 496   my %map_shop_part_data =  (
 497     #id                  => ,
 498     shop_id             => $self->config->id,
 499     part_id             => $part->id,
 500     shop_description    => $part_data->{description},
 501     #itime               => ,
 502     #mtime               => ,
 503     #last_update         => ,
 504     #show_date           => ,
 505     sortorder           => $part_data->{menu_order},
 506     #front_page          => ,
 507     active              => 1,
 508     shop_category       => \@categories,
 509     #active_price_source => ,
 510     #metatag_keywords    => ,
 511     #metatag_description => ,
 512     #metatag_title       => ,
 513     #shop_versandhinweis => ,
 514   );
 515   return SL::DB::ShopPart->new(%map_shop_part_data);
 516 }
 517 sub get_shop_parts {
 518   my ($self, $partnumber) = @_;
 519
 520   my $dbh       = SL::DB::client;
 521   my @errors;
 522   my $number_of_parts = 0;
 523   my %fetched_parts;
 524   my $answer;
 525
 526   if ($partnumber) {
 527     $partnumber   = $::form->escape($partnumber);#don't accept / in partnumber
 528     $answer = $self->send_request("products/", undef , "get" , "&sku=$partnumber");
 529   } else {
 530     #TODO
 531     $answer = $self->send_request("products/", undef , "get");
 532     if ($answer->{total_pages} > 1) {
 533       my $current_page = 2;
 534       while ($current_page <= $answer->{total_pages}) {
 535         my $tmp_answer = $self->send_request("products/", undef , "get", "&page=$current_page");
 536         foreach my $part (@{$tmp_answer->{data}}) {
 537           push @{$answer->{data}} , $part;
 538         }
 539         $current_page++;
 540       }
 541     }
 542   }
 543
 544   if($answer->{success} && scalar @{$answer->{data}}){
 545     $dbh->with_transaction( sub{
 546       foreach my $part_data (@{$answer->{data}}) {
 547       unless (!$part_data->{sku} || SL::DB::Manager::Part->get_all_count( query => [ partnumber => $part_data->{sku} ] )) {
 548           my $part = $self->map_data_to_part($part_data);
 549           #$main::lxdebug->dump(0, "TST: WooCommerce get_shop_parts part ", $part);
 550           $part->save;
 551           my $shop_part = $self->map_data_to_shop_part($part_data, $part);
 552           #$main::lxdebug->dump(0, "TST: WooCommerce get_shop_parts shop_part ", $shop_part);
 553           $shop_part->save;
 554           $number_of_parts++;
 555         }
 556       }
 557       return 1;
 558     })or do {
 559       push @errors,($::locale->text('Saving failed. Error message from the database: #1', $dbh->error));
 560     };
 561
 562     if(@errors){
 563       flash_later('error', $::locale->text('Errors: #1', @errors));
 564     }
 565     %fetched_parts = (
 566       shop_id          => $self->config->id,
 567       shop_description => $self->config->description,
 568       number_of_parts => $number_of_parts,
 569     );
 570   } else {
 571     my %error_msg  = (
 572       shop_id          => $self->config->id,
 573       shop_description => $self->config->description,
 574       message          => $answer->{message},
 575       error            => 1,
 576     );
 577     %fetched_parts = %error_msg;
 578   }
 579   return \%fetched_parts;
 580 }
 581
 582 sub get_categories {
 583   my ($self) = @_;
 584
 585   my $answer = $self->send_request("products/categories",undef,"get","&per_page=100");
 586   unless($answer->{success}) {
 587     return $answer;
 588   }
 589   my @data = @{$answer->{data}};
 590   my %categories = map { ($_->{id} => $_) } @data;
 591
 592   my @categories_tree;
 593   for(@data) {
 594     my $parent = $categories{$_->{parent}};
 595     if($parent) {
 596       $parent->{children} ||= [];
 597       push @{$parent->{children}},$_;
 598     } else {
 599       push @categories_tree, $_;
 600     }
 601   }
 602
 603   return \@categories_tree;
 604 }
 605
 606 sub get_version {
 607   my ($self) = @_;
 608
 609   my $answer = $self->send_request("system_status");
 610   if($answer->{success}) {
 611     my $version = $answer->{data}->{environment}->{version};
 612     my %return = (
 613       success => 1,
 614       data    => { version => $version },
 615     );
 616     return \%return;
 617   } else {
 618     return $answer;
 619   }
 620 }
 621
 622 sub set_orderstatus {
 623   my ($self,$order_id, $status) = @_;
 624   #  if ($status eq "fetched") { $status =  "processing"; }
 625   #  if ($status eq "processing") { $status = "completed"; }
 626   my %new_status = (status => $status);
 627   my $status_json = SL::JSON::to_json( \%new_status);
 628   my $answer = $self->send_request("orders/$order_id", $status_json, "put");
 629   unless($answer->{success}){
 630     return 0;
 631   }
 632   return 1;
 633 }
 634
 635 sub create_url {
 636   my ($self) = @_;
 637   my $request = $_[1];
 638   my $parameters = $_[2];
 639
 640   my $consumer_key = $self->config->login;
 641   my $consumer_secret = $self->config->password;
 642   my $protocol = $self->config->protocol;
 643   my $server = $self->config->server;
 644   my $port = $self->config->port;
 645   my $path = $self->config->path;
 646
 647   return $protocol . "://". $server . ":" . $port . $path . $request . "?consumer_key=" . $consumer_key . "&consumer_secret=" . $consumer_secret . $parameters;
 648 }
 649
 650 sub send_request {
 651   my ($self) = @_;
 652   my $request = $_[1];
 653   my $json_data = $_[2];
 654   my $method_type = $_[3];
 655   my $parameters = $_[4];
 656
 657   my $ua = LWP::UserAgent->new;
 658   my $url = $self->create_url( $request, $parameters );
 659
 660   my $answer;
 661   if( $method_type eq "put" ) {
 662     $answer = $ua->put($url, "Content-Type" => "application/json", Content => $json_data);
 663   } elsif ( $method_type eq "post") {
 664     $answer = $ua->post($url, "Content-Type" => "application/json", Content => $json_data);
 665   } else {
 666     $answer = $ua->get($url);
 667   }
 668
 669   my $type = $answer->content_type;
 670   my $status_line = $answer->status_line;
 671
 672   my %return;
 673   if($answer->is_success && $type eq 'application/json'){
 674     my $data_json = $answer->content;
 675     #$main::lxdebug->dump(0, "TST: WooCommerce send_request header ", $answer->header( 'Link'));
 676     my $json = SL::JSON::decode_json($data_json);
 677     %return = (
 678       success => 1,
 679       data    => $json,
 680       total_pages => $answer->header( 'X-WP-TotalPages'),
 681       total_elements => $answer->header( 'X-WP-Total'),
 682     );
 683   }else{
 684     %return = (
 685       success => 0,
 686       data    => { version => $url . ": " . $status_line, data_type => $type },
 687       message => "Error: $status_line",
 688     );
 689   }
 690   #$main::lxdebug->dump(0, "TST: WooCommerce send_request return ", \%return);
 691   return \%return;
 692
 693 }
 694
 695 1;