mambax7 / pedigree

include/functions.php

<?php
/*
 * You may not change or alter any portion of this comment or credits
 * of supporting developers from this source code or any supporting source code
 * which is considered copyrighted (c) material of the original comment or credit authors.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 */

/**
 * @package        XoopsModules\Pedigree
 * @copyright      {@link https://xoops.org/ XOOPS Project}
 * @license        {@link https://www.gnu.org/licenses/gpl-2.0.html GNU GPL 2 or later}
 * @since
 * @author         Tobias Liegl (aka CHAPI)
 * @author         XOOPS Development Team
 * @link           http://www.chapi.de
 */

use XoopsModules\Pedigree\{
    Constants,
    Helper
};


xoops_load('Pedigree\Animal', $moduleDirName);

/**
 * @param $columncount
 *
 * @return string
 */
function sortTable($columncount)
{
    $ttemp = '';
    if ($columncount > 1) {
        for ($t = 1; $t < $columncount; ++$t) {
            $ttemp .= "'S',";
        }
        $tsarray = "initSortTable('Result', Array({$ttemp}'S'));";
    } else {
        $tsarray = "initSortTable('Result',Array('S'));";
    }

    return $tsarray;
}

/**
 * @param $num
 *
 * @return string
 */
function uploadPicture($num)
{
    $max_imgsize       = $GLOBALS['xoopsModuleConfig']['maxfilesize']; //1024000;
    $max_imgwidth      = $GLOBALS['xoopsModuleConfig']['maximgwidth']; //1500;
    $max_imgheight     = $GLOBALS['xoopsModuleConfig']['maximgheight']; //1000;
    $allowed_mimetypes = ['image/gif', 'image/jpeg', 'image/pjpeg', 'image/x-png', 'image/png'];
    //    $img_dir = XOOPS_ROOT_PATH . "/modules/" . $GLOBALS['xoopsModule']->dirname() . "/images" ;
    $img_dir = $GLOBALS['xoopsModuleConfig']['uploaddir'] . '/images';
    require_once $GLOBALS['xoops']->path('class/uploader.php');
    $field = $_POST['xoops_upload_file'][$num];
    if (!empty($field) || '' != $field) {
        $uploader = new \XoopsMediaUploader($img_dir, $allowed_mimetypes, $max_imgsize, $max_imgwidth, $max_imgheight);
        $uploader->setPrefix('img');
        if ($uploader->fetchMedia($field) && $uploader->upload()) {
            $photo = $uploader->getSavedFileName();
        } else {
            echo $uploader->getErrors();
        }
        createThumbs($photo);

        return $photo;
    }

    return '';
}

/**
 * @param $filename
 */
