Revision 64

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

Legend:

 
Added
 
Removed
 
Modified

  • koi8/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

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

     
    70 70 };
    71 71 }
    72 72
    73 my $maxnumber_ = 0;
    74
    75 73 # ������ ���� ����������� ��� ��������� - � ����� ��� ��, ��� ��� �����...
    76 74 foreach my $arg (keys(%{ $SETS })) {
    77 75 # ��������� ��� �� �����, ��������...
    … …  
    111 109 }
    112 110
    113 111 if ( scalar(keys(%{ $IMAGES })) > 0) {
    112 my $maxnumber = 0;
    113 for ( 1..100 ) {
    114 $maxnumber = $_ if exists $IMAGES->{"image_$_"} && $_ > $maxnumber;
    115 }
    116 $IMAGES->{maxnumber} = $maxnumber;
    114 117 local $Data::Dumper::Indent = 0;
    115 118 $object->{$name} = Data::Dumper::Dumper($IMAGES);
    116 119 }