TrackbackPingPatch

カテゴリ[fswiki]
for 0.33

*** Install.pm.orig	Tue Oct 19 10:26:24 2004
--- Install.pm	Tue Oct 19 10:25:02 2004
***************
*** 28,35 ****
  	#対象ping設定画面
  
  	#	編集画面で無い場合のみ、右上メニューに"ping"を表示
  	if ($wiki->get_CGI()->param('action') ne 'EDIT'
! 		&& $wiki->page_exists($wiki->get_CGI()->param('page'))){
  		$wiki->add_menu("ping",$wiki->config('script_name')."?action=PINGFORM&page=" 
  			. &Util::url_encode($wiki->get_CGI()->param('page')),800);
  	}
--- 28,37 ----
  	#対象ping設定画面
  
  	#	編集画面で無い場合のみ、右上メニューに"ping"を表示
+ 	my $login = $wiki->get_login_info();
  	if ($wiki->get_CGI()->param('action') ne 'EDIT'
! 		&& $wiki->page_exists($wiki->get_CGI()->param('page'))
! 			&& defined($login) && $login->{type}==0){
  		$wiki->add_menu("ping",$wiki->config('script_name')."?action=PINGFORM&page=" 
  			. &Util::url_encode($wiki->get_CGI()->param('page')),800);
  	}