function createThumbs($filename)
{
    /*
        require_once __DIR__ . '/phpthumb/phpthumb.class.php';
        $thumbnail_widths = array(150, 400);
        foreach ($thumbnail_widths as $thumbnail_width) {
            $phpThumb = new phpThumb();
            // set data
            $phpThumb->setSourceFilename('images/' . $filename);
            $phpThumb->w                    = $thumbnail_width;
            $phpThumb->config_output_format = 'jpeg';
            // generate & output thumbnail
            $output_filename = 'images/thumbnails/' . basename($filename) . '_' . $thumbnail_width . '.' . $phpThumb->config_output_format;
            if ($phpThumb->GenerateThumbnail()) { // this line is VERY important, do not remove it!
                if ($output_filename) {
                    if ($phpThumb->RenderToFile($output_filename)) {
                        // do something on success
                        //echo 'Successfully rendered:<br><img src="'.$output_filename.'">';
                    } else {
                        echo 'Failed (size=' . $thumbnail_width . '):<pre>' . implode("\n\n", $phpThumb->debugmessages) . '</pre>';
                    }
                }
            } else {
                echo 'Failed (size=' . $thumbnail_width . '):<pre>' . implode("\n\n", $phpThumb->debugmessages) . '</pre>';
            }
            unset($phpThumb);
        }

        return true;

        */

    // load the image
    require_once $GLOBALS['xoops']->path('modules/' . $GLOBALS['xoopsModule']->dirname() . '/library/Zebra_Image.php');
    $thumbnail_widths = [150, 400];

    // indicate a target image
    // note that there's no extra property to set in order to specify the target
    // image's type -simply by writing '.jpg' as extension will instruct the script
    // to create a 'jpg' file
    $config_output_format = 'jpeg';

    // create a new instance of the class
    $image = new Zebra_Image();
    // indicate a source image (a GIF, PNG or JPEG file)
    $image->source_path = PEDIGREE_UPLOAD_PATH . "/images/{$filename}";

    foreach ($thumbnail_widths as $thumbnail_width) {
        // generate & output thumbnail
        $output_filename    = PEDIGREE_UPLOAD_PATH . '/images/thumbnails/' . basename($filename) . "_{$thumbnail_width}.{$config_output_format}";
        $image->target_path = $output_filename;
        // since in this example we're going to have a jpeg file, let's set the output
        // image's quality
        $image->jpeg_quality = 100;
        // some additional properties that can be set
        // read about them in the documentation
        $image->preserve_aspect_ratio  = true;
        $image->enlarge_smaller_images = true;
        $image->preserve_time          = true;

        // resize the image to exactly 100x100 pixels by using the "crop from center" method
        // (read more in the overview section or in the documentation)
        //  and if there is an error, check what the error is about
        if (!$image->resize($thumbnail_width, 0)) {
            // if there was an error, let's see what the error is about
            switch ($image->error) {
                case 1:
                    echo 'Source file could not be found!';
                    break;
                case 2:
                    echo 'Source file is not readable!';
                    break;
                case 3:
                    echo 'Could not write target file!';
                    break;
                case 4:
                    echo 'Unsupported source file format!';
                    break;
                case 5:
                    echo 'Unsupported target file format!';
                    break;
                case 6:
                    echo 'GD library version does not support target file format!';
                    break;
                case 7:
                    echo 'GD library is not installed!';
                    break;
                case 8:
                    echo '"chmod" command is disabled via configuration!';
                    break;
            }
            // if no errors
        } else {
            echo 'Success!';
        }
        /*
                if ($phpThumb->GenerateThumbnail()) { // this line is VERY important, do not remove it!
                    if ($output_filename) {
                        if ($phpThumb->RenderToFile($output_filename)) {
                            // do something on success
                            //echo 'Successfully rendered:<br><img src="'.$output_filename.'">';
                        } else {
                            echo 'Failed (size='.$thumbnail_width.'):<pre>'.implode("\n\n", $phpThumb->debugmessages).'</pre>';
                        }
                    }
                } else {
                    echo 'Failed (size='.$thumbnail_width.'):<pre>'.implode("\n\n", $phpThumb->debugmessages).'</pre>';
                }
 */
    }

    unset($image);
}

/**
 * @param $string
 *
 * @return string
 */
function unHtmlEntities($string)
{
    $trans_tbl = array_flip(get_html_translation_table(HTML_ENTITIES));

    return strtr($string, $trans_tbl);
}

/**
 * @param $oid
 * @param $gender
 */
