<?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.
 *
 *
 *
 *
 *
 *
 *
 **/

include("GnutecaWebServices.class.php");
class gnuteca3WebServicesSearch
{
    private $webService;
    private $MIOLO;

    public function __construct() 
    {
        $this->webService = new GWebServices();
        $this->MIOLO = MIOLO::getInstance();
    }

    /**
     * Webservice para busca de materiais.
     * @param int $clientId Código do cliente SOAP
     * @param string $clientPassword Senha do cliente SOAP
     * @param string $filter Filtros de busca separados por vírgula
     * @param string $termText Termo de busca
     * @param int $libraryUnitId Código da unidade de biblioteca (opcional)
     * @param int $pageNumber Número da página de resultados (padrão: 1)
     * @param string $userLogin Login do usuário que está realizando a busca (opcional)
     * @return string JSON com os resultados da busca
     */
    public function search(
        $clientId,
        $clientPassword,
        $filter,
        $termText,
        $libraryUnitId = null,
        $pageNumber = 1,
        $userLogin = null
    ) {
        $retorno = new stdClass();

        // Define acesso ao método e define a classe do Webservice
        $this->webService->__setClient($clientId, $clientPassword);
        $this->webService->setClassName(get_class($this));

        // Verifica se o usuário possui acesso ao WebService
        if (!$this->webService->__checkMethod("search", false))
        {
            $retorno->message = $this->webService->__getErrorStr();
            return json_encode($retorno);
        }

        $_REQUEST['pn_page'] = $pageNumber;
        $busGenericSearch = $this->MIOLO->getBusiness("gnuteca3", "BusGenericSearch2");

        $busOperatorLibraryUnit = $this->MIOLO->getBusiness('gnuteca3', 'BusOperatorLibraryUnit');
        $isOperator = $busOperatorLibraryUnit->getOperatorLibraryUnit($userLogin)->operator ? true : false;

        $this->applyLibraryUnitFilter($busGenericSearch, $libraryUnitId);
        
        // Se for operador não aplica nenhum filtro e mostra todos resultados possíveis
        if(!$isOperator)
        {
            $this->excludeSpreadSheet($busGenericSearch);
            $this->excludeExemplaryStatus($busGenericSearch);
        }

        $busGenericSearch->addMaterialWhereByTag($filter, array($termText), 'AND', 'ILIKE');
        // Ordenação dos resultados
        $this->setOrderResult($busGenericSearch);

        // Executa a busca de dados
        $data = $busGenericSearch->getWorkSearch(null, true);
        $retorno->search = $this->createMaterialList($data, $libraryUnitId);

        if (!isset($retorno->search) || empty($retorno->search))
        {
            $retorno->notFoundMessage = 'não gerou nenhum resultado';
        }

        $retorno->count = $busGenericSearch->getCount();
        $retorno->recordsPerPage = LISTING_NREGS;
        return json_encode($retorno);
    }

    /**
     * Exclui planilhas da pesquisa
     */
    private function excludeSpreadSheet($busGenericSearch)
    {
        if (strlen(SIMPLE_SEARCH_EXCLUDE_SPREEDSHET) == 0)
        {
            return;
        }

        //tranformar em array separando por linha;
        $excludeSpreeshet = explode("\n", SIMPLE_SEARCH_EXCLUDE_SPREEDSHET); 

        foreach ($excludeSpreeshet as $info) 
        {
            $busGenericSearch->addMaterialControlWhere("categoryLevel", $info, 'AND', '!=');
        }
    }

    /**
     * Exclui status dos exemplares da pesquisa
     */
    private function excludeExemplaryStatus($busGenericSearch)
    {
        if (strlen(SIMPLE_SEARCH_EXCLUDE_EXEMPLARY_STATUS) == 0)
        {
            return;
        }

        $busGenericSearch->addExemplaryControlWhere(
            "IgnoreExemplaryStatusId",
            explode(",", SIMPLE_SEARCH_EXCLUDE_EXEMPLARY_STATUS),
            "AND",
            "NOT IN",
            TRUE
        );
    }

