• set_properties.msn

    224 225  
    42 42 $IMAGE = ref $IMAGE ? $IMAGE : {};
    43 43 $IMAGE = $m->comp('/contenido/components/set_image.msn', default=>$IMAGE, field=>$name, SETS=>$SETS, object=>$object, prop => $prop);
    44 44 if ( exists $IMAGE->{filename} ) {
    45 local $Data::Dumper::Indent = 0;
    46 $object->$name( Data::Dumper::Dumper($IMAGE) );
    45 $object->$name( $object->_serialize($IMAGE) );
    47 46 }
    48 47 }
    49 48
    … …  
    79 78 };
    80 79 $IMAGE = $m->comp('/contenido/components/set_image.msn', default=>$IMAGE, field=>$partname, SETS=>$SETS, object=>$object, prop => $prop);
    81 80 if (exists($IMAGE->{filename})) {
    82 local $Data::Dumper::Indent = 0;
    83 81 $IMAGE->{number} = $number;
    84 82 $IMAGES->{'image_'.$number} = $IMAGE;
    85 83 $IMAGES->{maxnumber} = $number if ($number > $IMAGES->{maxnumber});
    … …  
    94 92 $maxnumber = $_ if exists $IMAGES->{"image_$_"} && $_ > $maxnumber;
    95 93 }
    96 94 $IMAGES->{maxnumber} = $maxnumber;
    97 local $Data::Dumper::Indent = 0;
    98 $object->$name( Data::Dumper::Dumper($IMAGES) );
    95 $object->$name( $object->_serialize($IMAGES) );
    99 96 }
    100 97
    101 98 } elsif ( $prop->{type} eq 'multimedia' ) {
    … …  
    117 114 $MULTI = $m->comp('/contenido/components/set_multi.msn', default=>$MULTI, field=>$name, SETS=>$SETS, object=>$object);
    118 115 if (exists($MULTI->{filename}))
    119 116 {
    120 local $Data::Dumper::Indent = 0;
    121 $object->{$name} = Data::Dumper::Dumper($MULTI);
    117 $object->$name ( $object->_serialize($MULTI) );
    122 118 }
    123 119 }
    124 120
    … …  
    141 137 $MULTI = $m->comp('/contenido/components/set_multimedia_new.msn', default=>$MULTI, field=>$name, SETS=>$SETS, object=>$object, prop => $prop);
    142 138 if (exists($MULTI->{filename}))
    143 139 {
    144 local $Data::Dumper::Indent = 0;
    145 $object->{$name} = Data::Dumper::Dumper($MULTI);
    140 $object->$name( $object->_serialize($MULTI) );
    146 141 }
    147 142 }
    148 143
    … …  
    169 164 $MULTI = $m->comp('/contenido/components/set_audio.msn', default=>$MULTI, field=>$name, SETS=>$SETS, object=>$object, prop => $prop);
    170 165 if (exists($MULTI->{filename}))
    171 166 {
    172 local $Data::Dumper::Indent = 0;
    173 $object->{$name} = Data::Dumper::Dumper($MULTI);
    167 $object->$name( $object->_serialize($MULTI) );
    174 168 }
    175 169 }
    176 170