Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 196da0e7

Von Tamino vor fast 4 Jahren hinzugefügt

  • ID 196da0e775a9bf7b33e87c2027d7993f4cbc9f34
  • Vorgänger 53f7b408
  • Nachfolger 2f5ea2de

ShopConnector: WooCommerce set OrderStatus added

Unterschiede anzeigen:

SL/ShopConnector/WooCommerce.pm
my $shoporder = $answer->{data};
$dbh->with_transaction( sub{
unless ($self->import_data_to_shop_order($shoporder)) { return 0;}
#update status on server
$shoporder->{status} = "processing";
my %new_status = ( status => "processing" );
my $status_json = SL::JSON::to_json( \%new_status);
$answer = $self->send_request("orders/$shoporder->{id}", $status_json, "put");
unless($answer->{success}){
my $anser = $self->set_orderstatus($$shoporder->{id}, "fetched");
unless($answer){
push @errors,($::locale->text('Saving failed. Error message from the server: #1', $answer->message));
return 0
return 0;
}
unless ($self->import_data_to_shop_order($shoporder)) { return 0;}
1;
})or do {
push @errors,($::locale->text('Saving failed. Error message from the database: #1', $dbh->error));
......
foreach my $shoporder(@{$orders}){
$dbh->with_transaction( sub{
unless ($self->import_data_to_shop_order($shoporder)) { return 0;}
#update status on server
$shoporder->{status} = "processing";
my %new_status = ( status => "processing" );
my $status_json = SL::JSON::to_json( \%new_status);
$answer = $self->send_request("orders/$shoporder->{id}", $status_json, "put");
unless($answer->{success}){
my $anser = $self->set_orderstatus($$shoporder->{id}, "fetched");
unless($answer){
push @errors,($::locale->text('Saving failed. Error message from the server: #1', $answer->message));
return 0;
}
unless ($self->import_data_to_shop_order($shoporder)) { return 0;}
1;
})or do {
push @errors,($::locale->text('Saving failed. Error message from the database: #1', $dbh->error));
......
}
}
sub set_orderstatus {
my ($self,$order_id, $status) = @_;
if ($status eq "fetched") { $status = "processing"; }
if ($status eq "completed") { $status = "completed"; }
my %new_status = (status => $status);
my $status_json = SL::JSON::to_json( \%new_status);
my $answer = $self->send_request("orders/$order_id", $status_json, "put");
unless($answer->{success}){
return 0;
}
return 1;
}
sub create_url {
my ($self) = @_;
my $request = $_[1];

Auch abrufbar als: Unified diff