Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) |
The CORE
|
package @NAME@::SampleDefaultDocument;
use base 'Contenido::Document';
sub extra_properties
{
return (
{ 'attr' => 'body', 'type' => 'text', 'rusname' => '���� ������' },
{ 'attr' => 'images', 'type' => 'images', 'rusname' => '��������' },
)
}
sub class_name
{
return '������� ��������';
}
sub class_description
{
return '����� ������� �����. ������������ ��� �������� ����� ������� ���������� (����� � ��������). �������� �������, ������������ �� ���������.';
}
1;