パート編集後に編集対象のパートにリダイレクトするようにした。

diff --git a/lib/Wiki.pm b/lib/Wiki.pm
index 11fddda..00c3c9e 100644 (file)
--- a/lib/Wiki.pm
+++ b/lib/Wiki.pm
@@ -1478,11 +1478,23 @@ sub get_CGI {
 # <pre>
 # $wiki-&gt;redirect(&quot;FrontPage&quot;);
 # </pre>
+# <p>
+# ÂèÆó°ú¿ô¤Ë¥Ñ¡¼¥ÈÈÖ¹æ¤òÅϤ¹¤È¤½¤Î¥Ñ¡¼¥È¤Ë¥ê¥À¥¤¥ì¥¯¥È¤·¤Þ¤¹¡£
+# </p>
+# <pre>
+# $wiki-&gt;redirect(&quot;FrontPage&quot;, 1);
+# </pre>
+#
 #==============================================================================
 sub redirect {
        my $self = shift;
        my $page = shift;
-       $self->redirectURL($self->create_page_url($page));
+       my $part = shift;
+       my $url = $self->create_page_url($page);
+       if($part){
+               $url .= "#p".Util::url_encode($part);
+       }
+       $self->redirectURL($url);
 }
 
 #==============================================================================

diff --git a/plugin/core/EditPage.pm b/plugin/core/EditPage.pm
index 381d783..d28aad7 100644 (file)
--- a/plugin/core/EditPage.pm
+++ b/plugin/core/EditPage.pm
@@ -64,6 +64,9 @@ sub do_action {
                                  <li>Äɲ䵤줿Éôʬ¤Ï<ins class="diff">¤³¤Î¤è¤¦¤Ë</ins>ɽ¼¨¤µ¤ì¤Þ¤¹¡£</li>
                                  <li>ºï½ü¤µ¤ì¤¿Éôʬ¤Ï<del class="diff">¤³¤Î¤è¤¦¤Ë</del>ɽ¼¨¤µ¤ì¤Þ¤¹¡£</li>
                                </ul>
+                               <p>
+                                 º¹Ê¬¤ò³Îǧ¤·¤ÆºÆÅÙÊÔ½¸¤ò¹Ô¤Ã¤Æ¤¯¤À¤µ¤¤¡§
+                               </p>
                                <div class="diff">$diff</div>
                        |;
                        
@@ -87,7 +90,7 @@ sub do_action {
                                $wiki->save_page($pagename,$save_content,$sage);
                                
                                if($content ne ""){
-                                       $wiki->redirect($pagename);
+                                       $wiki->redirect($pagename, $artno);
                                } else {
                                        if($artno eq ""){
                                                $wiki->set_title($pagename."¤òºï½ü¤·¤Þ¤·¤¿");