• clone_attachments.msn

    224 225  
    14 14 return unless ref $object;
    15 15 return unless ref $source;
    16 16
    17 local $Data::Dumper::Indent = 0;
    18 17 my @properties = $source->structure();
    19 18 for (0..$#properties) {
    20 19 my $prop = $properties[$_];
    … …  
    91 90 }
    92 91 }
    93 92 }
    94 $object->$name(Dumper($img));
    93 $object->$name( $object->_serialize($img) );
    95 94 warn "\nClone img complete: ".Dumper($img)."\n" if $DEBUG;
    96 95 }
    97 96 } elsif ( $prop->{type} eq 'images' ) {
    … …  
    151 150 }
    152 151 if ( $attachment->{maxnumber} ) {
    153 152 $PICTURE->{maxnumber} = $attachment->{maxnumber};
    154 $object->$name(Dumper($PICTURE));
    153 $object->$name( $object->_serialize($PICTURE) );
    155 154 }
    156 155 warn "\nClone pics complete: ".Dumper($PICTURE)."\n" if $DEBUG;
    157 156 } elsif ( $prop->{type} eq 'multimedia_new' ) {
    … …  
    168 167 atext => $attachment->{atext}
    169 168 };
    170 169 }
    171 $object->$name(Dumper($img));
    170 $object->$name( $object->_serialize($img) );
    172 171 warn "\nClone binary complete: ".Dumper($img)."\n" if $DEBUG;
    173 172 }
    174 173 }