Line # Revision Author
1 296 ahitrov package promosuite::MMLink;
2
3 use Contenido::Link;
4 @ISA = ('Contenido::Link');
5
6 sub class_name
7 {
8 return 'Привязка мультимедии к статьям';
9 }
10
11 sub class_description
12 {
13 return 'Привязка мультимедии к статьям';
14 }
15
16 sub extra_properties
17 {
18 return ();
19 }
20
21 sub available_sources
22 {
23 return [ qw(promosuite::Article) ];
24 }
25
26 sub available_destinations
27 {
28 return [ qw(promosuite::Multimedia) ];
29 }
30
31 1;