Revision 725

Date:
2018/09/26 13:45:51
Author:
ahitrov
Revision Log:
off-debug fix

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Contenido/Object.pm

     
    318 318 } elsif ( $DBD::Pg::VERSION >= '3' && $] < '5.026' ) {
    319 319 return Encode::decode('utf-8', $json_n->encode ({map { $_=>$self->{$_} } grep { !$virtual_fields->{$_} && (defined $self->{$_}) } @$extra_fields}));
    320 320 } else {
    321 my $content = $json_n->encode ({map { $_=>$self->{$_} } grep { !$virtual_fields->{$_} && (defined $self->{$_}) } @$extra_fields});
    322 return $content;
    321 return $json_n->encode( {map { $_=>$self->{$_} } grep { !$virtual_fields->{$_} && (defined $self->{$_}) } @$extra_fields} );
    323 322 }
    324 323 } else {
    325 324 no strict 'refs';
    … …  
    331 330 local $Data::Dumper::Indent = 0;
    332 331 if ($state->db_encode_data) {
    333 332 return Data::Dumper::Dumper({map { $_=> Encode::decode($state->db_encode_data, $self->{$_}, Encode::FB_HTMLCREF) } grep { !$virtual_fields->{$_} && (defined $self->{$_}) } @$extra_fields});
    334 } elsif ( $DBD::Pg::VERSION >= '3' ) {
    333 } elsif ( $DBD::Pg::VERSION >= '3' && $] < '5.026' ) {
    335 334 return Encode::decode( 'utf-8', Data::Dumper::Dumper({map { $_=>$self->{$_} } grep { !$virtual_fields->{$_} && (defined $self->{$_}) } @$extra_fields}) );
    336 335 } else {
    337 336 return Data::Dumper::Dumper({map { $_=>$self->{$_} } grep { !$virtual_fields->{$_} && (defined $self->{$_}) } @$extra_fields});
    … …  
    584 583 foreach (@binary_fields) {
    585 584 $sth->bind_param($_, undef, {pg_type => DBD::Pg::PG_BYTEA});
    586 585 }
    587 warn Data::Dumper::Dumper(\@values) if $DEBUG;
    586 # warn Data::Dumper::Dumper(\@values) if $DEBUG;
    588 587 unless ($sth->execute(@values, $self->{id})) {
    589 588 $log->error("DBI execute error on $sql\n".Data::Dumper::Dumper( $DBD::Pg::VERSION >= '3' ? Data::Recursive::Encode->encode_utf8( \@values ) : \@values ));
    590 589 $sth->finish();