--- db/prgsrc/db.cgi	2003/07/05 00:32:03	1.122
+++ db/prgsrc/db.cgi	2004/01/10 22:52:20	1.128
@@ -93,6 +93,14 @@ my %TypeName=('children'=>'Д', 'game'=>'
               'chgk'=>'Ч', 'brain'=>'Б', 'beskrylka'=>'Л','ehruditka'=>'Э');
 
 
+sub countz {
+  my ($dbh,$type)=@_;
+  
+  my $sth=$dbh->prepare("select count(*) from Questions where Type LIKE '%$type%'");
+  $sth->execute();
+  my ($tmp)=$sth->fetchrow();
+  return $tmp;
+}
 
 my $all=param('all');
 $all=0 if lc $all eq 'no';
@@ -176,12 +184,12 @@ sub GetTournament {
 sub fetchquestion {
 	my ($sth,$q,$WithTour)=@_;
 	if ($WithTour) {
-		($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'},
+		($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'},$$q{'Sources'},
          	$$q{'Number'}, 
          	$$q{'Title'}, $$q{'TourTitle'}, $$q{'FileName'},$$q{'PlayedAt'},$$q{'TourNumber'}) = 
 	        $sth->fetchrow;
 	} else {
-		($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'},
+		($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'},$$q{'Sources'},
          	$$q{'Number'})= 
 	        $sth->fetchrow;
 	}
@@ -203,13 +211,13 @@ sub SelectQuestions {
 
 	my $query;
 	if ($WithTour) {
- 		$query="SELECT QuestionId, Questions.Question, Answer, Comments, Authors,
+ 		$query="SELECT QuestionId, Questions.Question, Answer, Comments, Authors, Sources,
                         Questions.Number
 			, t2.Title, t1.Title, t2.FileName,  t2.PlayedAt,t1.Number
 			from Questions,Tournaments as t1, Tournaments as t2 
                         WHERE $where";
 	} else {
- 		$query="SELECT QuestionId, Questions.Question, Answer, Comments, Authors,
+ 		$query="SELECT QuestionId, Questions.Question, Answer, Comments, Authors, Sources,
                         Questions.Number from Questions 
                         WHERE $where";
 	}
@@ -738,7 +746,7 @@ sub makewhere {
       $type .= ($_=$TypeName{$_}) foreach @type;
       my $where=' 0 ';
       foreach (@type) {
- 	     $where.= " OR (Type ='$_') OR (Type ='$_Д') ";
+ 	     $where.= " OR (Type ='$_') OR (Type ='$_Д') OR (Type ='Д$_') ";
       } 
       $where.= "OR (Type='ЧБ')" if ($type=~/Ч|Б/);
       return $where;
@@ -1050,9 +1058,20 @@ sub PrintTournament {
 			};
 		}
 	} else {
-		my ($qnum) = GetQNum($dbh);
-		$output .= h2("Банк Вопросов: $qnum вопрос".&Suffix($qnum)) 
-                          . p . "\n";
+		my ($qnum) = GetQNum($dbh,0);
+		my ($qnum1) = GetQNum($dbh,1);
+		$output .= h2("База вопросов").
+                 h3("$qnum запис".&Suffix2($qnum).
+                 " (уникальных $qnum1)");
+
+#		 h4("<table>".
+#		 Tr(td("Из них:"), td("Вопросов ЧГК: ".countz($dbh,'Ч'))).		 
+#		 Tr(td("&nbsp;"), td("Вопросов для брейна: ".countz($dbh,'Б'))).		 
+#		 Tr(td("&nbsp;"), td("Вопросов для ЧГК и брейна: ".countz($dbh,'ЧБ'))).		 
+#		 Tr(td("&nbsp;"), td("Интернет-вопросов: ".countz($dbh,'И'))).		 
+#		 Tr(td("&nbsp;"), td("Бескрылок: ".countz($dbh,'Л'))).
+#		 Tr(td("&nbsp;"),td("Заданий для Своей Игры: ".countz($dbh,'Я'))).
+#		 Tr(td("&nbsp;"),td("Эрудиток: ".countz($dbh,'Э'))))."</table>"
 	}
 
 	for ($i = 0; $i <= $#Tours; $i++) {
@@ -1143,6 +1162,23 @@ sub Suffix {
 	return $suffix;
 }
 
+
+sub Suffix1 {
+	my ($qnum) = @_;
+	my ($suffix) = 'я' if $qnum =~ /[234]$/;
+       $suffix = 'е' if $qnum =~ /1$/;
+       $suffix = 'й' if $qnum =~ /[567890]$/ || $qnum =~ /1.$/;
+	return $suffix;
+}
+
+sub Suffix2 {
+	my ($qnum) = @_;
+	my ($suffix) = 'и' if $qnum =~ /[234]$/;
+       $suffix = 'ь' if $qnum =~ /1$/;
+       $suffix = 'ей' if $qnum =~ /[567890]$/ || $qnum =~ /1.$/;
+	return $suffix;
+}
+
 sub IsTour {
 	my ($dbh, $Id,$n) = @_;
 
@@ -1249,8 +1285,10 @@ sub PrintField {
 	    $value =~ s/<[\/\w]*?>//sg;
 	} else {
 	    $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;
+	    $value =~ s/(\s+)-+(\s+)/$1&#0150;$2/mg;
+	    $value =~ s/\s+\&#0150/&nbsp;\&#0150/mg 
+			if $value !~ /^\|/;
 	    $value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg;
-	    $value =~ s/\s+-+\s+/&nbsp;&#0150; /mg;
 	    $value =~ s/(http:\/\/\S+[^\s\)\(\,\.])/<a href="$1">$1<\/a>/g if $header !~ /^Авто/;
 #	    $value =~ s/(http:\/\/(?:\w+.)+[\w\\\~]+(\?[^\s.]+)?)/<a href="$1">$1<\/a>/g if $header !~ /^Авто/;
 #	    $value =~ s/(\s)"/$1&#147;/mg;
@@ -1405,12 +1443,22 @@ qid=$qid"}, 'Близкие вопросы').p
 
 # Returns the total number of questions currently in the DB.
 sub GetQNum {
-	my ($dbh) = @_;
+	my ($dbh,$x) = @_;
 	my ($sth) = $dbh->prepare("SELECT COUNT(*) FROM Questions");
 	$sth->execute;
 	my $tmp=($sth->fetchrow)[0];
         $sth->finish;
- 	return $tmp;
+	($sth)=  $dbh -> prepare("select distinct count(first) FROM equalto");
+	           $sth -> execute;
+	my ($c)=$sth->fetchrow;
+
+#	           $i++  while ( my  ($first, $second)=$sth -> fetchrow)
+#                  {
+#                       $forbidden{$first}=1;
+#                  }
+                  $sth->finish;
+
+ 	return $tmp-($x?$c:0);
 }
 sub GetMaxQId {
 	my ($dbh) = @_;
@@ -1554,8 +1602,19 @@ sub PrintDates {
 		next
 			if (!$array[0]);
 		%Tournament = &GetTournament($dbh, $array[0]);
+	         my $textid;
+		 if ($textid=$Tournament{'FileName'})
+		 {
+		   $textid=~s/\.txt//;
+		 }
+		 elsif ($textid=$Tournament{'Number'})
+		 {
+		      $fname=~s/\.txt//;
+		      $textid="$fname.$textid";
+		 }
+	         else {$textid=$Tournament{'Id'}};
       $list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .
-      " " . a({href=>tourhref($Tournament{'FileName'},0,1)},
+      " " . a({href=>tourhref($textid,0,1)},
       $Tournament{'Title'}, $Tournament{'PlayedAt'}||''));
 	}
         $sth->finish;
@@ -1865,7 +1924,7 @@ MAIN:
                 exit
 	}
 
-	if ($tour && (!param('answers')||!param('answers')<=1))
+	if ($tour && !param('qnumber') && (!param('answers')||(param('answers')<=1)))
 	{       
 	        my $n=param('tour');
 	        $n=~s/.txt$//;        
@@ -2127,7 +2186,7 @@ EOT
 #                     FROM Tournaments as t1, Tournaments as t2
 #		     WHERE t1.CreatedAt>$d AND t2.ParentId=t1.Id GROUP BY t1.Id");
 my ($sth) = $dbh->prepare("SELECT t1.Id, t1.FileName, t1.Type, count(t2.Id)  FROM Tournaments as t1  LEFT JOIN Tournaments as t2 
- ON t2.ParentId=t1.id WHERE t1.CreatedAt>$d GROUP BY t1.Id");
+ ON t2.ParentId=t1.id WHERE t1.CreatedAt>=$d GROUP BY t1.Id");
 		  $sth->execute;
 		  my ($Id,$fname,$type,$c);
 		  while (($Id,$fname,$type,$c)=$sth->fetchrow,$Id) {