-
set_properties.msn
525 526 146 146 } 147 147 } 148 148 149 } elsif ($prop->{type} eq 'multimedia_multi') { 150 # -------------------------------------------------------------------------------------- 151 # � ��� ��� ��� ������� - ����������� ����� �� ���� ������... 152 153 my $FILES = $object->get_image( $name ); 154 if ( ref($FILES) ne 'HASH' ) { 155 $FILES = {}; 156 $FILES->{maxnumber} = 0; 157 }; 158 159 # ������ ���� ����������� ��� ��������� - � ����� ��� ��, ��� ��� �����... 160 foreach my $arg (keys(%{ $SETS })) 161 { 162 # ��������� ��� �� �����, ��������... 163 my ($partname,undef) = split(/\./,$arg); 164 $partname =~ /^(.+)_(\d+)$/; 165 my ($localname,$number) = ($1, $2); 166 if ( ($localname eq $prop->{attr}) && ($number > 0) && ( $arg eq $localname.'_'.$number )) { 167 # ���! ����� �������! 168 169 my $partname = $localname.'_'.$number; 170 171 if ($SETS->{'_delete_multi.'.$partname} == 1) { 172 $object->_delete_binary( $FILES->{'file_'.$number} ); 173 delete $FILES->{'file_'.$number}; 174 } else { 175 my $MULTI = undef; 176 if (exists($FILES->{'file_'.$number})) { 177 $MULTI = $FILES->{'file_'.$number}; 178 }; 179 $MULTI = $m->comp('/contenido/components/set_multimedia_new.msn', default=>$MULTI, field=>$partname, SETS=>$SETS, object=>$object, prop => $prop); 180 if (exists($MULTI->{filename})) { 181 $MULTI->{number} = $number; 182 $FILES->{'file_'.$number} = $MULTI; 183 $FILES->{maxnumber} = $number if ($number > $FILES->{maxnumber}); 184 } 185 } 186 } 187 } 188 189 if ( scalar(keys(%{ $FILES })) > 0) { 190 my $maxnumber = 0; 191 for ( 1..100 ) { 192 $maxnumber = $_ if exists $FILES->{"file_$_"} && $_ > $maxnumber; 193 } 194 $FILES->{maxnumber} = $maxnumber; 195 $object->$name( $object->_serialize($FILES) ); 196 } 197 149 198 } elsif ( $prop->{type} eq 'audio' ) { 150 199 # -------------------------------------------------------------------------------------- 151 200 # ���������� ������ ������ �����������