1 |
198 |
ahitrov |
package webshop::Init; |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use warnings 'all'; |
5 |
|
|
|
6 |
|
|
use Contenido::Globals; |
7 |
|
|
use webshop::Apache; |
8 |
|
|
use webshop::Keeper; |
9 |
|
|
|
10 |
|
|
|
11 |
|
|
# загрузка всех необходимых плагину классов |
12 |
|
|
# webshop::SQL::SomeTable |
13 |
|
|
# webshop::SomeClass |
14 |
|
|
Contenido::Init::load_classes(qw( |
15 |
|
|
webshop::SQL::Basket |
16 |
|
|
webshop::SQL::Order |
17 |
|
|
|
18 |
|
|
webshop::Address |
19 |
|
|
webshop::Basket |
20 |
|
|
webshop::Order |
21 |
|
|
webshop::Delivery |
22 |
|
|
|
23 |
|
|
webshop::DeliverySection |
24 |
|
|
)); |
25 |
|
|
|
26 |
|
|
sub init { |
27 |
|
|
push @{ $state->{'available_documents'} }, ('webshop::Basket', 'webshop::Order', 'webshop::Delivery'); |
28 |
|
|
push @{ $state->{'available_sections'} }, 'webshop::DeliverySection'; |
29 |
|
|
0; |
30 |
|
|
} |
31 |
|
|
|
32 |
|
|
1; |