Line # Revision Author
1 327 ahitrov package monetaru::Init;
2
3 use strict;
4 use warnings 'all';
5
6 use Contenido::Globals;
7 use monetaru::Apache;
8 use monetaru::Keeper;
9
10
11 # загрузка всех необходимых плагину классов
12 # monetaru::SQL::SomeTable
13 # monetaru::SomeClass
14 Contenido::Init::load_classes(qw(
15 328 ahitrov monetaru::SQL::TransactionsTable
16 monetaru::Transaction
17
18 350 ahitrov monetaru::SQL::OperationsTable
19 monetaru::Operation
20
21 328 ahitrov monetaru::TransactionSection
22 327 ahitrov ));
23
24 sub init {
25 350 ahitrov push @{ $state->{'available_documents'} }, qw( monetaru::Transaction monetaru::Operation );
26 328 ahitrov push @{ $state->{'available_sections'} }, qw( monetaru::TransactionSection );
27 327 ahitrov 0;
28 }
29
30 1;