キーワードでWikiページを指定した場合にリンクにならないバグを修正。

- BBS-サポート掲示板/949
- BugTrack-wiki/338

diff --git a/lib/Wiki/Keyword.pm b/lib/Wiki/Keyword.pm
index fb50358..b8a1c3b 100644 (file)
--- a/lib/Wiki/Keyword.pm
+++ b/lib/Wiki/Keyword.pm
@@ -381,17 +381,9 @@ sub url_anchor {
 # Wiki¥¢¥ó¥«
 #==============================================================================
 sub wiki_anchor {
-       my $self = shift;
-       my $page = shift;
-       my $name = shift;
-       
-       if($name eq ""){
-               $name = $page;
-       }
-       my $keyword = {};
-       $keyword->{word} = $name;
-       $keyword->{page} = $page;
-       push(@{$self->{keywords}},$keyword);
+       my ($self, $page, $name) = @_;
+
+       $self->{'keyword'}->{$name} = { 'type' => 'w', 'value' => $page };
 }
 
 1;