function pups($oid, $gender)
{
    global $numofcolumns, $numMatch, $pages, $columns, $dogs;
    $content = '';
    if (0 == $gender) {
        $sqlQuery = 'SELECT d.id AS d_id, d.pname AS d_pname, d.roft AS d_roft, d.* FROM '
                    . $GLOBALS['xoopsDB']->prefix('pedigree_registry')
                    . ' d LEFT JOIN '
                    . $GLOBALS['xoopsDB']->prefix('pedigree_registry')
                    . ' f ON d.father = f.id LEFT JOIN '
                    . $GLOBALS['xoopsDB']->prefix('pedigree_registry')
                    . ' m ON d.mother = m.id WHERE d.father='
                    . $oid
                    . ' ORDER BY d.pname';
    } else { //@todo - what's suppose to happen for females? this is the same as for male above
        $sqlQuery = 'SELECT d.id AS d_id, d.pname AS d_pname, d.roft AS d_roft, d.* FROM '
                    . $GLOBALS['xoopsDB']->prefix('pedigree_registry')
                    . ' d LEFT JOIN '
                    . $GLOBALS['xoopsDB']->prefix('pedigree_registry')
                    . ' f ON d.father = f.id LEFT JOIN '
                    . $GLOBALS['xoopsDB']->prefix('pedigree_registry')
                    . ' m ON d.mother = m.id WHERE d.mother='
                    . $oid
                    . ' ORDER BY d.pname';
    }
    $queryResult = $GLOBALS['xoopsDB']->query($sqlQuery);
    $numMatch    = $GLOBALS['xoopsDB']->getRowsNum($queryResult);

    $animal = new Pedigree\Animal();
    //test to find out how many user fields there are...
    $fields       = $animal->getNumOfFields();
    $numofcolumns = 1;
    $columns[]    = ['columnname' => 'Name'];
    foreach ($fields as $i => $iValue) {
        $userField   = new Pedigree\Field($fields[$i], $animal->getConfig());
        $fieldType   = $userField->getSetting('fieldtype');
        $fieldObject = new $fieldType($userField, $animal);
        //create empty string
        $lookupValues = '';
        if ($userField->isActive() && $userField->inList()) {
            if ($userField->hasLookup()) {
                $lookupValues = $userField->lookupField($fields[$i]);
                //debug information
                //print_r($lookupValues);
            }
            $columns[] = [
                'columnname'   => $fieldObject->fieldname,
                'columnnumber' => $userField->getId(),
                'lookupval'    => $lookupValues,
            ];
            ++$numofcolumns;
            unset($lookupValues);
        }
    }

    while (false !== ($rowResult = $GLOBALS['xoopsDB']->fetchArray($queryResult))) {
        if ('0' == $rowResult['d_roft']) {
            $gender = '<img src="assets/images/male.gif">';
        } else {
            $gender = '<img src="assets/images/female.gif">';
        }
        $name = stripslashes($rowResult['d_pname']);
        //empty array
        unset($columnvalue);
        //fill array
        for ($i = 1; $i < $numofcolumns; ++$i) {
            $x = $columns[$i]['columnnumber'];
            if (is_array($columns[$i]['lookupval'])) {
                foreach ($columns[$i]['lookupval'] as $key => $keyValue) {
                    if ($keyValue['id'] == $rowResult['user' . $x]) {
                        $value = $keyValue['value'];
                    }
                }
                //debug information
                ///echo $columns[$i]['columnname']."is an array !";
            } //format value - cant use object because of query count
            elseif (0 === strncmp($rowResult['user' . $x], 'http://', 7)) {
                $value = '<a href="' . $rowResult['user' . $x] . '">' . $rowResult['user' . $x] . '</a>';
            } else {
                $value = $rowResult['user' . $x];
            }
            $columnvalue[] = ['value' => $value];
        }
        $dogs[] = [
            'id'          => $rowResult['d_id'],
            'name'        => $name,
            'gender'      => $gender,
            'link'        => '<a href="dog.php?id=' . $rowResult['d_id'] . '">' . $name . '</a>',
            'colour'      => '',
            'number'      => '',
            'usercolumns' => $columnvalue,
        ];
    }

    return null;
}

/**
 * @param $oid
 * @param $pa
 * @param $ma
 */
