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');
%perl>
|
@@ -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",