<?php
/*
 * This file is part of EC-CUBE
 *
 * Copyright(c) 2000-2010 LOCKON CO.,LTD. All Rights Reserved.
 *
 * http://www.lockon.co.jp/
 *
 * 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.
 *
 * 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.
 */

// {{{ requires
require_once CLASS_EX_REALDIR . 'page_extends/admin/LC_Page_Admin_Ex.php';
require_once CLASS_EX_REALDIR . 'helper_extends/SC_Helper_CSV_Ex.php';

/**
 * カテゴリ管理 のページクラス.
 *
 * @package Page
 * @author LOCKON CO.,LTD.
 * @version $Id$
 */
class LC_Page_Admin_Products_Category extends LC_Page_Admin_Ex {

    // {{{ properties

    // }}}
    // {{{ functions

    /**
     * Page を初期化する.
     *
     * @return void
     */
    function init() {
        parent::init();
        $this->tpl_subtitle = 'カテゴリー登録';
        $this->tpl_mainpage = 'products/category.tpl';
        $this->tpl_subnavi  = 'products/subnavi.tpl';
        $this->tpl_mainno = 'products';
        $this->tpl_subno  = 'category';
        $this->tpl_onload = " fnSetFocus('category_name'); ";
    }

    /**
     * Page のプロセス.
     *
     * @return void
     */
    function process() {
        $this->action();
        $this->sendResponse();
    }

