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;