[BACK]Return to db.cgi CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/db.cgi between versions 1.69 and 1.70

version 1.69, 2002/06/15 02:20:23 version 1.70, 2002/06/20 12:54:52
Line 2 Line 2
   
 use DBI;  use DBI;
 use CGI ':all';  use CGI ':all';
 #use Text::Query;  
 use strict;  use strict;
 use Time::Local;  use Time::Local;
 use POSIX qw(locale_h);  use POSIX qw(locale_h);
 use locale;  use locale;
 open STDERR, ">errors1";  open STDERR, ">>errors1";
 my $printqueries=0;  my $printqueries=0;
 my %forbidden=();  my %forbidden=();
 my $debug=0; #added by R7  my $debug=0; #added by R7
Line 773  sub PrintRandom { Line 772  sub PrintRandom {
   
 sub PrintEditor {  sub PrintEditor {
        my $t=shift; #ссылка на Хэш с полями         my $t=shift; #ссылка на Хэш с полями
        my $ed=$$t{'Editors'};         my $ed=$$t{'Editors'}||'';
        my $edname=($ed=~/\,/ ) ? "Редакторы"  : "Редактор" ;         my $edname=($ed=~/\,/ ) ? "Редакторы"  : "Редактор" ;
        return $ed? h4({align=>"center"},"$edname: $ed" ): '';         return $ed? h4({align=>"center"},"$edname: $ed" ): '';
 }  }
Line 885  sub PrintTournament { Line 884  sub PrintTournament {
         $output .= dl($list);          $output .= dl($list);
   
         if ($URL) {          if ($URL) {
                   if (url=~/zaba\.ru/ && $URL=~/^\//){$URL="http://info.chgk.info$URL"}
                 $output .=                  $output .=
                 p("Дополнительная информация об этом турнире - по адресу " .                  p("Дополнительная информация об этом турнире - по адресу " .
                         a({-'href'=>$URL}, $URL));                          a({-'href'=>$URL}, $URL));
Line 1058  sub PrintQuestion { Line 1058  sub PrintQuestion {
   
                 if ($Question{'Authors'}) {                  if ($Question{'Authors'}) {
                       my $q=$Question{'Authors'};                        my $q=$Question{'Authors'};
   ###АВТОРА!!
 #                     my $sth=$dbh->prepare("select Authors.Id,Name, Surname, Nicks from Authors, A2Q                        my $sth=$dbh->prepare("select Authors.Id,Name, Surname, Nicks from Authors, A2Q
 #                                 where Authors.Id=Author And Question=$Id");                                    where Authors.Id=Author And Question=$Id");
 #                      $sth->execute;                         $sth->execute;
 #                      my ($AuthorId,$Name, $Surname,$other,$Nicks);                         my ($AuthorId,$Name, $Surname,$other,$Nicks);
   
 #                      while ((($AuthorId,$Name, $Surname,$Nicks)=$sth->fetchrow),$AuthorId)                         while ((($AuthorId,$Name, $Surname,$Nicks)=$sth->fetchrow),$AuthorId)
 #                      {                         {
 #                        my ($firstletter)=$Name=~m/^./g;                           my ($firstletter)=$Name=~m/^./g;
 #                         $Name=~s/\./\\\./g;                            $Name=~s/\./\\\./g;
 #                          my $sha="(?:$Name\\s+$Surname)|(?:$Surname\\s+$Name)|(?:$firstletter\\.\\s*$Surname)|(?:$Surname\\s+$firstletter\\.)|(?:$Surname)|(?:$Name)";                             my $sha="(?:$Name\\s+$Surname)|(?:$Surname\\s+$Name)|(?:$firstletter\\.\\s*$Surname)|(?:$Surname\\s+$firstletter\\.)|(?:$Surname)|(?:$Name)";
 #                          if ($Nicks)                             if ($Nicks)
 #                          {                             {
 #                            $Nicks=~s/^\|//;                               $Nicks=~s/^\|//;
 #                            foreach (split /\|/, $Nicks)                               foreach (split /\|/, $Nicks)
 #                            {                               {
 #                              s/\s+/ /g;                                 s/\s+/ /g;
 #                              s/\s+$//;                                 s/\s+$//;
 #                              s/ /\\s+/g;                                 s/ /\\s+/g;
 #                              s/\./\\\./g;                                 s/\./\\\./g;
 #                              if (s/>$//) {$sha="$sha|(?:$_)"}                                 if (s/>$//) {$sha="$sha|(?:$_)"}
 #                              else        {$sha="(?:$_)|$sha"}                                 else        {$sha="(?:$_)|$sha"}
 #                            }                               }
 #                          }                             }
 #                          $q=~s/($sha)/a({href=>url."?qofauthor=$AuthorId"},$1)/ei;                             $q=~s/($sha)/a({href=>url."?qofauthor=$AuthorId"},$1)/ei;
 #                      }                         }
    
                         $output .= &PrintField("Автор(ы)", $q, $text);                          $output .= &PrintField("Автор(ы)", $q, $text);
   
 #                        $output.= &PrintField("Другие вопросы", $other);  
                 }                  }
   
                 if ($Question{'Sources'}) {                  if ($Question{'Sources'}) {
Line 1130  EOTT Line 1129  EOTT
 $output.="</span>"  $output.="</span>"
   
         }          }
 #       $output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'Близкие вопросы').p          $output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'Близкие вопросы').p
 #             if $answer;               if $answer;
         return $output;          return $output;
 }  }
   
Removed from v.1.69  
changed lines
  Added in v.1.70

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>