mambax7 / pedigree

admin/fields.php

<?php
/* ------------------------------------------------------------------------
      pedigree
          Copyright 2004, James Cotton
           http://www.dobermannvereniging.nl
      Template
          Copyright 2004 Thomas Hill
          <a href="http://www.worldware.com">worldware.com</a>
   ------------------------------------------------------------------------
   ------------------------------------------------------------------------
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   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.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
   ------------------------------------------------------------------------
*/

/**
 * @package         XoopsModules\Pedigree
 * @copyright       Copyright 2004, James Cotton <https://www.dobermannvereniging.nl>
 * @copyright       Copyright 2004, Thomas Hill <https://www.worldware.com>
 * @copyright       {@link https://xoops.org/ XOOPS Project}
 * @license         {@link https://www.gnu.org/licenses/gpl-2.0.html GNU GPL 2 or later}
 * @author          XOOPS Module Dev Team
 */

use Xmf\Request;
use XoopsModules\Pedigree;

//To be deleted?

require_once \dirname(__DIR__, 3) . '/include/cp_header.php';
//require_once XOOPS_ROOT_PATH . "/modules/" . $xoopsModule->dirname() . "/include/pedigree_includes.php";
//require_once \dirname(__DIR__) . "/include/pedigree_includes.php";

xoops_loadLanguage('modinfo', basename(\dirname(__DIR__, 2)));
require_once $GLOBALS['xoops']->path('modules/pedigree/admin/menu.php');

// Get HTTP post/get parameters.
//import_request_variables("gp", "param_");
extract($_GET, EXTR_PREFIX_ALL, 'param');
extract($_POST, EXTR_PREFIX_ALL, 'param');

$op = Request::getCmd('op', 'main');
//
// Writes out the form to get all config parameters.
//
function pedigree_fields_form()
{
    $config_fields = pedigree_get_config_fields();

The function pedigree_get_config_fields was not found. Maybe you did not declare it correctly or list all dependencies?

    $values        = pedigree_get_config();

The function pedigree_get_config was not found. Maybe you did not declare it correctly or list all dependencies?

    print "
    <form action='fields.php' method='POST' enctype='application/x-www-form-urlencoded'>\n
    <table border='1' cellpadding='0' cellspacing='0' width='100%'>\n
        <tr><th>" . _AM_PEDIGREE_CTITLE . "</th></tr>\n
        <tr>\n
        <td class='bg2'>\n
            <table width='100%' border='0' cellpadding='4' cellspacing='1'>\n";

    foreach ($config_fields as $field => $prompt) {
        if ('config_id' === $field) {
            continue;
        }
        $pname = 'param_' . $field;

The assignment to $pname is dead and can be removed.

        print "
                <tr nowrap='nowrap'>\n
                <td class ='head'>{$prompt}</td>\n
                <td class='even aligntop'>\n
                    <input type='text' name='{$field}' size='32' maxlength='32' value ='{$values[$field]}'>\n
                </td></tr>\n
                </tr>\n";
    }
    print "
                <td class='head'>&nbsp;</td>\n
                <td class='even'>\n
                    <input type='hidden' name='op' value='config'>\n
                    <input type='hidden' name='window' value='config'>\n
                    <input type='submit' value='" . _AM_PEDIGREE_BUT_GO . "'>\n
                </td></tr>\n
            </table>\n
        </td></tr>\n
    </table>\n
    </form>\n";
}

/**
 * @todo: create pedigree_admin_hmenu - it doesn't exist
 *
 * Displays the main admin interface
 */
function pedigree_fields_main()
{
    //xoops_cp_header();
    $p_title = _AM_PEDIGREE_CONFIGURE;
    print "<h4 style='text-align:left;'>$p_title</h4>";
    pedigree_admin_hmenu();

The function pedigree_admin_hmenu was not found. Maybe you did not declare it correctly or list all dependencies?

    pedigree_fields_form();
    xoops_cp_footer();
    exit();

Using exit here is not recommended.

}

/**
 * @todo: create pedigree_get_config_fields() method, it doesn't exist anywhere
 *
 * Processes the configuration update request, by
 * getting the HTTP parameters, and putting them into the database.
 */
function pedigree_fields_post()
{
    $config_fields = pedigree_get_config_fields();

The function pedigree_get_config_fields was not found. Maybe you did not declare it correctly or list all dependencies?

    foreach ($config_fields as $field => $prompt) {
        $param = 'param_' . $field;

The assignment to $param is dead and can be removed.

        global $$param;
    }
    $param_config_id = 1;
    $sql             = 'REPLACE INTO ' . $GLOBALS['xoopsDB']->prefix('pedigree_fields') . ' (' . pedigree_to_string($config_fields) . ') VALUES (';

The function pedigree_to_string was not found. Maybe you did not declare it correctly or list all dependencies?

    $first = true;
    foreach ($config_fields as $field => $prompt) {
        $param = 'param_' . $field;
        if (!$first) {
            $sql .= ', ';
        }
        // Handle a 'feature' of PHP that adds backslashes to HTTP parameters.
        $param_value = $$param;
        $sql         .= "'" . $GLOBALS['xoopsDB']->escape($param_value) . "'";
        $first       = false;
    }
    $sql .= ' )';
    if (!$GLOBALS['xoopsDB']->query($sql)) {
        $error = $GLOBALS['xoopsDB']->error();
        xoops_cp_header();
        pedigree_show_sql_error(_AM_PEDIGREE_ERR_ADD_FAILED, $error, $sql);

The function pedigree_show_sql_error was not found. Maybe you did not declare it correctly or list all dependencies?

        xoops_cp_footer();
    } else {
        redirect_header('fields.php', 1, _AM_PEDIGREE_OK_DB);
    }
    exit();

Using exit here is not recommended.

}

switch ($op) {
    case 'main':
        pedigree_fields_main();
        break;
    case 'config':
        pedigree_fields_post();
        break;
    default:
        //xoops_cp_header();
        /* @todo: move hard coded language string to language file */
        print "<h1>Unknown method requested ('{$op}')</h1>";
        xoops_cp_footer();
}