Revision 698f7309
Von Werner Hahn vor mehr als 6 Jahren hinzugefügt
| SL/Controller/ShopOrder.pm | ||
|---|---|---|
| 21 | 21 |
|
| 22 | 22 |
sub action_get_orders {
|
| 23 | 23 |
my ( $self ) = @_; |
| 24 |
|
|
| 24 |
my $orders_fetched; |
|
| 25 | 25 |
my $active_shops = SL::DB::Manager::Shop->get_all(query => [ obsolete => 0 ]); |
| 26 | 26 |
foreach my $shop_config ( @{ $active_shops } ) {
|
| 27 | 27 |
my $shop = SL::Shop->new( config => $shop_config ); |
| 28 | 28 |
my $new_orders = $shop->connector->get_new_orders; |
| 29 |
push @{ $orders_fetched },@{ $new_orders };
|
|
| 29 | 30 |
}; |
| 30 | 31 |
$self->action_list; |
| 32 |
#TODO Flashinfo how many orders from wich shop have been fetched. infos in $orders_fetched |
|
| 31 | 33 |
} |
| 32 | 34 |
|
| 33 | 35 |
sub action_list {
|
| ... | ... | |
| 180 | 182 |
} |
| 181 | 183 |
|
| 182 | 184 |
1; |
| 185 |
|
|
| 186 |
__END__ |
|
| 187 |
|
|
| 188 |
=encoding utf-8 |
|
| 189 |
|
|
| 190 |
=head1 NAME |
|
| 191 |
|
|
| 192 |
SL::Controller::ShopOrder - Handles th imported shoporders |
|
| 193 |
|
|
| 194 |
=head1 SYNOPSIS |
|
| 195 |
|
|
| 196 |
|
|
| 197 |
=head1 DESCRIPTION |
|
| 198 |
|
|
| 199 |
|
|
| 200 |
=head1 BUGS |
|
| 201 |
|
|
| 202 |
None yet. :) |
|
| 203 |
|
|
| 204 |
=head1 AUTHOR |
|
| 205 |
|
|
| 206 |
W. Hahn E<lt>wh@futureworldsearch.netE<gt> |
|
| 207 |
|
|
| 208 |
=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