function bas($oid, $pa, $ma)
{
    global $numofcolumns1, $nummatch1, $pages1, $columns1, $dogs1;
    if ('0' == $pa && '0' == $ma) {
        $sqlQuery = 'SELECT * FROM ' . $GLOBALS['xoopsDB']->prefix('pedigree_registry') . ' WHERE father = ' . $pa . ' AND mother = ' . $ma . ' AND id != ' . $oid . " AND father != '0' AND mother !='0' ORDER BY pname";
    } else {
        $sqlQuery = 'SELECT * FROM ' . $GLOBALS['xoopsDB']->prefix('pedigree_registry') . ' WHERE father = ' . $pa . ' AND mother = ' . $ma . ' AND id != ' . $oid . ' ORDER BY pname';
    }
    $queryResult = $GLOBALS['xoopsDB']->query($sqlQuery);
    $nummatch1   = $GLOBALS['xoopsDB']->getRowsNum($queryResult);

    $animal = new Pedigree\Animal();
    //test to find out how many user fields there are...
    $fields        = $animal->getNumOfFields();
    $numofcolumns1 = 1;
    $columns1[]    = ['columnname' => 'Name'];
    foreach ($fields as $i => $iValue) {
        $userField   = new Pedigree\Field($fields[$i], $animal->getConfig());
        $fieldType   = $userField->getSetting('fieldtype');
        $fieldObject = new $fieldType($userField, $animal);
        //create empty string
        $lookupValues = '';
        if ($userField->isActive() && $userField->inList()) {
            if ($userField->hasLookup()) {
                $lookupValues = $userField->lookupField($fields[$i]);
                //debug information
                //print_r($lookupValues);
            }
            $columns1[] = [
                'columnname'   => $fieldObject->fieldname,
                'columnnumber' => $userField->getId(),
                'lookupval'    => $lookupValues,
            ];
            ++$numofcolumns1;
            unset($lookupValues);
        }
    }

    while (false !== ($rowResult = $GLOBALS['xoopsDB']->fetchArray($queryResult))) {
        if (0 == $rowResult['roft']) {
            $gender = "<img src='assets/images/male.gif'>";
        } else {
            $gender = "<img src='assets/images/female.gif'>";
        }
        $name = stripslashes($rowResult['pname']);
        //empty array
        //        unset($columnvalue1);
        $columnvalue1 = [];
        //fill array
        for ($i = 1; $i < $numofcolumns1; ++$i) {
            $x = $columns1[$i]['columnnumber'];
            if (is_array($columns1[$i]['lookupval'])) {
                foreach ($columns1[$i]['lookupval'] as $key => $keyValue) {
                    if ($keyValue['id'] == $rowResult['user' . $x]) {
                        $value = $keyValue['value'];
                    }
                }
                //debug information
                ///echo $columns[$i]['columnname']."is an array !";
            } //format value - cant use object because of query count
            elseif (0 === strncmp($rowResult['user' . $x], 'http://', 7)) {
                $value = '<a href="' . $rowResult['user' . $x] . '">' . $rowResult['user' . $x] . '</a>';
            } else {
                $value = $rowResult['user' . $x];
            }
            $columnvalue1[] = ['value' => $value];
        }
        $dogs1[] = [
            'id'          => $rowResult['id'],
            'name'        => $name,
            'gender'      => $gender,
            'link'        => '<a href="dog.php?id=' . $rowResult['id'] . '">' . $name . '</a>',
            'colour'      => '',
            'number'      => '',
            'usercolumns' => $columnvalue1,
        ];
    }

    return null;
}

/**
 * @param $oid
 * @param $breeder
 *
 * @return string
 */
function breederof($oid, $breeder)
{
    $content = '';

    if (0 == $breeder) {
        $sqlQuery = 'SELECT id, pname, roft FROM ' . $GLOBALS['xoopsDB']->prefix('pedigree_registry') . " WHERE id_owner = '" . $oid . "' ORDER BY pname";
    } else {
        $sqlQuery = 'SELECT id, pname, roft FROM ' . $GLOBALS['xoopsDB']->prefix('pedigree_registry') . " WHERE id_breeder = '" . $oid . "' ORDER BY pname";
    }
    $queryResult = $GLOBALS['xoopsDB']->query($sqlQuery);
    while (false !== ($rowResult = $GLOBALS['xoopsDB']->fetchArray($queryResult))) {
        if ('0' == $rowResult['roft']) {
            $gender = '<img src="assets/images/male.gif">';
        } else {
            $gender = '<img src="assets/images/female.gif">';
        }
        $link    = '<a href="dog.php?id=' . $rowResult['id'] . '">' . stripslashes($rowResult['pname']) . '</a>';
        $content .= $gender . ' ' . $link . '<br>';
    }

    return $content;
}

