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;