    /**
     * Aplica o filtro de unidade de biblioteca, se $libraryUnitId for null, busca exemplares em todas as unidades
     */
    private function applyLibraryUnitFilter($busGenericSearch, $libraryUnitId) 
    {
        if(empty($libraryUnitId))
        {
            return;
        }

        $busGenericSearch->addExemplaryControlWhere(
            array('libraryUnitId', 'originalLibraryUnitId'),
            $libraryUnitId,
            "AND",
            "IN",
            TRUE
        );
    }

    /**
     * Cria a lista de materiais formatada
     */
    private function createMaterialList($data, $libraryUnitId)
    {
        $busSearchFormat = $this->MIOLO->getBusiness('gnuteca3', 'BusSearchFormat');
        $busMaterialControl = $this->MIOLO->getBusiness('gnuteca3', 'BusMaterialControl');
        $busExemplaryControl = $this->MIOLO->getBusiness('gnuteca3', 'BusExemplaryControl');

        foreach ($data as $line) 
        {
            // Formato de pesquisa
            $controlNumber = $line['CONTROLNUMBER'];
            $material = $busMaterialControl->getMaterialControl($controlNumber, true);
            $exemplaries = $busExemplaryControl->getExemplaryOfMaterial($controlNumber, null, true);

            // Cria o objeto
            $returnObj = (object) [
                "controlNumber" => $controlNumber,
                "searchFormat" => $busSearchFormat->formatSearchData(GUtil::getParameter('gnuteca3', 'PORTAL_SEARCH_FORMAT_ID'), $line, null, $material->category),
                "cover" => $this->getCoverUrl($material),
                "details" => $this->processExemplaries($exemplaries),
                "materialType" => $material->materialTypeDescription,
                "hasReservable" => $this->hasReservableExemplaries($controlNumber, $libraryUnitId),
                "isCollection" => $busMaterialControl->isCollection($controlNumber),
                "isFascicle" => $busMaterialControl->isCollectionFascicle($controlNumber),
            ];

            $materialList[] = $returnObj;
        }

        return $materialList;
    }

    /**
     * Obtém a imagem da capa do exemplar, caso não possua, aplica um URL padrão
     */
    private function getCoverUrl($material)
    {
        $busFile = $this->MIOLO->getBusiness('gnuteca3', 'BusFile');
        $controlNumberFather = $material->controlNumberFather;
        $baseUrl = $this->MIOLO->getAbsoluteURL(null) . 'miolo25/html/file.php?folder=cover&file=';

        $fileDataObject = (object) [
            "folder" => "cover",
            "fileName" => ($controlNumberFather ?? $material->controlNumber) . '.',
        ];
        $busFile->setData($fileDataObject);
        $image = $busFile->searchFile(true)[0];

        if (
            $busFile->fileExists('cover', $material->controlNumber . '.')
            || ($controlNumberFather != null && $busFile->fileExists('cover', $controlNumberFather . '.'))
        ) {
            // $baseUrl . $material->controlNumber . ''
            return $baseUrl . $image->basename;
        }

        if (trim(COVER_IMAGE_NOT_AVAIABLE))
        {
            return $baseUrl . trim(COVER_IMAGE_NOT_AVAIABLE);
        }

        // Se não existir nenhuma imagem de capa, retorna null
        return null;
    }

    /**
     * Define a ordenação dos resultados baseado no parâmetro SIMPLE_SEARCH_DEFAULT_ORDER
     */
    private function setOrderResult($busGenericSearch)
    {
        // Define a ordenação dos resultados.
        if (strlen(SIMPLE_SEARCH_DEFAULT_ORDER) > 0)
        {
            list($field, $type) = explode(',', SIMPLE_SEARCH_DEFAULT_ORDER);

            if (!$field)
                $field = 1;

            if (!$type)
                $type = 'ASC';

            $types = array(
                'ASC' => SORT_ASC,
                'DESC' => SORT_DESC
            );

            $orderField = $field;
            $orderType = $types[$type];
        }

        if ($orderField && $orderType) 
        {
            $busSearchableField = $this->MIOLO->getBusiness('gnuteca3', 'BusSearchableField');
            $orderFields = $busSearchableField->getDetaisForOrder($orderField);
            // Separa por virgula, caso tenha vários campos
            $orderField = explode(',', $orderFields->field);

            foreach ($orderField as $f) 
            {
                $fieldsX = explode("+", $f);

                foreach ($fieldsX as $f)
                {
                    // Separa field e subfield
                    list($fi, $su) = explode('.', $f);
                    $fieldType = is_null($orderFields->fieldType) ? $orderFields->fieldType : SORT_STRING;
                    $busGenericSearch->setOrder($fi, $su, $orderType, $fieldType);
                }
            }
        }
    }

