function set($arr, $page)
 {
     $WikiName = PukiWikiConfig::getParam('WikiName');
     list(, $alias, , $name, $this->anchor) = $this->splice($arr);
     if ($name == '' and $this->anchor == '') {
         return FALSE;
     }
     if ($name != '' and preg_match("/^{$WikiName}\$/", $name)) {
         return parent::setParam($page, $name, '', 'pagename', $alias);
     }
     if ($alias == '') {
         $alias = $name . $this->anchor;
     }
     if ($name == '') {
         if ($this->anchor == '') {
             return FALSE;
         }
     } else {
         if (!PukiWikiFunc::is_pagename($name)) {
             return FALSE;
         }
     }
     return parent::setParam($page, $name, '', 'pagename', $alias);
 }
 function set($arr, $page)
 {
     $WikiName = PukiWikiConfig::getParam('WikiName');
     $pagename_aliases = PukiWikiConfig::getParam('pagename_aliases');
     list(, $alias, , $name, $this->anchor) = $this->splice($arr);
     if ($name == '' and $this->anchor == '') {
         return FALSE;
     }
     if ($name != '' and preg_match("/^{$WikiName}\$/", $name)) {
         // ページが存在しない場合
         if (!PukiWikiFunc::is_page($name)) {
             // ページ名エイリアスを探す
             if (array_key_exists($name, $pagename_aliases)) {
                 $name = $pagename_aliases[$name];
             } else {
                 // 共通リンクディレクトリを探す
                 $_name = PukiWikiFunc::get_real_pagename($name);
                 if ($_name) {
                     $name = $_name;
                 }
             }
         }
         return parent::setParam($page, $name, '', 'pagename', $alias);
     }
     if ($alias == '') {
         $alias = $name . $this->anchor;
     }
     if ($name == '') {
         if ($this->anchor == '') {
             return FALSE;
         }
     } else {
         if (!PukiWikiFunc::is_pagename($name)) {
             // ページ名エイリアスを探す
             if (array_key_exists($name, $pagename_aliases)) {
                 $name = $pagename_aliases[$name];
             } else {
                 // 共通リンクディレクトリを探す
                 $_name = PukiWikiFunc::get_real_pagename($name);
                 if ($_name) {
                     $name = $_name;
                 }
             }
         }
     }
     return parent::setParam($page, $name, '', 'pagename', $alias);
 }