package promosuite::Multimedia; use strict; use vars qw(@ISA); use Contenido::Document; use Time::ParseDate; use Contenido::Globals; @ISA = ('Contenido::Document'); sub extra_properties { return ( { 'attr' => 'attype', 'type' => 'select', 'rusname' => 'Тип прикрепленного документа' }, { 'attr' => 'abstr', 'type' => 'text', 'rusname' => 'Аннотация', 'rows' => 10 }, { 'attr' => 'body', 'type' => 'text', 'rusname' => 'Описание', 'rows' => 40 }, { 'attr' => 'file', 'type' => 'multimedia_new', 'rusname' => 'Прикрепленный файл', softrename => 1 }, { 'attr' => 'icon', 'type' => 'image', 'rusname' => 'Фото для выноски','preview' => ['100x100'] }, { 'attr' => 'photo', 'type' => 'image', 'rusname' => 'Фото в тексте', 'preview' => ['100x100','150x150','200x200'] }, { 'attr' => 'zoom', 'type' => 'image', 'rusname' => 'Hi-Res Фотo', 'preview' => ['400x400','200x200','150x150','100x100'] }, { 'attr' => 'photoset', 'type' => 'images', 'rusname' => 'Фотосет', 'preview' => ['150x150','200x200'] }, ) } sub class_name { return 'Мультимедийный объект'; } sub class_description { return 'Описание мультимедийного объекта'; } 1;