Naoki Takezoe
ADS28****@nifty*****
2003年 6月 26日 (木) 10:07:23 JST
Fork竹添です。
ありがとうございます。次回の開発版で取り込みます。
> tinsep19です。
> すいません。なんか凄い形式でメール送っちゃってました。
> 送り直します。
>
>
> diff -urN Wiki.orig/Keyword.pm Wiki/Keyword.pm
> --- Wiki.orig/Keyword.pm 2003-06-20 17:43:38.000000000 +0900
> +++ Wiki/Keyword.pm 2003-06-23 23:11:14.000000000 +0900
> @@ -12,9 +12,11 @@
> sub new {
> my $class = shift;
> my $wiki = shift;
> -
> + my $interwiki = shift;
> +
> my $self = {};
> $self->{wiki} = $wiki;
> + $self->{interwiki} = $interwiki;
> $self->{keywords} = [];
> bless $self,$class;
>
> @@ -99,6 +101,13 @@
> my $label = $1;
> my $url = $2;
> $self->url_anchor($url,$label);
> + #InterWikiName
> + } elsif($self->{interwiki}->exists_interwiki($source)){
> + my $pre = $self->{interwiki}->{g_pre};
> + my $post = $self->{interwiki}->{g_post};
> + my $label = $self->{interwiki}->{g_label};
> + my $url = $self->{interwiki}->{g_url};
> + $self->url_anchor($url,$label);
>
> # ページ別名リンク
> } elsif($source =~ /\[\[([^\[]+?)\|(.+?)\]\]/){
> diff -urN Wiki.orig/Parser.pm Wiki/Parser.pm
> --- Wiki.orig/Parser.pm 2003-06-20 17:43:26.000000000 +0900
> +++ Wiki/Parser.pm 2003-06-23 23:09:06.000000000 +0900
> @@ -17,8 +17,8 @@
>
> my $self = {};
> $self->{wiki} = $wiki;
> - $self->{keyword} = Wiki::Keyword->new($wiki);
> $self->{interwiki} = Wiki::InterWiki->new($wiki);
> + $self->{keyword} = Wiki::Keyword->new($wiki,$self->{interwiki});
>
> $self->{dl_flag} = 0;
> $self->{dt} = "";
>
>
>
>
> _______________________________________________
> Fswiki-dev mailing list
> Fswik****@lists*****
> http://lists.sourceforge.jp/mailman/listinfo/fswiki-dev
>
----
Naoki Takezoe <ADS28****@nifty*****>