Revision 698f7309
Von Werner Hahn vor mehr als 6 Jahren hinzugefügt
SL/ShopConnector/Shopware.pm | ||
---|---|---|
13 | 13 |
use SL::DB::ShopOrderItem; |
14 | 14 |
use Data::Dumper; |
15 | 15 |
use Sort::Naturally (); |
16 |
use SL::Helper::Flash; |
|
16 | 17 |
use Encode qw(encode_utf8); |
17 | 18 |
use SL::Controller::ShopPart; |
18 | 19 |
|
... | ... | |
150 | 151 |
}else{ |
151 | 152 |
last; |
152 | 153 |
} |
154 |
my $shop = $self->config->description; |
|
155 |
|
|
156 |
my @fetched_orders = ($shop,$i); |
|
157 |
|
|
158 |
return \@fetched_orders; |
|
153 | 159 |
} |
154 | 160 |
# return $import; |
155 | 161 |
}; |
... | ... | |
188 | 194 |
$main::lxdebug->dump(0, 'WH: UPDATE JSON: ', \$json); |
189 | 195 |
my $url = $self->url; |
190 | 196 |
my $part = SL::DB::Part->new(id => $shop_part->{part_id})->load; |
191 |
$main::lxdebug->dump(0, 'WH: SHOPPART: ',\$part); |
|
192 | 197 |
|
193 | 198 |
# TODO: Prices (pricerules, pricegroups, multiple prices) |
194 | 199 |
my $cvars = { map { ($_->config->name => { value => $_->value_as_text, is_valid => $_->is_valid }) } @{ $part->cvars_by_config } }; |
... | ... | |
275 | 280 |
} |
276 | 281 |
if(@upload_img) { |
277 | 282 |
$self->connector->put("http://$url/api/generateArticleImages/$part->{partnumber}?useNumberAsId=true"); |
278 |
#$self->connector->delete("http://$url/api/caches/"); |
|
279 | 283 |
} |
280 | 284 |
return $upload_content->{success}; |
281 | 285 |
} |
... | ... | |
318 | 322 |
|
319 | 323 |
=head1 SYNOPSIS |
320 | 324 |
|
325 |
|
|
321 | 326 |
=head1 DESCRIPTION |
322 | 327 |
|
328 |
|
|
323 | 329 |
=head1 BUGS |
324 | 330 |
|
325 |
None yet. :) |
|
331 |
None yet. :)
|
|
326 | 332 |
|
327 | 333 |
=head1 AUTHOR |
328 | 334 |
|
335 |
W. Hahn E<lt>wh@futureworldsearch.netE<gt> |
|
329 | 336 |
|
330 | 337 |
=cut |
Auch abrufbar als: Unified diff
Shopmodul: Kommentare rausgenommen, Perldoc
Conflicts:
SL/Controller/ShopPart.pm
SL/ShopConnector/Shopware.pm
Webshop: Kommentare rausgenommen
Conflicts:
SL/Controller/ShopPart.pm