Changeset 2226 for trunk/ActionTrackerPlugin/lib/Foswiki/Plugins/ActionTrackerPlugin/ActionSet.pm

Timestamp:

01/29/09 13:35:57 (3 years ago)

Author:

CrawfordCurrie

Message:

Item455: port to foswiki Item5974: correct CSS for search results table Item5938: load CSS for ACTIONSEARCH Item5606: Item5915: respect global settings for time format

Location:

trunk/ActionTrackerPlugin/lib/Foswiki

Files:

• . (moved) (moved from trunk/ActionTrackerPlugin/lib/TWiki)
• Plugins/ActionTrackerPlugin/ActionSet.pm (modified) (8 diffs)

trunk/ActionTrackerPlugin/lib/Foswiki/Plugins/ActionTrackerPlugin/ActionSet.pm

@@ -18 +18 @@
 # Perl object that represents a set of actions (possibly interleaved
 # with blocks of topic text)
-package TWiki::Plugins::ActionTrackerPlugin::ActionSet;
+package Foswiki::Plugins::ActionTrackerPlugin::ActionSet;
 
 use strict;
 use integer;
-use TWiki::Func;
-
-use TWiki::Plugins::ActionTrackerPlugin::Format;
+use Foswiki::Func;
+
+use Foswiki::Plugins::ActionTrackerPlugin::Format;
 
 # PUBLIC constructor
@@ -48 +48 @@
 
     my @blocks = split( /(%ACTION{.*?}%|%ENDACTION%)/, $text );
-    my $actionSet = new TWiki::Plugins::ActionTrackerPlugin::ActionSet();
+    my $actionSet = new Foswiki::Plugins::ActionTrackerPlugin::ActionSet();
     my $i = 0;
     my $actionNumber = 0;
@@ -72 +72 @@
                 }
             }
-            my $action = new TWiki::Plugins::ActionTrackerPlugin::Action(
+            my $action = new Foswiki::Plugins::ActionTrackerPlugin::Action(
                 $web, $topic, $actionNumber++, $attrs, $descr );
             $actionSet->add($action);
@@ -137 +137 @@
     my ( $this, $attrs ) = @_;
     my $action;
-    my $chosen = new TWiki::Plugins::ActionTrackerPlugin::ActionSet();
+    my $chosen = new Foswiki::Plugins::ActionTrackerPlugin::ActionSet();
 
     foreach $action ( @{$this->{ACTIONS}} ) {
@@ -262 +262 @@
     my ( $web, $attrs, $internal ) = @_;
     $internal = 0 unless defined ( $internal );
-    my $actions = new TWiki::Plugins::ActionTrackerPlugin::ActionSet();
-        my @tops = TWiki::Func::getTopicList( $web );
+    my $actions = new Foswiki::Plugins::ActionTrackerPlugin::ActionSet();
+        my @tops = Foswiki::Func::getTopicList( $web );
         my $topics = $attrs->{topic};
 
         @tops = grep( /^$topics$/, @tops ) if ( $topics );
     my $grep =
-      TWiki::Func::searchInWebContent( '%ACTION{.*}%', $web,
+      Foswiki::Func::searchInWebContent( '%ACTION{.*}%', $web,
                                        \@tops,
                                        { type => 'regex',
@@ -277 +277 @@
         # SMELL: always read the text, because it's faster in the current
         # impl to find the perms embedded in it
-        my $text = TWiki::Func::readTopicText(
+        my $text = Foswiki::Func::readTopicText(
             $web, $topic, undef, $internal );
-        next unless $internal || TWiki::Func::checkAccessPermission(
-            'VIEW', TWiki::Func::getWikiName(), $text, $topic, $web);
-        my $tacts = TWiki::Plugins::ActionTrackerPlugin::ActionSet::load(
+        next unless $internal || Foswiki::Func::checkAccessPermission(
+            'VIEW', Foswiki::Func::getWikiName(), $text, $topic, $web);
+        my $tacts = Foswiki::Plugins::ActionTrackerPlugin::ActionSet::load(
             $web, $topic, $text );
         $tacts = $tacts->search( $attrs );
@@ -299 +299 @@
     # Exclude webs flagged as NOSEARCHALL
     $choice .= ',public' if $filter ne $theweb;
-    my @webs = grep { /^$filter$/ } TWiki::Func::getListOfWebs( $choice );
-    my $actions = new TWiki::Plugins::ActionTrackerPlugin::ActionSet();
+    my @webs = grep { /^$filter$/ } Foswiki::Func::getListOfWebs( $choice );
+    my $actions = new Foswiki::Plugins::ActionTrackerPlugin::ActionSet();
 
     foreach my $web ( @webs ) {
@@ -320 +320 @@
 
     my $found = undef;
-    my $pre = new TWiki::Plugins::ActionTrackerPlugin::ActionSet();
-    my $post = new TWiki::Plugins::ActionTrackerPlugin::ActionSet();
+    my $pre = new Foswiki::Plugins::ActionTrackerPlugin::ActionSet();
+    my $post = new Foswiki::Plugins::ActionTrackerPlugin::ActionSet();
 
     foreach my $action (@{$this->{ACTIONS}}) {