24a25
> use Data::Dumper;
249a251
> 
268c270,271
< 	@tops = grep( /^$topics$/, @tops ) if ( $topics );
---
>         @tops = grep( /^$topics$/, @tops ) if ( $topics );
> 	#@tops = grep( /^$topics$/, @tops ) ;
282,283c285
< 	push( @groups, $group ) if ( $group );
< 
---
>         push( @groups, $group ) if ( $group );
284a287,302
>     my $grep = `$cmd $q%ACTION\\{.*\\}%$q $dd/$web/*.txt`;
>     my %processed;
>     foreach my $line ( split( /\r?\n/, $grep )) {
>       if ( $line =~ m/^.*\/([^\/\.\r\n]+)\.txt:/o ) {
>         my $topic = $1;
>         if ( !$processed{$topic} && ( !$topics || $topic =~ m/^$topics$/ )) {
>           my $text = TWiki::Func::readTopicText( $web, $topic );
>           my $tacts = TWiki::Plugins::ActionTrackerPlugin::ActionSet::load( $web, $topic, $text );
>           $tacts = $tacts->search( $attrs );
>           $actions->concat( $tacts );
>           $processed{$topic} = 1;
>         }
>       }
>     }
> 
> =pod
286,288c304,307
< 	  $group =~ m/^(.*)$/o; # untaint
< 	  my $grep = `$cmd -H $q%ACTION\\{.*\\}%$q $1`;
< 	  foreach my $line ( split( /\r?\n/, $grep )) {
---
>           $group =~ m/^(.*)$/o; # untaint
> 	 # my $grep = `$cmd -H $q%ACTION\\{.*\\}%$q $1`;
>          my $grep = `$cmd $q%ACTION\\{.*\\}%$q $dd/$web/*.txt`;
>              foreach my $line ( split( /\r?\n/, $grep )) {
301c320
< 
---
> =cut
321a341,344
> if( open( FILEW, ">>/var/log/soccoetwiki/error.txt" ) ) {
>           #  print FILEW "TEXT TEST\n";
>           #  close( FILEW );
>         }
324c347
<       if ( -d "$dataDir/$web" && $web =~ /^$webs$/ ) {
---
>        if ( -d "$dataDir/$web" && $web =~ /^$webs$/ ) {
332c355
< 	next if ( $thisWebNoSearchAll =~ /on/i && ( $web ne $theweb ) );
---
>  	next if ( $thisWebNoSearchAll =~ /on/i && ( $web ne $theweb ) );