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; |