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

package promosuite::Postcard;

use strict;
use vars qw(@ISA);

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

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

sub extra_properties
{

	return (
		{ 'attr' => 'from',	'type' => 'string',	'rusname' => 'От кого', },
		{ 'attr' => 'to',	'type' => 'string',	'rusname' => 'Кому', },
		{ 'attr' => 'abstr',	'type' => 'text',	'rusname' => 'Аннотация',	'rows' => 10 },
		{ 'attr' => 'body',	'type' => 'text',	'rusname' => 'Описание',	'rows' => 40 },
		{ 'attr' => 'params',	'type' => 'text',	'rusname' => 'Параметры flash-открытки', 'rows' => 10 },
		{ 'attr' => 'icon',	'type' => 'image',	'rusname' => 'Иконка 120x120',	'preview' => '120x120' },
		{ 'attr' => 'picture',	'type' => 'image',	'rusname' => 'Картинко' },
		{ 'attr' => 'pictures',	'type' => 'images',	'rusname' => 'Дополнительные картинки',	'preview' => '240x240' },
	)
}

sub class_name
{
	return 'Открытка';
}

sub class_description
{
	 return 'Открытка';
}

sub class_table
{
	return 'promosuite::SQL::PostcardTable';
}

1;