Repository List / Contenido / utf8 / samples / promosuite / lib / promosuite / Photorep.pm @ r296

package promosuite::Photorep;

use strict;
use vars qw(@ISA);

use Contenido::Document;
use Time::ParseDate;
use Contenido::Globals;

@ISA = ('Contenido::Document');

sub extra_properties
{

        return (
		{ 'attr' => 'abstr',		'type' => 'text',	'rusname' => 'Аннотация', 'rows' => 10 },
		{ 'attr' => 'body',		'type' => 'text',	'rusname' => 'Текст фоторепа', 'rows' => 40 },
		{ 'attr' => 'author',		'type' => 'string',	'rusname' => 'Автор фоторепа' },
		{ 'attr' => 'source',		'type' => 'string',	'rusname' => 'Источник' },
		{ 'attr' => 'icon',		'type' => 'image',	'rusname' => 'Иконка 100x100', preview => '100x100' },
		{ 'attr' => 'pictures',		'type' => 'images',	'rusname' => 'Фотосет', preview => ['100x100', '120x120', '150x150'] },
	)
}

sub class_name
{
	return 'Фоторепортаж';
}

sub class_description
{
	return 'Фоторепортаж';
}

1;