/**
 * @param $oid
 *
 * @return string
 */
function getName($oid)
{
    $oid         = (int)$oid;
    $sqlQuery    = 'SELECT pname FROM ' . $GLOBALS['xoopsDB']->prefix('pedigree_registry') . " WHERE id = '{$oid}'";
    $queryResult = $GLOBALS['xoopsDB']->query($sqlQuery);
    while (false !== ($rowResult = $GLOBALS['xoopsDB']->fetchArray($queryResult))) {
        $an = stripslashes($rowResult['pname']);
    }

    return $an;
}

/**
 * @param $PA
 * @return string
 */
function showParent($PA)
{
    $sqlQuery    = 'SELECT pname FROM ' . $GLOBALS['xoopsDB']->prefix('pedigree_registry') . " WHERE id='" . $PA . "'";
    $queryResult = $GLOBALS['xoopsDB']->query($sqlQuery);
    while (false !== ($rowResult = $GLOBALS['xoopsDB']->fetchArray($queryResult))) {
        $result = $rowResult['pname'];
    }
    if (isset($result)) {
        return $result;
    }

    return '';
}

/**
 * @param $pname_hond
 *
 * @return mixed
 */
function findId($pname_hond)
{
    $sqlQuery    = 'SELECT id FROM ' . $GLOBALS['xoopsDB']->prefix('pedigree_registry') . " where pname= '$pname_hond'";
    $queryResult = $GLOBALS['xoopsDB']->query($sqlQuery);
    while (false !== ($rowResult = $GLOBALS['xoopsDB']->fetchArray($queryResult))) {
        $result = $rowResult['id'];
    }

    return $result;
}

/**
 * @param $result
 * @param $prefix
 * @param $link
 * @param $element
 */
function createList($result, $prefix, $link, $element)
{
    global $xoopsTpl;
    $animal = new Pedigree\Animal();
    //test to find out how many user fields there are...
    $fields       = $animal->getNumOfFields();
    $numofcolumns = 1;
    $columns[]    = ['columnname' => 'Name'];
    foreach ($fields as $i => $iValue) {
        $userField   = new Pedigree\Field($fields[$i], $animal->getConfig());
        $fieldType   = $userField->getSetting('fieldtype');
        $fieldObject = new $fieldType($userField, $animal);
        if ($userField->isActive() && $userField->inList()) {
            if ($userField->hasLookup()) {
                $id = $userField->getId();
                $q  = $userField->lookupField($id);
            } else {
                $q = '';
            }
            $columns[] = [
                'columnname'   => $fieldObject->fieldname,
                'columnnumber' => $userField->getId(),
                'lookuparray'  => $q,
            ];
            ++$numofcolumns;
        }
    }

    //add preliminary row to array if passed
    if (is_array($prefix)) {
        $dogs[] = $prefix;
    }

    $helper = XoopsModules\Pedigree\Helper::getInstance();
    require_once $helper->path('include/common.php');

    while (false !== ($row = $GLOBALS['xoopsDB']->fetchArray($result))) {
        //reset $gender
        $gender = '';
        if ((!empty($GLOBALS['xoopsUser']) && $GLOBALS['xoopsUser'] instanceof \XoopsUser)
            && ($row['user'] == $GLOBALS['xoopsUser']->getVar('uid') || true === $modadmin)) {
            $gender = "<a href=\"dog.php?id={$row['id']}\">{$icons['edit']}</a>
                     . <a href=\"'delete.php?id={$row['id']}\">{$icons['delete']}</a>";
        }

        $genImg = (Constants::MALE == $row['roft']) ? 'male.gif' : 'female.gif';
        $gender .= "<img src=\"" . PEDIGREE_IMAGE_PATH . "/{$genImg}'>";

        if ('' != $row['foto']) {
            $camera = ' <img src="' . PEDIGREE_UPLOAD_URL . '/images/dog-icon25.png">';
        } else {
            $camera = '';
        }
        $name = stripslashes($row['pname']) . $camera;
        unset($columnvalue);

        //fill array
        for ($i = 1; $i < $numofcolumns; ++$i) {
            $x           = $columns[$i]['columnnumber'];
            $lookuparray = $columns[$i]['lookuparray'];
            if (is_array($lookuparray)) {
                foreach ($lookuparray as $index => $indexValue) {
                    if ($lookuparray[$index]['id'] == $row['user' . $x]) {
                        //echo "<h1>".$lookuparray[$index]['id']."</h1>";
                        $value = $lookuparray[$index]['value'];
                    }
                }
            } //format value - cant use object because of query count
            elseif (0 === strncmp($row['user' . $x], 'http://', 7)) {
                $value = '<a href="' . $row['user' . $x] . '">' . $row['user' . $x] . '</a>';
            } else {
                $value = $row['user' . $x];
            }
            $columnvalue[] = ['value' => $value];
            unset($value);
        }

        $linkto = '<a href="' . $link . $row[$element] . '">' . $name . '</a>';
        //create array
        $dogs[] = [
            'id'          => $row['id'],
            'name'        => $name,
            'gender'      => $gender,
            'link'        => $linkto,
            'colour'      => '',
            'number'      => '',
            'usercolumns' => $columnvalue,
        ];
    }

    //add data to smarty template
    //assign dog
    $xoopsTpl->assign('dogs', $dogs);
    $xoopsTpl->assign('columns', $columns);
    $xoopsTpl->assign('numofcolumns', $numofcolumns);
    $xoopsTpl->assign('tsarray', Pedigree\Utility::sortTable($numofcolumns));
}

