1 |
234 |
ahitrov |
package blogs::MemberLink; |
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 |
|
|
); |
13 |
|
|
} |
14 |
|
|
|
15 |
|
|
sub class_name |
16 |
|
|
{ |
17 |
|
|
return 'Участник блога'; |
18 |
|
|
} |
19 |
|
|
|
20 |
|
|
sub class_description |
21 |
|
|
{ |
22 |
|
|
return 'Связь между пользователями и блогами'; |
23 |
|
|
} |
24 |
|
|
|
25 |
|
|
#sub available_sources |
26 |
|
|
#{ |
27 |
|
|
# return [ qw(formula1::Championship) ]; |
28 |
|
|
#} |
29 |
|
|
|
30 |
|
|
sub available_destinations |
31 |
|
|
{ |
32 |
|
|
return [ qw(blogs::Blog) ]; |
33 |
|
|
} |
34 |
|
|
|
35 |
|
|
sub class_table |
36 |
|
|
{ |
37 |
|
|
return 'blogs::SQL::MembersTable'; |
38 |
|
|
} |
39 |
|
|
|
40 |
|
|
1; |