Revision 53

Date:
2010/08/26 16:58:19
Author:
ahitrov@rambler.ru
Revision Log:
Избавляемся от одного противного артефакта
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/comps/contenido/components/set_properties.msn

     
    1 1 <%ARGS>
    2 2
    3 $object => undef
    4 $SETS => undef
    3 $object => undef
    4 $SETS => undef
    5 5
    6 6 </%ARGS>
    7 7 <%INIT>
    8 use Contenido::File;
    8
    9 use Contenido::File;
    9 10 use vars qw($keeper $request );
    10 11
    11 12 $request->{local_codepage} = 'UTF8';
    12 $request->{local_codepage} = 'WIN' if Convert::Cyrillic::cstocs('WIN', 'UTF8', $SETS->{control_charset}) eq 'Контроль';
    13 $request->{local_codepage} = 'KOI8' if Convert::Cyrillic::cstocs('KOI8', 'UTF8', $SETS->{control_charset}) eq 'Контроль';
    13 $request->{local_codepage} = 'WIN' if Convert::Cyrillic::cstocs('WIN', 'UTF8', $SETS->{control_charset}) eq 'Контроль';
    14 $request->{local_codepage} = 'KOI8' if Convert::Cyrillic::cstocs('KOI8', 'UTF8', $SETS->{control_charset}) eq 'Контроль';
    14 15
    15 16 warn "Contenido Debug: Форма для редактирования пришла в кодировке ".$request->{local_codepage}."\n" if ($state->debug());
    16 17
    17 18 my @properties = $object->structure();
    18 19 for (0..$#properties)
    19 20 {
    20 my $prop = $properties[$_];
    21 my $name = $prop->{attr};
    22 my $type = $prop->{type};
    21 my $prop = $properties[$_];
    22 my $name = $prop->{attr};
    23 my $type = $prop->{type};
    23 24
    24 next if ($name eq 'sections');
    25 next if ($name eq 'id');
    25 next if ($name eq 'sections');
    26 next if ($name eq 'id');
    26 27
    27 my $component = '/contenido/components/outputs/'.$prop->{attr}.'.msn';
    28 if ($m->comp_exists($component)) {
    29 $object->{$name} = $m->comp($component, SETS => $SETS, name => $name, object => $object );
    30 } elsif ($m->comp_exists("/contenido/components/outputs/$type.msn")) {
    31 $object->{$name} = $m->comp("/contenido/components/outputs/$type.msn", SETS => $SETS, name => $name, object => $object );
    32 } elsif ( $prop->{type} eq 'image' )
    33 {
    28 if ($m->comp_exists("/contenido/components/outputs/$type.msn")) {
    29 $object->{$name} = $m->comp("/contenido/components/outputs/$type.msn", SETS => $SETS, name => $name, object => $object );
    30
    31 } elsif ( $prop->{type} eq 'image' ) {
    34 32 # --------------------------------------------------------------------------------------
    35 33 # Добавление одной, отдельно стоящей картинки...
    36 34
    … …  
    59 57 $object->{$name} = Data::Dumper::Dumper($IMAGE);
    60 58 }
    61 59 }
    62 }
    63 elsif ($prop->{type} =~ /^images/)
    64 {
    60
    61 } elsif ($prop->{type} =~ /^images/) {
    65 62 # --------------------------------------------------------------------------------------
    66 63 # А вот это уже сложнее - составление блока из всех картинок...
    67 64
    … …  
    128 125 $object->{$name} = Data::Dumper::Dumper($IMAGES);
    129 126 }
    130 127
    131 }
    132 elsif ( $prop->{type} eq 'multimedia' )
    133 {
    128 } elsif ( $prop->{type} eq 'multimedia' ) {
    134 129 # --------------------------------------------------------------------------------------
    135 130 # Добавление одного объект Мультимедиа
    136 131
    … …  
    154 149 }
    155 150 }
    156 151
    157 }
    158 elsif ( $prop->{type} eq 'multimedia_new' )
    159 {
    152 } elsif ( $prop->{type} eq 'multimedia_new' ) {
    160 153 # --------------------------------------------------------------------------------------
    161 154 # Добавление одного объект Мультимедиа
    162 155
    … …  
    180 173 }
    181 174 }
    182 175
    183 }
    184 elsif ( $prop->{type} eq 'audio' )
    185 {
    176 } elsif ( $prop->{type} eq 'audio' ) {
    186 177 # --------------------------------------------------------------------------------------
    187 178 # Добавление одного объект Мультимедиа
    188 179
    … …  
    210 201 }
    211 202 }
    212 203
    204 } else {
    205 $object->{$name} = $m->comp('/contenido/components/filter.msn', str => $SETS->{$name} );
    213 206 }
    214 else
    215 {
    216 $object->{$name} = $m->comp('/contenido/components/filter.msn', str => $SETS->{$name} );
    217 }
    218 207
    219 208 }
    220 209