Contenido Project
version 7
SVN-репозиторий

Revision 584

Date:
2016/08/29 12:39:41
Author:
ahitrov
Revision Log:
DB store bug for options table while using DBD::Pg 3.x.x

Files:

Legend:

 
Added
 
Removed
 
Modified

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

     
    192 192 my $new_pid;
    193 193
    194 194 if (ref $data eq "HASH") {
    195 if (defined $key) {
    196 $insert->execute($pid, $key, undef, "HASH");
    197 $new_pid = $local_keeper->TSQL->selectrow_array("SELECT currval('documents_id_seq')");
    198 }
    195 if (defined $key) {
    196 $insert->execute($pid, $DBD::Pg::VERSION >= '3' ? Encode::decode( 'utf-8', $key) : $key, undef, "HASH");
    197 $new_pid = $local_keeper->TSQL->selectrow_array("SELECT currval('documents_id_seq')");
    198 }
    199 199
    200 foreach my $new_key (keys %$data) {
    201 store_recursive($new_pid, $new_key, $data->{$new_key}, $insert, $local_keeper);
    202 }
    200 foreach my $new_key (keys %$data) {
    201 store_recursive($new_pid, $new_key, $data->{$new_key}, $insert, $local_keeper);
    202 }
    203 203 } elsif (ref $data eq "ARRAY") {
    204 if (defined $key) {
    205 $insert->execute($pid, $key, undef, "ARRAY");
    206 $new_pid = $local_keeper->TSQL->selectrow_array("SELECT currval('documents_id_seq')");
    207 }
    204 if (defined $key) {
    205 $insert->execute($pid, $DBD::Pg::VERSION >= '3' ? Encode::decode( 'utf-8', $key) : $key, undef, "ARRAY");
    206 $new_pid = $local_keeper->TSQL->selectrow_array("SELECT currval('documents_id_seq')");
    207 }
    208 208
    209 foreach my $new_key (0 .. $#$data) {
    210 store_recursive($new_pid, $new_key, $data->[$new_key], $insert, $local_keeper);
    211 }
    209 foreach my $new_key (0 .. $#$data) {
    210 store_recursive($new_pid, $new_key, $data->[$new_key], $insert, $local_keeper);
    211 }
    212 212 } else {
    213 $insert->execute($pid, $key, $data, "SCALAR") || return $local_keeper->t_abort();
    213 $insert->execute($pid,
    214 $DBD::Pg::VERSION >= '3' ? Encode::decode( 'utf-8', $key) : $key,
    215 $DBD::Pg::VERSION >= '3' ? Encode::decode( 'utf-8', $data) : $data,
    216 "SCALAR") || return $local_keeper->t_abort();
    214 217 }
    215 218 }
    216 219

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.
© 2003 – 2009 «Рамблер»
© 2010 – 2024 «Андрей (Handy) Хитров»