• set_properties.msn

    63 64  
    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 }