    /**
     * Pesquisa se o material possui algum exemplar reservável
     */
    private function hasReservableExemplaries($controlNumber, $libraryUnitId) 
    {
        $this->MIOLO->uses('classes/controls/GMaterialDetail.class.php', 'gnuteca3');
        $busExemplaryControl = $this->MIOLO->getBusiness('gnuteca3', 'BusExemplaryControl');
        
        $grouped = [];
        // Obtém os exemplares e os seus estados
        $exemplaries = $busExemplaryControl->getExemplaryOfMaterial($controlNumber, $libraryUnitId, true, true, true);
        foreach ($exemplaries as $exemplar) 
        {
            if (
                $exemplar->exemplaryStatus->executeReserve === 't' &&
                $exemplar->exemplaryStatus->meetReserve === 't'
            ) {
                $libraryUnitId = $exemplar->libraryUnitId;
                $tomo = $exemplar->tomo ?? '-';
                $volume = $exemplar->volume ?? '-';
                
                // Cria uma chave única para o agrupamento
                $groupKey = $libraryUnitId . '|' . $tomo . '|' . $volume;
                $grouped[$groupKey]['itemNumbers'][] = $exemplar->itemNumber;
            }
        }
        
        if (count($grouped) === 1) 
        {
            $grouped[$groupKey]['libraryUnitId'] = $libraryUnitId;
            return $grouped[$groupKey];
        }
        
        if (empty($grouped)) 
        {
            return false;
        }
        
        return true;
    }

    /**
     * Processa os exemplares e retorna um array formatado com os detalhes
     */
    private function processExemplaries($exemplaries)
    {
        if(empty($exemplaries) || !is_array($exemplaries)) 
        {
            return ['Nenhum exemplar disponível no momento'];
        }

        foreach ($exemplaries as $exemplary)
        {
            $key = self::buildExemplaryGroupKey($exemplary);
            $label = self::buildExemplaryGroupLabel($exemplary);

            $exemplariesArray[$key] = [
                "amount" => isset($exemplariesArray[$key]) ? $exemplariesArray[$key]['amount'] + 1 : 1,
                "label" => $label,
                "statusDesc" => $exemplary->exemplaryStatus->description,
            ];
        }

        $details = [];
        foreach ($exemplariesArray as $exemplary)
        {
            $details[] = self::formatExemplaryDetails($exemplary);
        }

        return $details;
    }

    /**
     * Agrupa os exemplares por materialTypeDescription, volume, libraryName e exemplaryStatus
     */
    private static function buildExemplaryGroupKey($exemplary) 
    {
        return implode("|", [
            $exemplary->materialTypeDescription,
            $exemplary->volume,
            $exemplary->libraryName,
            $exemplary->exemplaryStatus->description,
        ]);
    }

    /**
     * Cria a label do grupo de exemplares
     */
    private static function buildExemplaryGroupLabel($exemplary) 
    {
        if($exemplary->exemplaryStatus->executeLoan != DB_TRUE) 
        {
            return null;
        }

        $vol = isset($exemplary->volume) ? "vol.{$exemplary->volume}" : '';
        return "{$exemplary->materialTypeDescription}(s) {$vol} para retirada em {$exemplary->libraryName} ({$exemplary->exemplaryStatus->description})"; // 
    }

    /**
     * Formata os detalhes do grupo de exemplares
     */
    private static function formatExemplaryDetails($exemplary) 
    {
        if(!$exemplary['label'])
        {
            $plural = $exemplary['amount'] == 1 ? 'exemplar indisponível para retirada' : 'exemplares indisponíveis para retirada';
            $exemplary['label'] = $plural . " ({$exemplary['statusDesc']})";
        }

        return $exemplary['amount'] . ' ' . $exemplary['label'];
    }
}