--- db/prgsrc/db.cgi	2001/12/08 23:00:44	1.46
+++ db/prgsrc/db.cgi	2001/12/11 12:30:23	1.50
@@ -7,10 +7,11 @@ use strict;
 use Time::Local;
 use POSIX qw(locale_h);
 use locale;
-#open STDERR, ">errors1";
+open STDERR, ">errors1";
 my $printqueries=0;
 my %forbidden=();
 my $debug=0; #added by R7
+if (param('debug')) {$debug=1; $printqueries=1}
 my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources');
 my %rusfieldname=('Question','÷ÏÐÒÏÓ', 'Answer', 'ïÔ×ÅÔ', 
                   'Comments', 'ëÏÍÍÅÎÔÁÒÉÉ', 'Authors', 'á×ÔÏÒ', 
@@ -73,7 +74,7 @@ sub GetTournament {
 	foreach $name (@{$sth->{NAME}}) {
 		$Tournament{$name} = $arr[$i++];
 	}
-
+        $sth->finish;
 	return %Tournament;
 }
 
@@ -94,6 +95,7 @@ sub GetQuestion {
 		$Question{$name} = $arr[$i++];
 	}
 
+        $sth->finish;
 	return %Question;
 }
 
@@ -111,6 +113,7 @@ sub GetTourQuestions {
 		push @Questions, $arr[0];
 	}
 
+        $sth->finish;
 	return @Questions;
 }
 
@@ -127,7 +130,7 @@ sub GetTours {
 	while (@arr = $sth->fetchrow) {
 		push @Tours, $arr[0];
 	}
-
+        $sth->finish;
 	return @Tours;
 }
 
@@ -141,6 +144,7 @@ print "timeb=".time.br if $debug;
   $sth->execute;
   my @a=$sth->fetchrow;
 print "timee0=".time.br if $debug;
+  $sth->finish;
   $a[0]||0;
 }
 
@@ -151,7 +155,8 @@ sub printform
   my $submit=submit(-value=>'ðÏÉÓË');
   my $inputstring=textfield(-name=>'sstr',
                          -default=>param('sstr')||'',
-                         -size=>50);
+                         -size=>30,
+                         -maxlength=>30);
   my @df=keys %searchin;
   @df=('Question', 'Answer') unless @df;
   my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df],
@@ -265,6 +270,7 @@ print "$query",br if $printqueries;
 	        {
 	           push (@{$nf[$i]},$arr[0])
 	        }
+                $sth->finish;
             }
 
 
@@ -311,6 +317,7 @@ print STDERR "!$query\n",br if $printque
               {
                 @blob=(@blob,unpack 'C*',$arr[0]);
               }
+              $sth->finish;
               $query="select number from nf where ".(join ' OR ', @arr1);
 print "$query\n",br if $printqueries;
     	      $sth=$dbh -> prepare($query);
@@ -320,7 +327,7 @@ print "$query\n",br if $printqueries;
               {
                 $frequence[$i]+=$arr[0];
               }
-
+              $sth->finish;
 
 
               if (@blob < 4)
@@ -527,7 +534,7 @@ print $query if $printqueries;
 	while (@arr = $sth->fetchrow) {
 		push @Questions, $arr[0] unless $forbidden{$arr[0]};
 	}
-
+        $sth->finish;
 print "@Questions" if $printqueries;
 	return @Questions;
 }
