Revision 728

Date:
2018/10/17 13:57:56
Author:
ahitrov
Revision Log:
utf encoding

Files:

Legend:

 
Added
 
Removed
 
Modified

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

     
    585 585 }
    586 586 # warn Data::Dumper::Dumper(\@values) if $DEBUG;
    587 587 unless ($sth->execute(@values, $self->{id})) {
    588 $log->error("DBI execute error on $sql\n".Data::Dumper::Dumper( $DBD::Pg::VERSION >= '3' ? Data::Recursive::Encode->encode_utf8( \@values ) : \@values ));
    588 $log->error("DBI execute error on $sql\n".Data::Dumper::Dumper( $DBD::Pg::VERSION >= '3' && $] < '5.026' ? Data::Recursive::Encode->encode_utf8( \@values ) : \@values ));
    589 589 $sth->finish();
    590 590 return $self->t_abort();
    591 591 }
    … …  
    612 612 $sth->bind_param($_, undef, {pg_type => DBD::Pg::PG_BYTEA});
    613 613 }
    614 614 unless ($sth->execute(@values)) {
    615 $log->error("DBI execute error on $sql\n".Data::Dumper::Dumper( $DBD::Pg::VERSION >= '3' ? Data::Recursive::Encode->encode_utf8( \@values ) : \@values ));
    615 $log->error("DBI execute error on $sql\n".Data::Dumper::Dumper( $DBD::Pg::VERSION >= '3' && $] < '5.026' ? Data::Recursive::Encode->encode_utf8( \@values ) : \@values ));
    616 616 $sth->finish();
    617 617 return $self->t_abort();
    618 618 }