/***************Blocks**************
 *
 * @param $cats
 *
 * @return string
 * @deprecated - NOT USED
 */
function animal_block_addCatSelect($cats)
{
    if (is_array($cats)) {
        $cat_sql = '(' . current($cats);
        array_shift($cats);
        foreach ($cats as $cat) {
            $cat_sql .= ',' . $cat;
        }
        $cat_sql .= ')';
    }

    return $cat_sql;
}

/**
 * @param        $global
 * @param        $key
 * @param string $default
 * @param string $type
 *
 * @return mixed|string
 * @deprecated
 */
function animal_CleanVars(&$global, $key, $default = '', $type = 'int')
{
    switch ($type) {
        case 'string':
            $ret = isset($global[$key]) ? filter_var($global[$key], FILTER_SANITIZE_MAGIC_QUOTES) : $default;
            break;
        case 'int':
        default:
            $ret = isset($global[$key]) ? filter_var($global[$key], FILTER_SANITIZE_NUMBER_INT) : $default;
            break;
    }
    if (false === $ret) {
        return $default;
    }

    return $ret;
}

/**
 * @param $content
 * @deprecated - NOT USED
 */
function animal_meta_keywords($content)
{
    global $xoopsTpl, $xoTheme;
    $myts    = \MyTextSanitizer::getInstance();
    $content = $myts->undoHtmlSpecialChars($myts->displayTarea($content));
    if (isset($xoTheme) && is_object($xoTheme)) {
        $xoTheme->addMeta('meta', 'keywords', strip_tags($content));
    } else {    // Compatibility for old Xoops versions
        $xoopsTpl->assign('xoops_meta_keywords', strip_tags($content));
    }
}

/**
 * @param $content
 * @deprecated - NOT USED
 */
function animal_meta_description($content)
{
    global $xoopsTpl, $xoTheme;
    $myts    = \MyTextSanitizer::getInstance();
    $content = $myts->undoHtmlSpecialChars($myts->displayTarea($content));
    if (isset($xoTheme) && is_object($xoTheme)) {
        $xoTheme->addMeta('meta', 'description', strip_tags($content));
    } else {    // Compatibility for old Xoops versions
        $xoopsTpl->assign('xoops_meta_description', strip_tags($content));
    }
}