@@ -537,7 +544,7 @@ print "@Questions" if $printqueries;
  Ðð Òò Óó Ôô Õõ Ææ Èè Ãã Þþ Ûû Ýý Øø Ùù Üü Àà Ññ/;
 
 sub NoCase {
-	my ($sstr) = shift;
+	my ($sstr) = shift;                   	
 	my ($res);
 
 	if (($res) = grep(/$sstr/, @letters)) {
@@ -958,31 +965,31 @@ sub PrintQuestion {
 		if ($Question{'Authors'}) {
                       my $q=$Question{'Authors'};
 
-		      my $sth=$dbh->prepare("select Authors.Id,Name, Surname, Nicks from Authors, A2Q
-                                 where Authors.Id=Author And Question=$Id");
-                      $sth->execute;
-                      my ($AuthorId,$Name, $Surname,$other,$Nicks);
-
-                      while ((($AuthorId,$Name, $Surname,$Nicks)=$sth->fetchrow),$AuthorId)
-                      {
-                        my ($firstletter)=$Name=~m/^./g;
-                         $Name=~s/\./\\\./g;
-                          my $sha="(?:$Name\\s+$Surname)|(?:$Surname\\s+$Name)|(?:$firstletter\\.\\s*$Surname)|(?:$Surname\\s+$firstletter\\.)|(?:$Surname)|(?:$Name)";
-                          if ($Nicks)
-                          {
-                            $Nicks=~s/^\|//;
-                            foreach (split /\|/, $Nicks)
-                            {
-                              s/\s+/ /g;
-                              s/\s+$//;
-                              s/ /\\s+/g;
-                              s/\./\\\./g;
-                              if (s/>$//) {$sha="$sha|(?:$_)"}
-                              else        {$sha="(?:$_)|$sha"}
-                            }
-                          }
-                          $q=~s/($sha)/a({href=>url."?qofauthor=$AuthorId"},$1)/ei;
-                      }
+#		      my $sth=$dbh->prepare("select Authors.Id,Name, Surname, Nicks from Authors, A2Q
+#                                 where Authors.Id=Author And Question=$Id");
+#                      $sth->execute;
+#                      my ($AuthorId,$Name, $Surname,$other,$Nicks);
+
+#                      while ((($AuthorId,$Name, $Surname,$Nicks)=$sth->fetchrow),$AuthorId)
+#                      {
+#                        my ($firstletter)=$Name=~m/^./g;
+#                         $Name=~s/\./\\\./g;
+#                          my $sha="(?:$Name\\s+$Surname)|(?:$Surname\\s+$Name)|(?:$firstletter\\.\\s*$Surname)|(?:$Surname\\s+$firstletter\\.)|(?:$Surname)|(?:$Name)";
+#                          if ($Nicks)
+#                          {
+#                            $Nicks=~s/^\|//;
+#                            foreach (split /\|/, $Nicks)
+#                            {
+#                              s/\s+/ /g;
+#                              s/\s+$//;
+#                              s/ /\\s+/g;
+#                              s/\./\\\./g;
+#                              if (s/>$//) {$sha="$sha|(?:$_)"}
+#                              else        {$sha="(?:$_)|$sha"}
+#                            }
+#                          }
+#                          $q=~s/($sha)/a({href=>url."?qofauthor=$AuthorId"},$1)/ei;
+#                      }
 
 			$output .= &PrintField("á×ÔÏÒ(Ù)", $q, $text);
 
@@ -1032,6 +1039,7 @@ sub Get12Random {
 	   $sth->execute;
 	   $t = ($sth->fetchrow)[0];
        } until !$chosen{$q} && $t && $type =~ /[$t]/;
+       $sth->finish;
        $chosen{$q} = 'y';
        push @questions, $q;
    }
@@ -1123,6 +1131,7 @@ sub PrintDates {
       " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"},
       $Tournament{'Title'}, $Tournament{'PlayedAt'}));
 	}
+        $sth->finish;
 	$output .= dl($list);
 	return $output;
 }
@@ -1142,6 +1151,7 @@ sub PrintQOfAuthor
     my @Questions;
     while (($q)=$sth->fetchrow,$q)
      {push @Questions,$q unless $forbidden{$q}}
+    $sth->finish;
 
     my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1);
 
@@ -1215,6 +1225,7 @@ a({href=>url."?authors=surname"},"ÆÁÍÉÌÉ
            }
      }
      $output.="</TABLE>";
+     $sth->finish;
      return $output;
 }
 
@@ -1311,6 +1322,7 @@ print $query if $printqueries;
 	      my $sth=$dbh->prepare($query);
 	      $sth->execute;
 	      my $sstr= join ' ',$sth->fetchrow;
+              $sth->finish;
 	      $searchin{'Question'}=1;
 	      $searchin{'Answer'}=1;
       $sstr=~tr/£³/Åå/;
@@ -1353,6 +1365,7 @@ $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ
 			WHERE FileName = '$tour.txt'");
 			$sth->execute;
 			$tour = ($sth->fetchrow)[0];
+                        $sth->finish;
 		}
 		print &PrintTournament($dbh, $tour, param('answer'));
 	}