[TWiki-Dev] [SVN] r9453 - twiki/branches/DEVELOP/lib/TWiki/UI

[<Cra...@nt...>]

Author: CrawfordCurrie
Date: 2006-03-22 08:35:28 -0800 (Wed, 22 Mar 2006)
New Revision: 9453

Modified:
   twiki/branches/DEVELOP/lib/TWiki/UI/Manage.pm
Log:
Item1937: you have to be able to view a topic in order to rename it

Modified: twiki/branches/DEVELOP/lib/TWiki/UI/Manage.pm
===================================================================
--- twiki/branches/DEVELOP/lib/TWiki/UI/Manage.pm	2006-03-22 14:14:16 UTC (rev 9452)
+++ twiki/branches/DEVELOP/lib/TWiki/UI/Manage.pm	2006-03-22 16:35:28 UTC (rev 9453)
@@ -131,27 +131,6 @@
 
 }
 
-=pod
-
----++ StaticMethod rename( $session )
-
-| =action= | one of =createweb=, =bulkRegister=, =deleteUserAccount=, =editSettings=, =saveSettings= | _none_ |
-
-| =*createweb*= |||
-| =newweb= |
-| =baseweb= |
-| =newtopic= |
-| =webbgcolor= |
-| =sitemapwhat= |
-| =sitemapuseto= |
-| =nosearchall= |
-
-| =topicName= |||
-| =webName= |||
-| =user= |||
-
-=cut
-
 sub _createWeb {
     my $session = shift;
 
@@ -368,6 +347,9 @@
 
     # Has user selected new name yet?
     if( ! $newTopic || $confirm ) {
+        # Must be able to view the source to rename it
+        TWiki::UI::checkAccess( $session, $oldWeb, $oldTopic,
+                                'view', $session->{user} );
         _newTopicScreen( $session,
                          $oldWeb, $oldTopic,
                          $newWeb, $newTopic,