[Fswiki-dev] KeywordページでのInterWikiName 対応

Back to archive index

Kousuke Taniguchi tinse****@u01*****
2003年 6月 24日 (火) 23:48:07 JST


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 メーリングリストの案内
Back to archive index