Index: object_form.msn =================================================================== --- object_form.msn (revision 525) +++ object_form.msn (revision 526) @@ -39,7 +39,7 @@ { my $prop = $properties[$_]; - 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'); + 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'); @@ -161,8 +161,7 @@ MULTI => $MULTI, options => $options, &> -% } elsif ($prop->{type} eq 'multimedia_new') -% { +% } elsif ($prop->{type} eq 'multimedia_new') { % my $MULTI = $object->get_image( $prop->{attr} ); <& "/contenido/components/inputs/multimedia_new.msn", @@ -172,8 +171,35 @@ MULTI => $MULTI, options => $options, &> -% } elsif ($prop->{type} eq 'audio') -% { +% } elsif ($prop->{type} eq 'multimedia_multi') { +% my $FILES = $object->get_image( $prop->{attr} ); +% if (ref($FILES) ne 'HASH') { next }; +% my $MN = $FILES->{maxnumber}+0; +% for my $mn (1..$MN) { +% my $MULTI = $FILES->{'file_'.$mn}; +<& "/contenido/components/inputs/multimedia_new.msn", + rusname => $prop->{rusname}, + prop => $prop, object=>$object, + attr => $prop->{attr}.'_'.$mn, + MULTI => $MULTI, + options => $options, +&> + +% } +% my $ME = exists $prop->{empty_slots} ? $prop->{empty_slots} : 3; +% $ME = ($ME + $FILES->{maxnumber}) >= 100 ? 0 : (100 - $FILES->{maxnumber} < $ME ? 100 - $FILES->{maxnumber} : $ME ); +% for my $mn (1..$ME) { + +<& "/contenido/components/inputs/multimedia_new.msn", + rusname => $prop->{rusname}, + prop => $prop, object=>$object, + attr => $prop->{attr}.'_'.($MN+$mn), + MULTI => {}, + options => $options, +&> + +% } +% } elsif ($prop->{type} eq 'audio') { % my $MULTI = $object->get_image( $prop->{attr} ); <& "/contenido/components/inputs/audio.msn",