• object_form.msn

    525 526  
    39 39 {
    40 40
    41 41 my $prop = $properties[$_];
    42 next if ($prop->{hidden} == 1) || ($prop->{type} eq 'image') || ($prop->{type} eq 'external') || ($prop->{type} =~ /^array/i) || ($prop->{type} =~ /^image/) || ($prop->{type} eq 'multimedia') || ($prop->{type} eq 'multimedia_new') || ($prop->{type} eq 'audio');
    42 next if ($prop->{hidden} == 1) || ($prop->{type} eq 'image') || ($prop->{type} eq 'external') || ($prop->{type} =~ /^array/i) || ($prop->{type} =~ /^image/) || ($prop->{type} eq 'multimedia') || ($prop->{type} eq 'multimedia_new ') || ($prop->{type} eq 'multimedia_multi') || ($prop->{type} eq 'audio');
    43 43
    44 44 </%perl>
    45 45 <tr><td height="8"></td></tr>
    … …  
    161 161 MULTI => $MULTI,
    162 162 options => $options,
    163 163 &>
    164 % } elsif ($prop->{type} eq 'multimedia_new')
    165 % {
    164 % } elsif ($prop->{type} eq 'multimedia_new') {
    166 165 % my $MULTI = $object->get_image( $prop->{attr} );
    167 166
    168 167 <& "/contenido/components/inputs/multimedia_new.msn",
    … …  
    172 171 MULTI => $MULTI,
    173 172 options => $options,
    174 173 &>
    175 % } elsif ($prop->{type} eq 'audio')
    176 % {
    174 % } elsif ($prop->{type} eq 'multimedia_multi') {
    175 % my $FILES = $object->get_image( $prop->{attr} );
    176 % if (ref($FILES) ne 'HASH') { next };
    177 % my $MN = $FILES->{maxnumber}+0;
    178 % for my $mn (1..$MN) {
    179 % my $MULTI = $FILES->{'file_'.$mn};
    180 <& "/contenido/components/inputs/multimedia_new.msn",
    181 rusname => $prop->{rusname},
    182 prop => $prop, object=>$object,
    183 attr => $prop->{attr}.'_'.$mn,
    184 MULTI => $MULTI,
    185 options => $options,
    186 &>
    187
    188 % }
    189 % my $ME = exists $prop->{empty_slots} ? $prop->{empty_slots} : 3;
    190 % $ME = ($ME + $FILES->{maxnumber}) >= 100 ? 0 : (100 - $FILES->{maxnumber} < $ME ? 100 - $FILES->{maxnumber} : $ME );
    191 % for my $mn (1..$ME) {
    192
    193 <& "/contenido/components/inputs/multimedia_new.msn",
    194 rusname => $prop->{rusname},
    195 prop => $prop, object=>$object,
    196 attr => $prop->{attr}.'_'.($MN+$mn),
    197 MULTI => {},
    198 options => $options,
    199 &>
    200
    201 % }
    202 % } elsif ($prop->{type} eq 'audio') {
    177 203 % my $MULTI = $object->get_image( $prop->{attr} );
    178 204
    179 205 <& "/contenido/components/inputs/audio.msn",