Line # Revision Author
1 234 ahitrov package blogs::SubscriberLink;
2
3 use strict;
4 use vars qw(@ISA);
5
6 use Contenido::Link;
7 @ISA = ('Contenido::Link');
8
9 sub extra_properties
10 {
11 return (
12 { 'attr' => 'moderator', 'hidden' => 1, },
13 );
14 }
15
16 sub class_name
17 {
18 return 'Подписчик блога';
19 }
20
21 sub class_description
22 {
23 return 'Связь между пользователями и блогами';
24 }
25
26 #sub available_sources
27 #{
28 # return [ qw(formula1::Championship) ];
29 #}
30
31 sub available_destinations
32 {
33 return [ qw(blogs::Blog) ];
34 }
35
36 sub class_table
37 {
38 return 'blogs::SQL::MembersTable';
39 }
40
41 1;