--- db/prgsrc/db.cgi	2004/03/17 10:59:16	1.133
+++ db/prgsrc/db.cgi	2004/05/02 20:48:30	1.134
@@ -616,7 +616,12 @@ $sstr=~tr/йцукенгшщзхъфывапролджэячсмить
 #Ищем пересечение или объединение списков вопросов (значений %tasksof)
        	    foreach $sf (keys %tasksof)
            {
-              $count{$_}++ foreach keys %{$tasksof{$sf}};
+		foreach (keys %{$tasksof{$sf}})
+                {
+  		     next if $forbidden{$_};
+                     $count{$_}++ 
+                }
+
            }
              @tasks= ($all ? (grep {$count{$_}==$kvo} keys %count) :
                              keys %count) ;
@@ -2100,6 +2105,7 @@ th	{font-size: x-small; font-family : sa
         }
 
 
+
 	if (param('rand')) {
 		my ($type, $qnum) = ('', 12);
 		$type.=$TypeName{$_} foreach param('type');