部分編集後、またはコメント書き込み後に編集箇所にジャンプします。
[jump to part]
$skip_succeed_page = 1 の場合は編集箇所のセクションに自動的にジャンプ、
$skip_succeed_page = 0 の場合には$CompletedSuccessfully?ページからのリンクが該当セクションへのリンクになります。
関連するカスタマイズ
do_write()内の変更
&set_info($form{mypage}, $info_IsFrozen, 0 + $form{myfrozen}); # yakty add [jump to part] start my $part = sprintf("#i%d", $form{mypart} - 2) if ($form{mypart} >= 2); $part = sprintf("#c%d", $form{mycmtno}) if($form{mycmd} eq 'comment'); # yakty add [jump to part] my $linkurl = &armor_name($form{mypage} . $part); return if ($skip_succeed_page and &redirect_to($linkurl)); # Walrus add [skip succeed page] start # yakty add [jump to part] end #return if ($skip_succeed_page and &redirect_to(&armor_name($form{mypage}))); # Walrus add [skip succeed page] start # yakty del [jump to part] &print_header($CompletedSuccessfully); &print_message($resource{saved}); &print_content("$resource{continuereading} $linkurl"); # yakty add [jump to part] #&print_content("$resource{continuereading} @{[&armor_name($form{mypage})]}"); # yakty del [jump to part] &print_footer($CompletedSuccessfully); } else {
embedded_to_html()内の変更
- 2003-12-15 (Mon) 09:20:28 <a name="#c%d">を<a name="c%d">に修正。
if ($embedded eq $embed_comment or $embedded eq $embed_rcomment) { my $lastmodified = &get_info($form{mypage}, $info_LastModified); $comment_no++; # yakty add [multi comment] return <<"EOD"; @{[sprintf(qq(<a name="c%d"> </a>), $comment_no)]}<!-- yakty add [jump to part] --> <form action="$url_xcg" method="post"><!-- yakty mod [for XREA] --> <input type="hidden" name="mycmd" value="comment"> <input type="hidden" name="mypage" value="$escapedmypage"> <input type="hidden" name="myLastModified" value="$lastmodified">