Revision 63

Date:
2010/09/13 16:27:12
Author:
ahitrov@rambler.ru
Revision Log:
Работа с мультикартинками
Files:

Legend:

 
Added
 
Removed
 
Modified

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

     
    135 135 &>
    136 136
    137 137 % }
    138 % for my $mn (1..5)
    138 % my $ME = exists $prop->{empty_slots} ? $prop->{empty_slots} : 5;
    139 % $ME = ($ME + $IMAGES->{maxnumber}) >= 100 ? 0 : (100 - $IMAGES->{maxnumber} < $ME ? 100 - $IMAGES->{maxnumber} : $ME );
    140 % for my $mn (1..$ME)
    139 141 % {
    140 142
    141 143

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

     
    121 121
    122 122 if ( scalar(keys(%{ $IMAGES })) > 0)
    123 123 {
    124 my $maxnumber = 0;
    125 for ( 1..100 ) {
    126 $maxnumber = $_ if exists $IMAGES->{"image_$_"} && $_ > $maxnumber;
    127 }
    128 $IMAGES->{maxnumber} = $maxnumber;
    124 129 local $Data::Dumper::Indent = 0;
    125 130 $object->{$name} = Data::Dumper::Dumper($IMAGES);
    126 131 }