掲示板のメンテナンスのツリーが長くなったので、別スレにします。

うちの場合、検索結果からリンク先番号をクリックすると、そのツリーの頭に飛びます。
普通はそうなるようですが、飛んだ後に、該当番号がどこだったか忘れて探してしまうので
直接そのツリーの該当番号に飛ばしたいと思って改造しました。

#  検索実行  #
sub search {

のルーチンの、以下の部分です。

	if ($in{'pastlog'}) {
		print "($oya) ";
#		print " <a href=\"$script?mode=allread&no=$oya&pastlog=$in{'pastlog'}&act=past\">$no</a>： \n";
#		print " <a href=\"$script?mode=allread&no=$oya#$no&pastlog=$in{'pastlog'}&act=past\">$no</a>： \n";
		print " <a href=\"$script?mode=allread&pastlog=$in{'pastlog'}&act=past&no=$oya#$no\">$no</a>： \n";
	} else {
		print "($oya) ";
#		print " <a href=\"$script?mode=allread&no=$oya\">$no</a>： \n";
		print " <a href=\"$script?mode=allread&no=$oya#$no\">$no</a>： \n";
	}

＃でコメントにしてある行が変更前です。

&no=$oya　の所を　&no=$oya#$no

と変更することで、該当番号にジャンプできました。
ところが、何故か過去ログではツリーの頭にジャンプしてしまいます。

色々試行錯誤した結果、&no=$oya#$no を最後に持っていったらうまくいきました。
こういうこともあるんですね。


次の問題は、過去ログの一括表示から、「リストへもどる」リンクをクリックすると
過去ログの最終のログのツリー表示になるのが標準の動作だと思います。

私は、今見ていたログのツリーに戻ってほしいと思いました。
読んだ過去記事の前後でどんな話題をしていたか気になるからです。

#  一括表示  #
sub allread {

のルーチンの、最初と最後に、「リストへもどる」と言うリンクがありますが
この2か所を下記のように変更しました。

# [<a href="$script?page=$page&fsize=$fsize&mode=$in{'act'}">リストへもどる</a>]
	if ($in{'pastlog'}) {
	  print "[<a href=\"$script?list=tree&mode=past&fsize=$fsize&pastlog=$in{'pastlog'}\">リストへもどる</a>]\n";
	} else {
	  print "[<a href=\"$script?page=$page&fsize=$fsize&mode=$in{'act'}\">リストへもどる</a>]\n";
	}

ところが、ジャンプ先で過去ログがオープンエラーと表示されます。そこで

#  過去ログ表示  #
sub past_view {
	$fsize=$in{'fsize'};
# 追加--------
	if ($in{'pastlog'}) { 
	$pastno = sprintf("%04d", $in{'pastlog'});
	$in{'pastlog'} = $pastno; 
	}
# ここまで----
	open(IN,"$nofile") || &error("Open Error: $nofile");

こう追加したら無事に今見ているログのツリー表示になりました。
が、この修正のせいか、現在ログツリー表示から過去ログリンクに飛ぶとエラーになります。

#  リスト表示  #
sub list_view {

の中を

#	print "[<a href=\"$script?mode=past&fsize=$fsize\">過去ﾛｸﾞ</a>]\n" if ($pastkey);
	print "[<a href=\"$script?mode=past&fsize=$fsize&pastlog=\">過去ﾛｸﾞ</a>]\n" if ($pastkey);

こう変更したら直ったみたいです。

修正箇所を直ぐに忘れてしまうので、備忘録です。(^^;
ぶっつけ本番で修正したためエラー表示に遭遇した方ごめんなさい。m(__)m