/**
 * Verify that a mysql table exists
 *
 * @package       pedigree
 * @author        Hervé Thouzard (http://www.herve-thouzard.com)
 * @copyright (c) Hervé Thouzard
 */
//function tableExists($tablename)
//{
//
//  $result=$GLOBALS['xoopsDB']->queryF("SHOW TABLES LIKE '$tablename'");
//  return($GLOBALS['xoopsDB']->getRowsNum($result) > 0);
//}

/**
 * Create download by letter choice bar/menu
 * updated starting from this idea https://xoops.org/modules/news/article.php?storyid=6497
 *
 * @return string html
 *
 * @deprecated
 * @access  public
 * @author  luciorota
 */
function lettersChoice()
{
    $helper = Helper::getInstance();
    $helper->loadLanguage('main');
    xoops_load('XoopsLocal');

    $criteria = $helper->getHandler('Tree')->getActiveCriteria();
    $criteria->setGroupby('UPPER(LEFT(pname,1))');
    $countsByLetters = $helper->getHandler('Tree')->getCounts($criteria);
    // Fill alphabet array
    //    $alphabet       = XoopsLocal::getAlphabet();
    //        $xLocale = new \XoopsLocal;
    //        $alphabet =  $xLocale->getAlphabet();
    $alphabet = explode(',', _MA_PEDIGREE_LTRCHARS);
    //$alphabet       = pedigreeGetAlphabet();
    $alphabet_array = [];
    foreach ($alphabet as $letter) {
        $letter_array = [];
        if (isset($countsByLetters[$letter])) {
            $letter_array['letter'] = $letter;
            $letter_array['count']  = $countsByLetters[$letter];
            //            $letter_array['url']    = "" . XOOPS_URL . "/modules/" . $helper->getModule()->dirname() . "/viewcat.php?list={$letter}";
            $letter_array['url'] = '' . XOOPS_URL . '/modules/' . $helper->getModule()->dirname() . "/result.php?f=pname&amp;l=1&amp;w={$letter}%25&amp;o=pname";
        } else {
            $letter_array['letter'] = $letter;
            $letter_array['count']  = 0;
            $letter_array['url']    = '';
        }
        $alphabet_array[$letter] = $letter_array;
        unset($letter_array);
    }
    // Render output
    if (!isset($GLOBALS['xoTheme']) || !is_object($GLOBALS['xoTheme'])) {
        require_once $GLOBALS['xoops']->path('class/theme.php');
        $GLOBALS['xoTheme'] = new \xos_opal_Theme();
    }
    require_once $GLOBALS['xoops']->path('class/template.php');
    $letterschoiceTpl          = new \XoopsTpl();
    $letterschoiceTpl->caching = false; // Disable cache

The property $caching was declared of type integer, but false is of type false. Maybe add a type cast?

    $letterschoiceTpl->assign('alphabet', $alphabet_array);
    $html = $letterschoiceTpl->fetch('db:' . $helper->getDirname() . '_common_letterschoice.tpl');
    unset($letterschoiceTpl);

    return $html;
}

/**
 * Detemines if a table exists in the current db
 *
 * @param string $table the table name (without XOOPS prefix)
 *
 * @return bool True if table exists, false if not
 *
 * @access public
 * @author xhelp development team
 */
function hasTable($table)
{
    $bRetVal = false;
    //Verifies that a MySQL table exists
    $GLOBALS['xoopsDB'] = \XoopsDatabaseFactory::getDatabaseConnection();
    $realName           = $GLOBALS['xoopsDB']->prefix($table);

    $sql = 'SHOW TABLES FROM ' . XOOPS_DB_NAME;
    $ret = $GLOBALS['xoopsDB']->queryF($sql);

    while (false !== (list($m_table) = $GLOBALS['xoopsDB']->fetchRow($ret))) {
        if ($m_table == $realName) {
            $bRetVal = true;
            break;
        }
    }
    $GLOBALS['xoopsDB']->freeRecordSet($ret);

    return $bRetVal;
}

