function set($arr, $page)
 {
     $WikiName = PukiWikiConfig::getParam('WikiName');
     list($name) = $this->splice($arr);
     // 共通リンクディレクトリ対応 by nao-pon
     $alias = $name;
     // 無視リストに含まれている、あるいは存在しないページを捨てる
     // 共通リンクディレクトリ対応 by nao-pon
     //if (in_array($name,$this->forceignorepages) or PukiWikiFunc::is_page($name))
     if (in_array($name, $this->forceignorepages)) {
         return FALSE;
     }
     // 共通リンクディレクトリを探す by nao-pon
     if (!PukiWikiFunc::is_page($name)) {
         if (!($name = PukiWikiFunc::get_real_pagename($name))) {
             return FALSE;
         }
     }
     // 共通リンクディレクトリ対応 by nao-pon
     //return parent::setParam($page,$name,'','pagename',$name);
     return parent::setParam($page, $name, '', 'pagename', $alias);
 }
 function set($arr, $page)
 {
     $pagename_aliases = PukiWikiConfig::getParam('pagename_aliases');
     $WikiName = PukiWikiConfig::getParam('WikiName');
     list($name) = $this->splice($arr);
     // 共通リンクディレクトリ対応 by nao-pon
     $alias = $name;
     $tip = '';
     // 無視リストに含まれている、あるいは存在しないページを捨てる
     // 共通リンクディレクトリ対応 by nao-pon
     //if (in_array($name,$this->forceignorepages) or PukiWikiFunc::is_page($name))
     if (in_array($name, $this->forceignorepages)) {
         return FALSE;
     }
     // 共通リンクディレクトリを探す by nao-pon
     if (!PukiWikiFunc::is_page($name)) {
         // ページ名エイリアスを探す
         if (array_key_exists($name, $pagename_aliases)) {
             $name = explode('!', $pagename_aliases[$name]);
             if (count($name) == 2) {
                 $tip = $name[1];
             }
             $name = $name[0];
         } else {
             // 共通リンクディレクトリを探す
             if (!($name = PukiWikiFunc::get_real_pagename($name))) {
                 return FALSE;
             }
         }
     }
     // 共通リンクディレクトリ対応 by nao-pon
     //return parent::setParam($page,$name,'','pagename',$name);
     return parent::setParam($page, $name, '', 'pagename', $alias, $tip);
 }