[TWiki-Dev] [SVN] r6366 - twiki/branches/DEVELOP/twikiplugins/NatSkinPlugin/lib/TWiki/Plugins

[<Mic...@nt...>]

Author: MichaelDaum
Date: 2005-09-14 12:22:13 -0700 (Wed, 14 Sep 2005)
New Revision: 6366

Modified:
   twiki/branches/DEVELOP/twikiplugins/NatSkinPlugin/lib/TWiki/Plugins/NatSkinPlugin.pm
Log:
Item371: fixed getValueFromTopic() (should wrap arround the new dakar api instead)


Modified: twiki/branches/DEVELOP/twikiplugins/NatSkinPlugin/lib/TWiki/Plugins/NatSkinPlugin.pm
===================================================================
--- twiki/branches/DEVELOP/twikiplugins/NatSkinPlugin/lib/TWiki/Plugins/NatSkinPlugin.pm	2005-09-14 18:29:21 UTC (rev 6365)
+++ twiki/branches/DEVELOP/twikiplugins/NatSkinPlugin/lib/TWiki/Plugins/NatSkinPlugin.pm	2005-09-14 19:22:13 UTC (rev 6366)
@@ -564,7 +564,6 @@
     #writeDebug("get WHITEBOARD from $web.$topic");
     my $whiteBoard = _getValueFromTopic($web, $topic, 'WHITEBOARD') || '';
     $whiteBoard =~ s/^\s*(.*?)\s*$/$1/g;
-    #writeDebug("whiteBoard='$whiteBoard'");
     my $formAction = '';
     $formAction = '&action=form' if $whiteBoard eq 'off';
     $text = 
@@ -879,7 +878,7 @@
 
   if (!$text) {
     my $meta;
-    ($meta, $text) = &TWiki::Func::readTopic($theWeb, $theTopic, 1);
+    ($meta, $text) = &TWiki::Func::readTopic($theWeb, $theTopic);
   }
 
   foreach my $line (split(/\n/, $text)) {
@@ -889,7 +888,7 @@
     }
   }
 
-  return "";
+  return '';
 }
 
 
@@ -918,7 +917,7 @@
   # get maintainers of the group
   my %adminsEmail;
   my @adminAddrs;
-  my $value = _getValueFromTopic("User", $group, "ALLOWTOPICCHANGE", $text);
+  my $value = _getValueFromTopic("User", $group, "ALLOWTOPICCHANGE");
   foreach my $admin (split(/[\,\s]+/, $value)) {
     if ($admin =~ /Group$/) {
       foreach my $admin (&TWiki::Access::getUsersOfGroup($admin)) { # FIXME on dakar