/**
 * Gets a value from a key in the xhelp_meta table
 *
 * @param string $key
 *
 * @return string $value
 *
 * @access public
 * @author xhelp development team
 */
function getMeta($key)
{
    $GLOBALS['xoopsDB'] = \XoopsDatabaseFactory::getDatabaseConnection();
    $sql                = sprintf('SELECT metavalue FROM `%s` WHERE metakey= `%s` ', $GLOBALS['xoopsDB']->prefix('pedigree_meta'), $GLOBALS['xoopsDB']->quoteString($key));
    $ret                = $GLOBALS['xoopsDB']->query($sql);
    if (!$ret) {
        $value = false;
    } else {
        [$value] = $GLOBALS['xoopsDB']->fetchRow($ret);
    }

    return $value;
}

/**
 * Sets a value for a key in the xhelp_meta table
 *
 * @param string $key
 * @param string $value
 *
 * @return bool true if success, false if failure
 *
 * @access public
 * @author xhelp development team
 */
function setMeta($key, $value)
{
    $GLOBALS['xoopsDB'] = \XoopsDatabaseFactory::getDatabaseConnection();
    if (false !== ($ret = Pedigree\Utility::getMeta($key))) {
        $sql = sprintf('UPDATE `%s` SET metavalue = `%s` WHERE metakey = `%s` ', $GLOBALS['xoopsDB']->prefix('pedigree_meta'), $GLOBALS['xoopsDB']->quoteString($value), $GLOBALS['xoopsDB']->quoteString($key));
    } else {
        $sql = sprintf('INSERT INTO `%s` (metakey, metavalue) VALUES (`%s`, `%s`)', $GLOBALS['xoopsDB']->prefix('pedigree_meta'), $GLOBALS['xoopsDB']->quoteString($key), $GLOBALS['xoopsDB']->quoteString($value));
    }
    $ret = $GLOBALS['xoopsDB']->queryF($sql);
    if (!$ret) {
        return false;
    }

    return true;
}

/**
 * @param     $name
 * @param     $value
 * @param int $time
 */
function setCookieVar($name, $value, $time = 0)
{
    if (0 == $time) {
        $time = time() + 3600 * 24 * 365;
    }
    setcookie($name, $value, $time, '/', ini_get('session.cookie_domain'), ini_get('session.cookie_secure'), ini_get('session.cookie_httponly'));
}

/**
 * @param        $name
 * @param string $default
 *
 * @return string
 */
function getCookieVar($name, $default = '')
{
    if (isset($_COOKIE[$name]) && ($_COOKIE[$name] > '')) {
        return $_COOKIE[$name];
    }

    return $default;
}

/**
 * @return array
 */
function getCurrentUrls()
{
    $http        = (false === mb_strpos(XOOPS_URL, 'https://')) ? 'http://' : 'https://';
    $phpSelf     = $_SERVER['SCRIPT_NAME'];
    $httpHost    = $_SERVER['HTTP_HOST'];
    $sql = $_SERVER['QUERY_STRING'];

    if ('' != $sql) {
        $sql = '?' . $sql;
    }

    $currentURL = $http . $httpHost . $phpSelf . $sql;

    $urls                = [];
    $urls['http']        = $http;
    $urls['httphost']    = $httpHost;
    $urls['phpself']     = $phpSelf;
    $urls['querystring'] = $sql;
    $urls['full']        = $currentURL;

    return $urls;
}

/**
 * @return mixed
 */
function getCurrentPage()
{
    $urls = Pedigree\Utility::getCurrentUrls();

    return $urls['full'];
}

/**
 * @param array $errors
 *
 * @return string
 */
function formatErrors($errors = [])
{
    $ret = '';
    foreach ($errors as $key => $value) {
        $ret .= "<br> - {$value}";
    }

    return $ret;
}