    /**
     * Page のアクション.
     *
     * @return void
     */
    function action() {
        $objDb      = new SC_Helper_DB_Ex();
        $objFormParam = new SC_FormParam_Ex();

        // 入力パラメータ初期化
        $this->initParam($objFormParam);
        $objFormParam->setParam($_POST);
        $objFormParam->convParam();

        switch($this->getMode()) {
        // カテゴリ登録/編集実行
        case 'edit':
            $category_id = $objFormParam->getValue('category_id');
            if ($category_id == '') {
                $this->doRegister($objFormParam);
            } else {
                $this->doEdit($objFormParam);
            }
            break;
        // 入力ボックスへ編集対象のカテゴリ名をセット
        case 'pre_edit':
            $this->doPreEdit($objFormParam);
            break;
        // カテゴリ削除
        case 'delete':
            $this->doDelete($objFormParam, $objDb);
            break;
        // 表示順を上へ
        case 'up':
            $this->doUp($objFormParam);
            break;
        // 表示順を下へ
        case 'down':
            $this->doDown($objFormParam);
            break;
        // XXX 使われていないコード？
        case 'moveByDnD':
            // DnDしたカテゴリと移動先のセットを分解する
            $keys = explode("-", $_POST['keySet']);
            if ($keys[0] && $keys[1]) {
                $objQuery = new SC_Query_Ex();
                $objQuery->begin();

                // 移動したデータのrank、level、parent_category_idを取得
                $rank   = $objQuery->get('rank', "dtb_category", "category_id = ?", array($keys[0]));
                $level  = $objQuery->get('level', "dtb_category", "category_id = ?", array($keys[0]));
                $parent = $objQuery->get("parent_category_id", "dtb_category", "category_id = ?", array($keys[0]));

                // 同一level内のrank配列を作成
                $objQuery->setOption("ORDER BY rank DESC");
                if ($level == 1) {
                    // 第1階層の時
                    $arrRet = $objQuery->select('rank', "dtb_category", "level = ?", array($level));
                } else {
                    // 第2階層以下の時
                    $arrRet = $objQuery->select('rank', "dtb_category", "level = ? AND parent_category_id = ?", array($level, $parent));
                }
                for ($i = 0; $i < sizeof($arrRet); $i++) {
                    $rankAry[$i + 1] = $arrRet[$i]['rank'];
                }

                // 移動したデータのグループ内データ数
                $my_count = $this->lfCountChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $keys[0]);
                if ($rankAry[$keys[1]] > $rank) {
                    // データが今の位置より上がった時
                    $up_count = $rankAry[$keys[1]] - $rank;
                    $decAry   = $objQuery->select("category_id", "dtb_category", "level = ? AND rank > ? AND rank <= ?", array($level, $rank, $rankAry[$keys[1]]));
                    foreach($decAry as $value){
                        // 上のグループから減算
                        $this->lfDownRankChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $value["category_id"], $my_count);
                    }
                    // 自分のグループに加算
                    $this->lfUpRankChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $keys[0], $up_count);
                } else if($rankAry[$keys[1]] < $rank) {
                    // データが今の位置より下がった時
                    $down_count = 0;
                    $incAry     = $objQuery->select("category_id", "dtb_category", "level = ? AND rank < ? AND rank >= ?", array($level, $rank, $rankAry[$keys[1]]));
                    foreach ($incAry as $value) {
                        // 下のグループに加算
                        $this->lfUpRankChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $value["category_id"], $my_count);
                        // 合計減算値
                        $down_count += $this->lfCountChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $value["category_id"]);
                    }
                    // 自分のグループから減算
                    $this->lfDownRankChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $keys[0], $down_count);
                }
                $objQuery->commit();
            }
            break;
        // カテゴリツリークリック時
        case 'tree':
            break;
         // CSVダウンロード
        case 'csv':
            // CSVを送信する。正常終了の場合、終了。
            $objCSV = new SC_Helper_CSV_Ex();
            $objCSV->sfDownloadCategoryCsv() && exit;
            break;
        default:
            break;
        }

        $parent_category_id = $objFormParam->getValue('parent_category_id');
        // 空の場合は親カテゴリを0にする
        if (empty($parent_category_id)) {
            $parent_category_id = 0;
        }
        // 親カテゴリIDの保持
        $this->arrForm['parent_category_id'] = $parent_category_id;
        // カテゴリ一覧を取得
        $this->arrList = $this->findCategoiesByParentCategoryId($parent_category_id);
        // カテゴリツリーを取得
        $this->arrTree = $objDb->sfGetCatTree($parent_category_id);
        // ぱんくずの生成
        $arrBread = array();
        $objDb->findTree($this->arrTree, $parent_category_id, $arrBread);
        $this->breadcrumbs = "ホーム" . $this->createBreaCrumbs($arrBread);
    }

    /**
     * カテゴリの削除を実行する.
     *
     * 下記の場合は削除を実施せず、エラーメッセージを表示する.
     *
     * - 削除対象のカテゴリに、子カテゴリが1つ以上ある場合
     * - 削除対象のカテゴリを、登録商品が使用している場合
     *
     * カテゴリの削除は、物理削除で行う.
     *
     * @param SC_FormParam $objFormParam
     * @param SC_Helper_Db $objDb
     * @return void
     */
    function doDelete(&$objFormParam, &$objDb) {
        $category_id = $objFormParam->getValue('category_id');
        $objQuery =& SC_Query_Ex::getSingletonInstance();

        // 子カテゴリのチェック
        $where = "parent_category_id = ? AND del_flg = 0";
        $count = $objQuery->count("dtb_category", $where, array($category_id));
        if ($count > 0) {
             $this->arrErr['category_name'] = "※ 子カテゴリが存在するため削除できません。<br/>";
             return;
        }
        // 登録商品のチェック
        $table = "dtb_product_categories AS T1 LEFT JOIN dtb_products AS T2 ON T1.product_id = T2.product_id";
        $where = "T1.category_id = ? AND T2.del_flg = 0";
        $count = $objQuery->count($table, $where, array($category_id));
        if ($count > 0) {
            $this->arrErr['category_name'] = "※ カテゴリ内に商品が存在するため削除できません。<br/>";
            return;
        }

        // ランク付きレコードの削除(※処理負荷を考慮してレコードごと削除する。)
        $objDb->sfDeleteRankRecord("dtb_category", "category_id", $category_id, "", true);
    }

    /**
     * 編集対象のカテゴリ名を, 入力ボックスへ表示する.
     *
     * @param SC_FormParam $objFormParam
     * @return void
     */
    function doPreEdit(&$objFormParam) {
        $category_id = $objFormParam->getValue('category_id');

        $objQuery =& SC_Query_Ex::getSingletonInstance();

        // 編集対象のカテゴリ名をDBより取得する
        $where = "category_id = ?";
        $category_name = $objQuery->get("category_name", "dtb_category", $where, array($category_id));

        // 入力ボックスへカテゴリ名を保持する.
        $this->arrForm['category_name'] = $category_name;
        // カテゴリIDを保持する.
        $this->arrForm['category_id']   = $category_id;
    }

    /**
     * カテゴリの編集を実行する.
     *
     * 下記の場合は, 編集を実行せず、エラーメッセージを表示する
     *
     * - カテゴリ名がすでに使用されている場合
     *
     * @param SC_FormParam $objFormParam
     * @return void
     */
    function doEdit(&$objFormParam) {
        // 入力項目チェック
        $arrErr = $objFormParam->checkError();
        if (count($arrErr) > 0) {
            $this->arrErr = $arrErr;
            $this->arrForm['category_id']   = $objFormParam->getValue('category_id');
            $this->arrForm['category_name'] = $objFormParam->getValue('category_name');
            return;
        }

        // 重複チェック
        $objQuery =& SC_Query_Ex::getSingletonInstance();
        $where = "parent_category_id = ? AND category_id <> ? AND category_name = ?";
        $count = $objQuery->count("dtb_category",
                                  $where,
                                  array($objFormParam->getValue('parent_category_id'),
                                        $objFormParam->getValue('category_id'),
                                        $objFormParam->getValue('category_name')));
        if ($count > 0) {
            $this->arrErr['category_name']  = "※ 既に同じ内容の登録が存在します。<br/>";
            $this->arrForm['category_id']   = $objFormParam->getValue('category_id');
            $this->arrForm['category_name'] = $objFormParam->getValue('category_name');
            return;
        }

        // カテゴリ更新
        $arrCategory = array();
        $arrCategory['category_name'] = $objFormParam->getValue('category_name');
        $arrCategory['update_date']   = 'NOW()';
        $this->updateCategory($objFormParam->getValue('category_id'), $arrCategory);
    }

    /**
     * カテゴリの登録を実行する.
     *
     * 下記の場合は, 登録を実行せず、エラーメッセージを表示する
     *
     * - カテゴリ登録数の上限を超える場合
     * - 階層登録数の上限を超える場合
     * - カテゴリ名がすでに使用されている場合
     *
     * @param SC_FormParam $objFormParam
     * @return void
     */
    function doRegister(&$objFormParam) {
        // 入力項目チェック
        $arrErr = $objFormParam->checkError();
        if (count($arrErr) > 0) {
            $this->arrErr = $arrErr;
            $this->arrForm['category_name'] = $objFormParam->getValue('category_name');
            return;
        }

        // 登録数上限チェック
        $objQuery =& SC_Query_Ex::getSingletonInstance();
        $where = "del_flg = 0";
        $count = $objQuery->count("dtb_category", $where);
        if ($count >= CATEGORY_MAX) {
            $this->arrErr['category_name']  = "※ カテゴリの登録最大数を超えました。<br/>";
            $this->arrForm['category_name'] = $objFormParam->getValue('category_name');
            return;
        }

        // 階層上限チェック
        if ($this->isOverLevel($objFormParam->getValue('parent_category_id'))) {
            $this->arrErr['category_name']  = "※ " . LEVEL_MAX . "階層以上の登録はできません。<br/>";
            $this->arrForm['category_name'] = $objFormParam->getValue('category_name');
            return;
        }

        // 重複チェック
        $where = "parent_category_id = ? AND category_name = ?";
        $count = $objQuery->count("dtb_category",
                                  $where,
                                  array($objFormParam->getValue('parent_category_id'),
                                        $objFormParam->getValue('category_name')));
        if ($count > 0) {
            $this->arrErr['category_name']  = "※ 既に同じ内容の登録が存在します。<br/>";
            $this->arrForm['category_name'] = $objFormParam->getValue('category_name');
            return;
        }

        // カテゴリ登録
        $this->registerCategory($objFormParam->getValue('parent_category_id'),
                                $objFormParam->getValue('category_name'),
                                $_SESSION['member_id']);
    }

    /**
     * カテゴリの表示順序を上へ移動する.
     *
     * @param SC_FormParam $objFormParam
     * @return void
     */
    function doUp(&$objFormParam) {
        $category_id = $objFormParam->getValue('category_id');

        $objQuery =& SC_Query_Ex::getSingletonInstance();
        $objQuery->begin();
        $up_id = $this->lfGetUpRankID($objQuery, "dtb_category", "parent_category_id", "category_id", $category_id);
        if ($up_id != "") {
            // 上のグループのrankから減算する数
            $my_count = $this->lfCountChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $category_id);
                // 自分のグループのrankに加算する数
                $up_count = $this->lfCountChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $up_id);
                if ($my_count > 0 && $up_count > 0) {
                    // 自分のグループに加算
                    $this->lfUpRankChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $category_id, $up_count);
                    // 上のグループから減算
                    $this->lfDownRankChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $up_id, $my_count);
                }
        }
        $objQuery->commit();
    }

    /**
     * カテゴリの表示順序を下へ移動する.
     *
     * @param SC_FormParam $objFormParam
     * @return void
     */
    function doDown(&$objFormParam) {
        $category_id = $objFormParam->getValue('category_id');

        $objQuery =& SC_Query_Ex::getSingletonInstance();
        $objQuery->begin();
        $down_id = $this->lfGetDownRankID($objQuery, "dtb_category", "parent_category_id", "category_id", $category_id);
        if ($down_id != "") {
            // 下のグループのrankに加算する数
            $my_count = $this->lfCountChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $category_id);
            // 自分のグループのrankから減算する数
            $down_count = $this->lfCountChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $down_id);
            if ($my_count > 0 && $down_count > 0) {
                // 自分のグループから減算
                $this->lfUpRankChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $down_id, $my_count);
                // 下のグループに加算
                $this->lfDownRankChilds($objQuery, "dtb_category", "parent_category_id", "category_id", $category_id, $down_count);
            }
        }
        $objQuery->commit();
    }

    /**
     * パラメータの初期化を行う
     *
     * @param SC_FormParam $objFormParam
     * @return void
     */
    function initParam(&$objFormParam) {
        $objFormParam->addParam("親カテゴリID", "parent_category_id", null, null, array());
        $objFormParam->addParam("カテゴリID", "category_id", null, null, array());
        $objFormParam->addParam("カテゴリ名", "category_name", STEXT_LEN, 'KVa', array("EXIST_CHECK", "SPTAB_CHECK", "MAX_LENGTH_CHECK"));
    }

    /**
     * ぱんくず文字列を生成する.
     *
     * @param array $arrBread カテゴリ配列
     * @return string ぱんくず文字列
     */
    function createBreaCrumbs($arrBread) {
        $breadcrumbs = '';
        // TODO JSON で投げて, フロント側で処理した方が良い？
        $count = count($arrBread) - 1;
        for ($i = $count; $i >= 0; $i--) {
            // フロント側で &gt; へエスケープするため, ここでは > を使用
            if ($i === $count) {
                $breadcrumbs .= ' > ';
            }
            $breadcrumbs .= $arrBread[$i]['category_name'];
            if ($i > 0) {
                $breadcrumbs .= ' > ';
            }
        }
        return $breadcrumbs;
    }

    /**
     * 親カテゴリIDでカテゴリを検索する.
     *
     * - 表示順の降順でソートする
     * - 有効なカテゴリを返す(del_flag = 0)
     *
     * @param SC_Query $objQuery
     * @param int $parent_category_id 親カテゴリID
     * @return array カテゴリの配列
     */
    function findCategoiesByParentCategoryId($parent_category_id) {
        if (!$parent_category_id) {
            $parent_category_id = 0;
        }
        $objQuery =& SC_Query_Ex::getSingletonInstance();
        $col   = "category_id, category_name, level, rank";
        $where = "del_flg = 0 AND parent_category_id = ?";
        $objQuery->setOption("ORDER BY rank DESC");
        return $objQuery->select($col, "dtb_category", $where, array($parent_category_id));
    }

    /**
     * カテゴリを更新する
     *
     * @param integer $category_id 更新対象のカテゴリID
     * @param array 更新する カラム名 => 値 の連想配列
     * @return void
     */
    function updateCategory($category_id, $arrCategory) {
        $objQuery =& SC_Query_Ex::getSingletonInstance();
        $objQuery->begin();
        $where = "category_id = ?";
        $objQuery->update("dtb_category", $arrCategory, $where, array($category_id));
        $objQuery->commit();
    }

    /**
     * カテゴリを登録する
     *
     * @param integer 親カテゴリID
     * @param string カテゴリ名
     * @param integer 作成者のID
     * @return void
     */
    function registerCategory($parent_category_id, $category_name, $creator_id) {
        $objQuery =& SC_Query_Ex::getSingletonInstance();
        $objQuery->begin();

        $rank = null;
        if ($parent_category_id == 0) {
            // ROOT階層で最大のランクを取得する。
            $where = "parent_category_id = ?";
            $rank = $objQuery->max('rank', "dtb_category", $where, array($parent_category_id)) + 1;
        } else {
            // 親のランクを自分のランクとする。
            $where = "category_id = ?";
            $rank = $objQuery->get('rank', "dtb_category", $where, array($parent_category_id));
            // 追加レコードのランク以上のレコードを一つあげる。
            $sqlup = "UPDATE dtb_category SET rank = (rank + 1) WHERE rank >= ?";
            $objQuery->exec($sqlup, array($rank));
        }

        $where = "category_id = ?";
        // 自分のレベルを取得する(親のレベル + 1)
        $level = $objQuery->get('level', "dtb_category", $where, array($parent_category_id)) + 1;

        $arrCategory = array();
        $arrCategory['category_name'] = $category_name;
        $arrCategory['parent_category_id'] = $parent_category_id;
        $arrCategory['create_date'] = "Now()";
        $arrCategory['update_date'] = "Now()";
        $arrCategory['creator_id']  = $creator_id;
        $arrCategory['rank']        = $rank;
        $arrCategory['level']       = $level;
        $arrCategory['category_id'] = $objQuery->nextVal('dtb_category_category_id');
        $objQuery->insert("dtb_category", $arrCategory);

        $objQuery->commit();    // トランザクションの終了
    }

    /**
     * カテゴリの階層が上限を超えているかを判定する
     *
     * @param integer 親カテゴリID
     * @param 超えている場合 true
     */
    function isOverLevel($parent_category_id) {
        $objQuery =& SC_Query_Ex::getSingletonInstance();
        $level = $objQuery->get('level', "dtb_category", "category_id = ?", array($parent_category_id));
        return $level >= LEVEL_MAX;
    }

    /**
     * デストラクタ.
     *
     * @return void
     */
    function destroy() {
        parent::destroy();
    }

    // 並びが1つ下のIDを取得する。
    function lfGetDownRankID($objQuery, $table, $pid_name, $id_name, $id) {
        // 親IDを取得する。
        $col = "$pid_name";
        $where = "$id_name = ?";
        $pid = $objQuery->get($col, $table, $where, $id);
        // すべての子を取得する。
        $col = "$id_name";
        $where = "del_flg = 0 AND $pid_name = ? ORDER BY rank DESC";
        $arrRet = $objQuery->select($col, $table, $where, array($pid));
        $max = count($arrRet);
        $down_id = "";
        for($cnt = 0; $cnt < $max; $cnt++) {
            if($arrRet[$cnt][$id_name] == $id) {
                $down_id = $arrRet[($cnt + 1)][$id_name];
                break;
            }
        }
        return $down_id;
    }

    // 並びが1つ上のIDを取得する。
    function lfGetUpRankID($objQuery, $table, $pid_name, $id_name, $id) {
        // 親IDを取得する。
        $col = "$pid_name";
        $where = "$id_name = ?";
        $pid = $objQuery->get($col, $table, $where, $id);
        // すべての子を取得する。
        $col = "$id_name";
        $where = "del_flg = 0 AND $pid_name = ? ORDER BY rank DESC";
        $arrRet = $objQuery->select($col, $table, $where, array($pid));
        $max = count($arrRet);
        $up_id = "";
        for($cnt = 0; $cnt < $max; $cnt++) {
            if($arrRet[$cnt][$id_name] == $id) {
                $up_id = $arrRet[($cnt - 1)][$id_name];
                break;
            }
        }
        return $up_id;
    }

    function lfCountChilds($objQuery, $table, $pid_name, $id_name, $id) {
        $objDb = new SC_Helper_DB_Ex();
        // 子ID一覧を取得
        $arrRet = $objDb->sfGetChildrenArray($table, $pid_name, $id_name, $id);
        return count($arrRet);
    }

    function lfUpRankChilds($objQuery, $table, $pid_name, $id_name, $id, $count) {
        $objDb = new SC_Helper_DB_Ex();
        // 子ID一覧を取得
        $arrRet = $objDb->sfGetChildrenArray($table, $pid_name, $id_name, $id);
        $line = SC_Utils_Ex::sfGetCommaList($arrRet);
        $sql = "UPDATE $table SET rank = (rank + $count) WHERE $id_name IN ($line) ";
        $sql.= "AND del_flg = 0";
        $ret = $objQuery->exec($sql);
        return $ret;
    }

    function lfDownRankChilds($objQuery, $table, $pid_name, $id_name, $id, $count) {
        $objDb = new SC_Helper_DB_Ex();
        // 子ID一覧を取得
        $arrRet = $objDb->sfGetChildrenArray($table, $pid_name, $id_name, $id);
        $line = SC_Utils_Ex::sfGetCommaList($arrRet);
        $sql = "UPDATE $table SET rank = (rank - $count) WHERE $id_name IN ($line) ";
        $sql.= "AND del_flg = 0";
        $ret = $objQuery->exec($sql);
        return $ret;
    }
}
