Revision 67afa30b
Von Werner Hahn vor mehr als 7 Jahren hinzugefügt
| SL/Controller/Shop.pm | ||
|---|---|---|
|
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=encoding utf-8
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
SL::Controller::Shop
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
|
||
|
=head1 DESCRIPTION
|
||
|
|
||
|
|
||
|
=head1 BUGS
|
||
|
|
||
|
None yet. :)
|
||
|
|
||
|
=head1 AUTHOR
|
||
|
|
||
|
G. Richardson E<lt>information@kivitendo-premium.deE<gt>
|
||
|
W. Hahn E<lt>wh@futureworldsearch.netE<gt>
|
||
| SL/Controller/ShopOrder.pm | ||
|---|---|---|
|
|
||
|
sub action_get_orders {
|
||
|
my ( $self ) = @_;
|
||
|
|
||
|
my $orders_fetched;
|
||
|
my $active_shops = SL::DB::Manager::Shop->get_all(query => [ obsolete => 0 ]);
|
||
|
foreach my $shop_config ( @{ $active_shops } ) {
|
||
|
my $shop = SL::Shop->new( config => $shop_config );
|
||
|
my $new_orders = $shop->connector->get_new_orders;
|
||
|
push @{ $orders_fetched },@{ $new_orders };
|
||
|
};
|
||
|
$self->action_list;
|
||
|
#TODO Flashinfo how many orders from wich shop have been fetched. infos in $orders_fetched
|
||
|
}
|
||
|
|
||
|
sub action_list {
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=encoding utf-8
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
SL::Controller::ShopOrder - Handles th imported shoporders
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
|
||
|
=head1 DESCRIPTION
|
||
|
|
||
|
|
||
|
=head1 BUGS
|
||
|
|
||
|
None yet. :)
|
||
|
|
||
|
=head1 AUTHOR
|
||
|
|
||
|
W. Hahn E<lt>wh@futureworldsearch.netE<gt>
|
||
|
|
||
|
=cut
|
||
| SL/Controller/ShopPart.pm | ||
|---|---|---|
|
|
||
|
1;
|
||
|
|
||
|
=pod
|
||
|
__END__
|
||
|
|
||
|
=encoding utf-8
|
||
|
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
SL::Controller::ShopPart - Controller for managing ShopParts
|
||
|
SL::Controller::ShopPart - Controller for managing ShopParts
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
ShopParts are configured in a tab of the corresponding part.
|
||
|
ShopParts are configured in a tab of the corresponding part.
|
||
|
|
||
|
=head1 FUNCTIONS
|
||
|
|
||
|
|
||
|
=over 4
|
||
|
|
||
|
|
||
|
=item C<action_update_shop>
|
||
|
|
||
|
To be called from the "Update" button, for manually syncing a part with its
|
||
|
shop. Generates a Calls some ClientJS functions to modifiy original page.
|
||
|
To be called from the "Update" button, for manually syncing a part with its shop. Generates a Calls some ClientJS functions to modifiy original page.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 AUTHORS
|
||
|
|
||
|
G. Richardson E<lt>information@kivitendo-premium.deE<gt>
|
||
|
G. Richardson E<lt>information@kivitendo-premium.deE<gt>
|
||
|
W. Hahn E<lt>wh@futureworldsearch.netE<gt>
|
||
|
|
||
|
=cut
|
||
|
|
||
|
=cut
|
||
|
1;
|
||
| SL/ShopConnector/Shopware.pm | ||
|---|---|---|
|
use SL::DB::ShopOrderItem;
|
||
|
use Data::Dumper;
|
||
|
use Sort::Naturally ();
|
||
|
use SL::Helper::Flash;
|
||
|
use Encode qw(encode_utf8);
|
||
|
use SL::Controller::ShopPart;
|
||
|
|
||
| ... | ... | |
|
}else{
|
||
|
last;
|
||
|
}
|
||
|
my $shop = $self->config->description;
|
||
|
|
||
|
my @fetched_orders = ($shop,$i);
|
||
|
|
||
|
return \@fetched_orders;
|
||
|
}
|
||
|
# return $import;
|
||
|
};
|
||
| ... | ... | |
|
$main::lxdebug->dump(0, 'WH: UPDATE JSON: ', \$json);
|
||
|
my $url = $self->url;
|
||
|
my $part = SL::DB::Part->new(id => $shop_part->{part_id})->load;
|
||
|
$main::lxdebug->dump(0, 'WH: SHOPPART: ',\$part);
|
||
|
|
||
|
# TODO: Prices (pricerules, pricegroups, multiple prices)
|
||
|
my $cvars = { map { ($_->config->name => { value => $_->value_as_text, is_valid => $_->is_valid }) } @{ $part->cvars_by_config } };
|
||
| ... | ... | |
|
}
|
||
|
if(@upload_img) {
|
||
|
$self->connector->put("http://$url/api/generateArticleImages/$part->{partnumber}?useNumberAsId=true");
|
||
|
#$self->connector->delete("http://$url/api/caches/");
|
||
|
}
|
||
|
return $upload_content->{success};
|
||
|
}
|
||
| ... | ... | |
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
|
||
|
=head1 DESCRIPTION
|
||
|
|
||
|
|
||
|
=head1 BUGS
|
||
|
|
||
|
None yet. :)
|
||
|
None yet. :)
|
||
|
|
||
|
=head1 AUTHOR
|
||
|
|
||
|
W. Hahn E<lt>wh@futureworldsearch.netE<gt>
|
||
|
|
||
|
=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