<?php

/**
 * Copyright 2005-2017 de Solis Soluções Livres Ltda.
 *
 * Este arquivo é parte do programa Gnuteca.
 *
 * O Gnuteca é um software de propriedade da SOLIS, sendo desenvolvido
 * e mantido exclusivamente por esta empresa.
 *
 * A licença de uso está disponível mediante aquisição exclusiva junto à
 * SOLIS. A licença é concedida sem caráter de exclusividade ao licenciado.
 * Os direitos de uso são perpétuos.
 *
 * Embora os códigos fontes sejam fornecidos, o software é de propriedade
 * da SOLIS, não sendo permitido ao adquirente da licença a sua revenda,
 * empréstimo ou cessão (onerosa ou não) à terceiros. Também não é permitido,
 * a qualquer título e tempo, promover no software qualquer tipo de alienação,
 * reprodução, distribuição, divulgação, registro, licenciamento, transferência
 * ou qualquer outro ato que prejudique ou comprometa os direitos de propriedade
 * de software, o nome e a imagem da sua proprietária e do próprio software,
 * além de configurar concorrência à SOLIS.
 *
 * O licenciado, com o acesso ao código fonte do software, terá o direito de
 * promover mudanças no respectivo código. No entanto, nas situações em que ele
 * contar com o suporte oficial prestado pela SOLIS, não poderá promover mudanças
 * no código fonte, sob pena de perda do referido suporte.
 *
 * Para conhecer em detalhes o Termo de Licenciamento do Software Gnuteca
 * leia o arquivo “LICENCA.txt” disponível junto ao código deste software.
 * 
 * 
 *
 *
 * 
 *
 * */
$MIOLO = MIOLO::getInstance();

global $messagesG;
$messagesG = array( );

function addMessage($message)
{
    global $messagesG;
    $messagesG[][] = $message;
}
$gtcRootGroupId = 1000;
$rights['Acesso'] = 1;
$rights['Inserção'] = 2;
$rights['Remoção'] = 4;
$rights['Atualização'] = 8;

// Permissões
addMessage('Removendo acessos gtcRoot');
bBaseDeDados::consultar("DELETE FROM miolo_access WHERE idgroup = $gtcRootGroupId;", "admin");

foreach ( $rights as $perm => $right )
{
    addMessage("Inserindo acessos para gtcRoot - " . $perm);
    bBaseDeDados::consultar("INSERT INTO miolo_access ( idtransaction, idgroup ,rights ) ( SELECT idtransaction,$gtcRootGroupId, $right FROM miolo_transaction WHERE idmodule = 'gnuteca3' );", "admin");
}

/**
  Direito de empréstimo momentâneo
  O código abaixo realiza a insersão dos direitos de empréstimo momentâneo. A inserção deve ser executada somente uma vez, devido a isso não é possível ter um XML para isso.
 */
// Obtém o código do tipo de empréstimo momentâneo
$idOperationMomentary = bBaseDeDados::consultar("SELECT value FROM basConfig WHERE parameter = 'ID_OPERATION_LOAN_MOMENTARY';");
$idOperationMomentary = $idOperationMomentary[0][0];

// Obtém o código do tipo de empréstimo padrão
$idOperationLoan = bBaseDeDados::consultar("SELECT value FROM basConfig WHERE parameter = 'ID_LOANTYPE_DEFAULT';");
$idOperationLoan = $idOperationLoan[0][0];

if ( $idOperationMomentary)
{
    // Obtém a quantidade de direitos de empréstimo momentâneo
    $countRight = bBaseDeDados::consultar($sql = "SELECT count(*) FROM gtcRight WHERE operationid = $idOperationMomentary;");
    $countRight = $countRight[0][0];

    // Caso já tiver algum direito de empréstimo momentâneo, não insere os direitos
    if ( $countRight == 0 )
    {
        addMessage("Adicionando direito de empréstimo momentâneo");
        bBaseDeDados::consultar("INSERT INTO gtcright (SELECT privilegegroupid, linkid, materialgenderid, $idOperationMomentary FROM gtcright where operationid = $idOperationLoan);");
    }

}

//verifica se tem coluna city
$colunasBasPerson = bCatalogo::obterColunasDaTabela('public','basperson');

//quando tiver coluna de pessoa tem que converter city para cityid
if ( isset($colunasBasPerson['city']) )
{
    //atualiza sequencia
    bBaseDeDados::consultar("SELECT SETVAL('seq_cityid', (SELECT MAX(cityid) FROM bascity) + 1);");
    //  Insere todas cidades não constante no
    bBaseDeDados::consultar("INSERT INTO bascity (name,stateid,countryid) SELECT foo.city,'RS','BRA' FROM (SELECT distinct city FROM ONLY basperson WHERE length(trim(city)) > 0 EXCEPT (SELECT name from bascity)) as foo ;");
    //  Passa o cityId para as cidades que não o tem definido
    bBaseDeDados::consultar("UPDATE ONLY basperson SET cityId = (select cityId FROM bascity WHERE name = city LIMIT 1 ) WHERE cityid is null;");
    // DROPA coluna basperson.city
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'city');
}

