--- db/prgsrc/db.cgi	2002/01/15 03:34:31	1.60
+++ db/prgsrc/db.cgi	2002/05/10 16:42:40	1.64
@@ -161,7 +161,7 @@ sub printform
   my $inputstring=textfield(-name=>'sstr',
                          -default=>param('sstr')||'',
                          -size=>30,
-                         -maxlength=>30);
+                         -maxlength=>50);
   my $qnumber="Выводить по".br. textfield(-name=>'kvo',
                          -default=>param('kvo')||'150',
                          -size=>3,
@@ -645,7 +645,7 @@ sub PrintList {
 
 	print "$nav".br."\n";
 	for (my $i = $first; $i <= $last; $i++) {
-		my $output = &PrintQuestion($dbh, $$Questions[$i-1], 1, $i, 1);
+		my $output = &PrintQuestion($dbh, $$Questions[$i-1], 1, 0, 1);
                 if (param('metod') eq 'rus' || param('metod') eq 'proxy')
                 {
 	             $output=~s/\b($shablon)\b/\<strong\>$1\<\/strong\>/gi;
@@ -840,6 +840,7 @@ sub PrintTournament {
 			$qnum = '';
 		}
 		if ($Tournament{'Type'} =~ /Г/) {
+		    $SingleTour=0;
 			$imgsrc = "/icons/folder.gif";
 			$alt = "[*]";
 		} else {
@@ -1009,9 +1010,9 @@ sub PrintField {
 	    $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;
 	    $value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg;
 	    $value =~ s/\s+-+\s+/&nbsp;&#0150; /mg;
-	    $value =~ s/(\s)"/$1&#147;/mg;
-	    $value =~ s/^"/&#147;/mg;
-	    $value =~ s/"/&#148;/mg;
+#	    $value =~ s/(\s)"/$1&#147;/mg;
+#	    $value =~ s/^"/&#147;/mg;
+#	    $value =~ s/"/&#148;/mg;
 	}