--- db/prgsrc/db.cgi	2004/08/28 23:47:41	1.135
+++ db/prgsrc/db.cgi	2005/10/28 15:12:24	1.141
@@ -3,6 +3,7 @@
 use DBI;
 use CGI ':all';
 #use strict;
+my @softfields=("От Олега Степанова");
 use Time::Local;
 my $proxyredirect=1;
 use POSIX qw(locale_h);
@@ -10,8 +11,9 @@ use locale;
 use vars qw($opt_z);
 use Getopt::Std;
 #my ($dbuser,$dbname,$dbpass,$dbhost);
-require "dbdefs.pl";
+eval {require "dbdefs.pl";} ;
 my $url=url||'';
+my @used_stop=();
 $dbuser||="piataev";
 $dbname||="chgk";
 $dbpass||="";
@@ -431,9 +433,9 @@ action="/znatoki/cgi-bin/db.cgi">
 </td>
 </tr>
 </table>
-<p><i>Если при попытке поиска выдаётся сообщение об ошибке, 
+<!--p><i>Если при попытке поиска выдаётся сообщение об ошибке, 
 попробуйте воспользоваться 
-<a href="http://chgk.zaba.ru/search.html">зеркалом базы</a></i>
+<a href="http://chgk.zaba.ru/search.html">зеркалом базы</a></i-->
 </center>
 
 EOT
@@ -499,19 +501,31 @@ sub russearch {
             my %relevance;
             my @blob;
             my %count;
+            my %stop_word;
 	POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
 $sstr=~tr/йцукенгшщзхъфывапролджэячсмитьбю/ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ/;
 #    	    @qw=@w =split (' ', uc $sstr);
             my $ts=uc $sstr;
       	    @qw=@w= $ts=~m/(?:(?:${RLrl})+)|(?:[A-Za-z0-9]+)/gom;
-
+            $query="select nf.word from nf  where number>=50000";
+            $sth=$dbh->prepare($query);
+            $sth->execute();
+	    %stop_word=();
+	    while (@arr = $sth->fetchrow)
+	        {
+	           $stop_word{$arr[0]}=1;
+	        }
+                $sth->finish;
+    	    
 
 #-----------
             foreach $i (0..$#w) # заполняем массив @nf начальных форм
                            # $nf[$i] -- ссылка на массив возможных
                            # начальных форм словоформы $i
             {
+                (push @used_stop, uc $w[$i]),next if $stop_word{uc $w[$i]};
                 $qw= $dbh->quote (uc $w[$i]);
+
                 $query="  select distinct w2 from nests
                                 where w1=$qw";
                 $sth=$dbh -> prepare($query);
@@ -556,7 +570,7 @@ $sstr=~tr/йцукенгшщзхъфывапролджэячсмить
               $_= " word2question.word=$_" foreach @arr;
               $_= " nf.id=".$_. ' ' foreach @arr1;
 #              @arr=(0) unless @arr;
-              $query="select questions from word2question where (". (join ' OR ', @arr).") AND length(questions)<80000";
+              $query="select questions from word2question where (". (join ' OR ', @arr).") ";
 
     	      $sth=$dbh -> prepare($query);
               $sth->execute;
@@ -890,7 +904,7 @@ sub PrintList {
 	for (my $i = $first; $i <= $last; $i++) {
 		my $q=$q{$$Questions[$i-1]};
 	        my $output;
-		$output = &PrintQuestion($dbh, $q, 1, 0, 1,0,1  );
+		$output = &PrintQuestion($dbh, $q, 1, 0, 1,$text,1  );
 #                if (param('metod') && (param('metod') eq 'rus' || param('metod') eq 'proxy'))
                 {
 	             $output=~s/\b($shablon)\b/\<strong\>$1\<\/strong\>/gi;
@@ -944,6 +958,8 @@ sub PrintSearch {
 
 
 	$Output.= p. "Время поиска: " . (time-$t) ." сек.".p;
+	$_="\"$_\"" foreach @used_stop;
+	$Output.= p. (join ', ',@used_stop) ." ignored".p if @used_stop;
 	my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1);
 
         my $shablon;
@@ -1262,7 +1278,7 @@ sub PrintTour {
 	my $sth=SelectQuestions($dbh,\@Questions,0);
 	for ($q = 0; $q <= $#Questions; $q++) {
 		fetchquestion($sth,\%q,0);
-		$output .= &PrintQuestion($dbh, \%q, $answer, 0,0,0,1);
+		$output .= &PrintQuestion($dbh, \%q, $answer, 0,0,$text,1);
 	}
 	$sth->finish;
 	$output .= hr({-'align'=>'center', -'width'=>'80%'});
@@ -1318,6 +1334,11 @@ sub PrintField {
 	if ($text) {
 	    $value =~ s/<[\/\w]*?>//sg;
 	} else {
+	    if ($header=~/Комментар/)
+	    {
+		$value=~s/^\s*$_[\.:]/p."\n".strong("$_").":"/me foreach @softfields;
+	    }
+
 	    $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;
 	    $value =~ s/(\s+)-+(\s+)/$1&#0150;$2/mg;
 	    $value =~ s/\s+\&#0150/&nbsp;\&#0150/mg 
@@ -1330,7 +1351,10 @@ sub PrintField {
 #	    $value =~ s/"/&#148;/mg;
 	}
 
-
+	if ($value=~/^\s*(<p.*?>)?\s*<strong/) {
+		return $text ? "$value\n\n" :
+			$value . p . "\n";
+	}
 	return $text ? "$header:\n$value\n\n" :
 		strong("$header: ") . $value . p . "\n";
 }
@@ -1475,6 +1499,9 @@ $output.="</span>"
 
 	}
 	$output=~s/\(pic: ([^\)]*)\)/<p><img src="\/znatoki\/images\/db\/$1"><p>/g unless $text;
+	$output=~s/⌡/\&iuml;/g;
+	$output=~s/⌠/\&Iuml;/g;
+
 	$paramtour||=param("tour");
 	$fname=$fname.".$Question{'TourNumber'}" if $fname && $Question{'TourNumber'};
 $fname||=param('tour');
@@ -1705,7 +1732,7 @@ sub PrintQOfAuthor
 		$suffix = 'я';
 	}
 	$Output.= printform;
-	$Output.= p({align=>"center"}, "Автор ".strong("$name $surname. ")
+	$Output.= p({align=>"center"}, "Автор ".strong("$name $surname ")
 	. " : $hits попадани$suffix.");
 
 
@@ -1967,7 +1994,7 @@ MAIN:
 
 
 	if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) {
-	   my $destination='http://chgk.zaba.ru/search.html';
+#	   my $destination='http://chgk.zaba.ru/search.html';
 #		print header (-'Content-Type' => 'text/html',
 #                -'Location:'=> 'http:\\db.chgk.info');
 		Redirect($destination);
@@ -2205,7 +2232,7 @@ EOT
 		  $QuestionNumber=($sth->fetchrow)[0]||0;
 	        }
 	        if ($QuestionNumber) {
-		  $globaloutput.= &PrintQuestion($dbh, $QuestionNumber, $withanswers||0, $qnum, 1,0,0);
+		  $globaloutput.= &PrintQuestion($dbh, $QuestionNumber, $withanswers||0, $qnum, 1,$text,0);
 #                                        $dbh, $Id, $answer, $qnum, $title, $text
 		} else  {
   		   $globaloutput.=&PrintTournament($dbh, $tour, $withanswers);