//quando tiver coluna de pessoa tem que converter city para cityid
if ( isset($colunasBasPerson['entrydate']) )
{
    bBaseDeDados::consultar("UPDATE ONLY basperson SET datein = entrydate;");
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'entrydate');
}

//Se existir coluna observation ela deve ter seu conteúdo migrado para obs e depois ser dropada
if ( isset($colunasBasPerson['observation']) )
{
    bBaseDeDados::consultar("UPDATE ONLY basperson SET obs = observation;");
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'observation');
}

if ( isset($colunasBasPerson['baseldap']) )
{
    bBaseDeDados::consultar("INSERT INTO gtclibperson ( personid,baseldap,sex,profession,workplace,school,datebirth,persongroup ) 
                                 (SELECT personid,baseldap,sex,profession,workplace,school,datebirth,persongroup 
                               FROM ONLY basperson
                                   WHERE personid NOT IN (SELECT personid FROM gtclibperson));");
    
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'baseldap');
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'sex');
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'profession');
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'workplace');
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'school');
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'datebirth');
    bCatalogo::removerColunaSeExistir('public', 'basperson', 'persongroup');
}


//Verifica se Base possui sequencia miolo_user_iduser_seq. Adicionado Gnuteca 3.8
$var = bCatalogo::listarSequencias("public", "miolo_user_iduser_seq", "admin");
if(empty ($var))
{
    bBaseDeDados::executar("CREATE SEQUENCE miolo_user_iduser_seq;", "admin");
    //MUtil::flog("SQL ->  CREATE SEQUENCE miolo_user_iduser_seq; ");
    
    bBaseDeDados::executar("ALTER TABLE miolo_user ALTER COLUMN iduser SET DEFAULT  nextval('miolo_user_iduser_seq');", "admin");
    //MUtil::flog("SQL -> ALTER TABLE miolo_user ALTER COLUMN iduser SET DEFAULT  nextval('miolo_user_iduser_seq');");
    
    bBaseDeDados::executar("SELECT setval('miolo_user_iduser_seq',(SELECT MAX(iduser) FROM miolo_user));", "admin");
    //MUtil::flog("SQL -> SELECT setval('miolo_user_iduser_seq',(SELECT MAX(iduser) FROM miolo_user)); ");
    
    bBaseDeDados::executar("DROP SEQUENCE seq_iduser;", "admin");
    //MUtil::flog("SQL -> DROP SEQUENCE seq_iduser;");
}


//Se existir, remover baspersonoperationprocess pois ela não será mais utilizada.
bCatalogo::removerTabelaSeExistir('public', 'baspersonoperationprocess');
//remove a coluna caso exista, problemas antigos do DIA
bCatalogo::removerColunaSeExistir(null, 'gtclibraryunitaccess', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtclibraryunitisclosed', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtclibraryassociation', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtcnewsaccess', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtcpersonlibraryunit', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtcrequestchangeexemplarystatusaccess', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtcsearchablefieldaccess', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtcsearchformataccess', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtcsearchformatcolumn', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtcsoapaccess', 'bug_dia2sql_ignorar');
bCatalogo::removerColunaSeExistir(null, 'gtcsuppliertypeandlocation', 'bug_dia2sql_ignorar');

// Apaga relatório.
bBaseDeDados::consultar("DELETE FROM gtcreportparameter WHERE reportid = '33'", 'gnuteca3');
bBaseDeDados::consultar("DELETE FROM gtcreport WHERE reportid = '33'", 'gnuteca3');

// Garante sequência de processos críticos.
bBaseDeDados::consultar("select setval('seq_personid', (select max(personid) from basperson)) from basperson where personid is not null limit 1;", 'gnuteca3');
bBaseDeDados::consultar("select setval('seq_nextworknumber', (select max(content::int) from gtcmaterial where fieldid = '950' and subfieldid = 'a'))  from gtcmaterial where controlnumber is not null limit 1;", 'gnuteca3');
bBaseDeDados::consultar("select setval('seq_controlnumber', (select max(controlnumber) from gtcmaterialcontrol))  from gtcmaterialcontrol where controlnumber is not null limit 1;", 'gnuteca3');


// TODO: arrumar sequências

if ( $theme )
{
    $fields[] = new MTableRaw('Script de sincronização', $messagesG, array( _M('Message', 'gnuteca3') ), 'message');
    $fields[] = new MSeparator('<br/>');
    $theme->appendContent($fields);
}

?>