Revision 562

Date:
2016/04/04 23:26:54
Author:
ahitrov
Revision Log:
Binary file storing bug.

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/comps/contenido/components/set_properties.msn

     
    128 128 $object->_delete_binary( $BINARY );
    129 129 $object->$name('');
    130 130 } else {
    131 my $MULTI = undef;
    132 if (length($object->{ $name }) > 8)
    133 {
    134 $MULTI = eval ('my '.$object->{ $name });
    135 if (ref($MULTI) ne 'HASH') { $MULTI = {} };
    136 }
    131 my $MULTI = $object->get_image( $name );
    132 $MULTI = ref $MULTI ? $MULTI : {};
    137 133 $MULTI = $m->comp('/contenido/components/set_multimedia_new.msn', default=>$MULTI, field=>$name, SETS=>$SETS, object=>$object, prop => $prop);
    138 134 if (exists($MULTI->{filename}))
    139 135 {